deedii
01-29-2012, 06:37 PM
Hi guys,
How do I count the number of item copied and prompt it in a message box. Im using the code below to copy the data.
Last_Rw = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Last_Rw
If .Cells(i, "l").Value = "xxx" Then
WS_Pas.Cells(Rw_Ct, 1).Value = .Cells(i, "A").Value
Rw_Ct = Rw_Ct + 1
T_Str = T_Str & "A" & i & ","
End If
Next i
Thank you :)
How do I count the number of item copied and prompt it in a message box. Im using the code below to copy the data.
Last_Rw = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Last_Rw
If .Cells(i, "l").Value = "xxx" Then
WS_Pas.Cells(Rw_Ct, 1).Value = .Cells(i, "A").Value
Rw_Ct = Rw_Ct + 1
T_Str = T_Str & "A" & i & ","
End If
Next i
Thank you :)