The lunatics are on the cell
Posted by Dani on September 21, 2001 10:19 AM
Hi one more time. Here the newbie.
I'm trying to use the "like" operator to get compare the text of a cell
in a worksheet and if it does match, copy that cell into another workshee's cell.
This is what I'm doing:
Private Sub print_cmd_Click()
Dim i As Integer
Dim a As Integer
Dim anystr As String
anystr = print_frm.cat_cbo.Value
For i = 9 To 804
If anystr Like "Sit*" Then
For a = 6 To 100
If Range("B" & a).Value = "" Then
Worksheets("SubTotal").Range("b" & a) = Worksheets("Information").Range("b" & i).Value
But looks like does not copying anything.
Am I doing something wrong?
Thanks a lot