Solved

How to delete cells that begin with using VBA?

Posted on 2014-12-10
6
92 Views
Last Modified: 2014-12-10
Hi,

Is it possible in VBA to delete all the cells that begin with a certain letter/word/number? I use the following but it works more like if the whole cell contains the values, another problem I have is that if i have a cell that begins with a date for example "12/12/2014 text" the below code would not work.

Set rngH = wst.Range("H1:H" & wst.Range("H65536").End(xlUp).Row)

For Each rng In rngH
    bnlFoundInvalid = False
    bnlFoundValid = False
   For intCounter = 0 To 12
        If InStr(1, rng.Offset(0, intCounter).Value, "Set", vbTextCompare) > 0 Or _
            InStr(1, rng.Offset(0, intCounter).Value, "New", vbTextCompare) > 0 Or _
            InStr(1, rng.Offset(0, intCounter).Value, "1", vbTextCompare) > 0 Or _
            IsNumeric(rng.Offset(0, intCounter).Value) Then
            If bnlFoundInvalid = False Then
                'An invalid column.
                intColInValid = intCounter
            End If
            bnlFoundInvalid = True
            rng.Offset(0, intCounter).ClearContents
        Else
            '1st valid column.
            If bnlFoundValid = False Then
                intColValid = intCounter
            End If
            bnlFoundValid = True
        End If
        If bnlFoundInvalid = True Then
            If bnlFoundValid = True Then
                If intColValid > 0 Then
                    'Col H had an invalid value.
                    rng.Value = rng.Offset(0, intColValid).Value
                End If
            End If
        End If
    Next intCounter
Next rng

Open in new window

0
Comment
Question by:Legolas786
  • 2
  • 2
  • 2
6 Comments
 
LVL 24

Expert Comment

by:Phillip Burton
ID: 40491152
Change

rng.Offset(0, intCounter).Value

in line 7 to

left(rng.Offset(0, intCounter).Value,len("Set"))

if you are looking for a general approach.
0
 
LVL 50

Expert Comment

by:Rgonzo1971
ID: 40491227
Hi,

pls try

If Rng.Offset(0, intCounter).Value Like "Set*" Or _
    Rng.Offset(0, intCounter).Value Like "New*" Or _
    (Rng.Offset(0, intCounter).Value Like "1*" And _
    Not Rng.Offset(0, intCounter).Value Like "##/##/####*") Or _
    IsNumeric(Rng.Offset(0, intCounter).Value) Then

Open in new window

Regards
0
 

Author Comment

by:Legolas786
ID: 40491526
Rgonzo1971
Hi,

i ahve tried your coding but it doesnt seem to clear the cell, for example if a cell contains "the colour is red", in your code i have the following and it does not clear it?

rng.Offset(0, intCounter).Value Like "the*" Or _

Open in new window


also some times there might be a space before the word so for example " the colour is red" and i have tried

rng.Offset(0, intCounter).Value Like " the*" Or _

Open in new window


but again it does not work?

Phillip Burton

can you please provide the full line? as basing with what you have said the following wont work?

If InStr(1, left(rng.Offset(0, intCounter).Value,len("Set")), "Set", vbTextCompare) > 0 Or _

Open in new window

0
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 
LVL 50

Accepted Solution

by:
Rgonzo1971 earned 500 total points
ID: 40491555
then use the function trim

If Trim(Rng.Offset(0, intCounter).Value) Like "Set*" Or _
    Trim(Rng.Offset(0, intCounter).Value) Like "New*" Or _
    (Trim(Rng.Offset(0, intCounter).Value) Like "1*" And _
    Not Trim(Rng.Offset(0, intCounter).Value) Like "##/##/####*") Or _
    IsNumeric(Trim(Rng.Offset(0, intCounter).Value)) Then

You could also use LTrim ( to only delete the left-sided blanks )

Regards
0
 
LVL 24

Expert Comment

by:Phillip Burton
ID: 40491617
I think both of our suggestions will work - I think you need to post your spreadsheet.
0
 

Author Comment

by:Legolas786
ID: 40491660
Sorry it was my mistake, i was searching the wrong range - schoolboy error.  thanks guys!
0

Featured Post

Active Directory Webinar

We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
MsgBox 2 59
Microsoft Access combo box help 2 50
SQL VB connection works in one PC and doesn't in another 15 68
How to Add / Edit Windows Menu 4 68
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question