I am just trying to learn how this ISLIKE function works so if you could look at what I have below please let me know why I am getting a Sub of Function not Defined alarm.
Sub dude()
Dim mysearch As String
Dim lrow As Long
Dim r As Integer
Dim n As Integer
lrow = Rows.Cells(Rows.count, 1).End(xlUp).Row
n = 1
r = 1
Do
mysearch = Cells(n, 1).Value
If ISLIKE(" S", "[mysearch]"
Then
Cells(r, 4).Value = mysearch
r = r + 1
Else
n = n + 1
End If
Loop Until n = lrow + 1
End Sub
For just $19.95 you too can have a beautiful smile.
Sub dude()
Dim mysearch As String
Dim lrow As Long
Dim r As Integer
Dim n As Integer
lrow = Rows.Cells(Rows.count, 1).End(xlUp).Row
n = 1
r = 1
Do
mysearch = Cells(n, 1).Value
If ISLIKE(" S", "[mysearch]"
Cells(r, 4).Value = mysearch
r = r + 1
Else
n = n + 1
End If
Loop Until n = lrow + 1
End Sub
For just $19.95 you too can have a beautiful smile.