Pattern Matching with cells function

[John]

Hi all, I looked for an answer to this one but can't find it. Your
help is always appreciated.

-------------------------
dim bottom as long
bottom = Cells(Rows.count, "B").End(xlUp).Row

For a = bottom To 3 Step -1
If Cells(a, 4) = "*Abstractor" Then
Cells(a - 1, 10) = Cells(a, 7)
Cells(a - 1, 11) = Cells(a, 8)
End If

Next a
--------------------------

It seems to me that the * character is not acting like a wild card for
me. What is the proper way to look through the cells and try to match
a pattern?

Thanks
John

 

[Chip Pearson]

John,

Use the LIKE operator. E.g,

If Cells(a,4) Like "*Abstractor" Then



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[keepITcool]

note that LIKE is case sensitive
(unless OPTION COMPARE TEXT has been set in the module's decl. section)

keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >