Macro help..can this be done??

[JKast]

Can anyone tell me how I can make this code work? The first IF statement always works, but the second one never copies the data to the other sheet. Any help is appreciated!

Sub CopyData()
Dim i As Long

For i = 2 To 5000 'change numbers to the range of rows you are checking
If Range("g" & i) = "ACME DISTRIBUTION" Then
Range("g" & i).EntireRow.Copy _
Destination:=Sheets("Acme Distribution").Range("A65536").End(xlUp).Offset(1, 0)

End If
Next
For i = 2 To 5000
If Range("g" & i) = "cycle logistics" Then
Range("g" & i).EntireRow.Copy _
Destination:=Sheets("Cycle Logistics").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next
End Sub

 

[Ruddles]

Is it a problem with upper/lower case not matching?

If so, head your module with the compiler directive Option Compare Text. This will make all your text comparisons non-case-sensitive.

If not, place a breakpoint at the second IF statement and examine the value in Range("g" & i), then compare it carefully with that character string - maybe there's a trailing blank in the cell?

Step through the code using the F8 key to check where it's actually going.

 

[Jonmo1]

VBA is case sensitive...

Try

If Ucase(Range("g" & i)) = "ACME DISTRIBUTION" Then

and

If Ucase(Range("g" & i)) = "CYCLE LOGISTICS" Then

 

[JKast]

Ha! Wow, that was simple. Thanks a ton for your help!