Solved

How to delete cells that begin with using VBA?

Posted on 2014-12-10
6
82 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
Comment Utility
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 48

Expert Comment

by:Rgonzo1971
Comment Utility
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
Comment Utility
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
What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 
LVL 48

Accepted Solution

by:
Rgonzo1971 earned 500 total points
Comment Utility
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
Comment Utility
I think both of our suggestions will work - I think you need to post your spreadsheet.
0
 

Author Comment

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

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
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…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

762 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now