Wildcard in VBA?
 

I apologize if this is here twice--I don't see the post I thought went
through earlier today. Anyway ..

I have the following code:

If .Cells(X, "H") = "RG" Then
.Cells(X, "G").Value = "TRC"
End If

Can I modify this with a "wildcard" character? In other words, if RG is
found anywhere (RG123, RG456, 123RG, etc) within cell H, I want TRC to be
placed into column G

Thanks!

Wildcard in VBA?
 

maybe something like this, i just hard coded the variable for testing

Sub test()
Dim x As Long
x = 3

If Cells(x, "H") Like "?G" Then
Cells(x, "G").Value = "TRC"
End If

End Sub

--


Gary Keramidas
Excel 2003


"richzip" wrote in message
...
I apologize if this is here twice--I don't see the post I thought went
through earlier today. Anyway ..

I have the following code:

If .Cells(X, "H") = "RG" Then
.Cells(X, "G").Value = "TRC"
End If

Can I modify this with a "wildcard" character? In other words, if RG is
found anywhere (RG123, RG456, 123RG, etc) within cell H, I want TRC to be
placed into column G

Thanks!

Wildcard in VBA?
 

Try something like

If InStr(Cells(X, "H").Text, "RG") 0 Then
Cells(X, "G").Value = "TRC"
End If

Steve

"richzip" wrote in message
...
I apologize if this is here twice--I don't see the post I thought went
through earlier today. Anyway ..

I have the following code:

If .Cells(X, "H") = "RG" Then
.Cells(X, "G").Value = "TRC"
End If

Can I modify this with a "wildcard" character? In other words, if RG is
found anywhere (RG123, RG456, 123RG, etc) within cell H, I want TRC to be
placed into column G

Thanks!

Wildcard in VBA?
 

Given what the OP posted, I believe your Like operator test should be this...

If Cells(x, "H") Like "*RG*" Then

That would be a case sensitive test; if the OP need a non-case sensitive test, that would look like this...

If Cells(x, "H") Like "*[Rr][Gg]*" Then

--
Rick (MVP - Excel)


"Gary Keramidas" <GKeramidasAtMSN.com wrote in message ...
maybe something like this, i just hard coded the variable for testing

Sub test()
Dim x As Long
x = 3

If Cells(x, "H") Like "?G" Then
Cells(x, "G").Value = "TRC"
End If

End Sub

--


Gary Keramidas
Excel 2003


"richzip" wrote in message
...
I apologize if this is here twice--I don't see the post I thought went
through earlier today. Anyway ..

I have the following code:

If .Cells(X, "H") = "RG" Then
.Cells(X, "G").Value = "TRC"
End If

Can I modify this with a "wildcard" character? In other words, if RG is
found anywhere (RG123, RG456, 123RG, etc) within cell H, I want TRC to be
placed into column G

Thanks!

Wildcard in VBA?
 

yea, i missed this part (RG123, RG456, 123RG).
i guess i should read the entire post<g

--


Gary Keramidas
Excel 2003


"Rick Rothstein" wrote in message
...
Given what the OP posted, I believe your Like operator test should be this...

If Cells(x, "H") Like "*RG*" Then

That would be a case sensitive test; if the OP need a non-case sensitive test,
that would look like this...

If Cells(x, "H") Like "*[Rr][Gg]*" Then

--
Rick (MVP - Excel)


"Gary Keramidas" <GKeramidasAtMSN.com wrote in message
...
maybe something like this, i just hard coded the variable for testing

Sub test()
Dim x As Long
x = 3

If Cells(x, "H") Like "?G" Then
Cells(x, "G").Value = "TRC"
End If

End Sub

--


Gary Keramidas
Excel 2003


"richzip" wrote in message
...
I apologize if this is here twice--I don't see the post I thought went
through earlier today. Anyway ..

I have the following code:

If .Cells(X, "H") = "RG" Then
.Cells(X, "G").Value = "TRC"
End If

Can I modify this with a "wildcard" character? In other words, if RG is
found anywhere (RG123, RG456, 123RG, etc) within cell H, I want TRC to be
placed into column G

Thanks!