We help IT Professionals succeed at work.

How to delete cells that begin with using VBA?

Legolas786
Legolas786 asked
on
118 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

Comment
Watch Question

Phillip BurtonDirector, Practice Manager and Computing Consultant
Awarded 2014
Top Expert 2014

Commented:
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.
CERTIFIED EXPERT
Top Expert 2016

Commented:
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

Author

Commented:
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

CERTIFIED EXPERT
Top Expert 2016
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION
Phillip BurtonDirector, Practice Manager and Computing Consultant
Awarded 2014
Top Expert 2014

Commented:
I think both of our suggestions will work - I think you need to post your spreadsheet.

Author

Commented:
Sorry it was my mistake, i was searching the wrong range - schoolboy error.  thanks guys!

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.