macro and wildcard

[Roger]

I am trying to get a wildcard to work in a macro.

Sub Merge()
Dim intRow As Integer
Dim txt As String
intRow = 1
Do Until IsEmpty(Cells(intRow, 2))
If Cells(intRow, 2) = "0x" Then
Cells(intRow, 2) = Cells(intRow, 24)
If Cells(intRow, 24) = "ip:source-ip=192.168.1.*" Then
Cells(intRow, 2) = "value 3"
End If
If Cells(intRow, 24) = "ip:source-ip=192.168.2.*" Then
Cells(intRow, 2) = "value 2"
End If
If Cells(intRow, 24) = "ip:source-ip=192.168.3.*" Then
Cells(intRow, 2) = "value 1"
End If
End If
intRow = intRow + 1
Loop
Columns(1).AutoFit
End Sub

Will this wildcard logic work at all? I know as it currently is it will
not.

Any help appreciated

thanks

Roger

 

[Chip Pearson]

Roger,

Use the Like operator. E.g.,

If Cells(intRow, 24) Like "ip:source-ip=192.168.1.*" Then


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

 

[Dianne]

Or:

If Left(Cells(intRow, 24),23) = "ip:source-ip=192.168.1." Then

 

[Joe Bloggs]

Roger

Delete the "*" and replace the "=" with Like this might do
the trick

Peter Atherton