Select Records where contents of Cell meet certain criteria

[Warpug]

Heres the deal: I have two worksheets named Data and Target. I need to get some of the records from the Data sheet moved to the Target sheet. The Target sheet will have the same header row already populated. The difficulty Im having is I need to base this all on the contents of the data in one column, Ill call it Column D. Its not as simple as saying I need every record that says HEYME, I need every record where the contents of column D is populated by a string made up of a letter followed by six numbers like F123456. So Select * From Data where Column D consists of an alpha followed by 6 numbers. Any ideas?

 

[Akuini]

You can use Like operator, something like this:

Dim r As Range
For Each r In Range("D2", Cells(Rows.count, "D").End(xlUp))
If r Like "[A-Z]######" Then
'do something
End If
Next

Note: "#" is symbol for any single digit (0–9)

https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/operators/like-operator

 

[Warpug]

You can use Like operator, something like this:

Dim r As Range
For Each r In Range("D2", Cells(Rows.count, "D").End(xlUp))
If r Like "[A-Z]######" Then
'do something
End If
Next

Note: "#" is symbol for any single digit (0–9)

https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/operators/like-operator

That worked great thank you. I just have one question. How do I make it so that the ALPHA part is not case sensitive? Is that possible?

 

[Akuini]

That worked great thank you. I just have one question. How do I make it so that the ALPHA part is not case sensitive? Is that possible?

Try:

If r Like "[a-zA-Z]######" Then

 

[Warpug]

Try:

If r Like "[a-zA-Z]######" Then

AWESOME!! That worked great! Thank you for your time.

 

[Akuini]

You're welcome, glad to help, & thanks for the feedback.