How can my vba count number of rows copied?

[pedie]

Hi, how can my vba count number of rows copied?
i want the msgbox to show the # counts after the whole thing is copied.

Thanks
Pedie

x = 1
y = 65500
c = 12
Application.ScreenUpdating = False
With Sheets("Sheet1")
            For chk = x To y
                If .Cells(chk, c).Value = "X" Then
                   .Cells(chk, c).Value = "Y"
                   .Cells(chk, c).Offset(0, -11).Resize(, 11).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
                End If
            Next chk
End With

 

[xld]

Try

    MsgBox Sheets("Sheet2").Range("A1").End(xlDown).Row

 

[pedie]

Xld, the thing is that it will not give me the new copied row count because there are so many rows filled out with data...

I think there must be a way round right?

 

[meldoc]

Yo Pedie,

Try.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> test()<br>x = 1<br>y = 65500<br>c = 12<br>Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br><SPAN style="color:#00007F">With</SPAN> Sheets("Sheet1")<br>  <SPAN style="color:#00007F">For</SPAN> chk = x <SPAN style="color:#00007F">To</SPAN> y<br>      <SPAN style="color:#00007F">If</SPAN> .Cells(chk, c).Value = "X" <SPAN style="color:#00007F">Then</SPAN><br>         .Cells(chk, c).Value = "Y"<br>         .Cells(chk, c).Offset(0, -11).Resize(, 11).Select<br>         .Cells(chk, c).Offset(0, -11).Resize(, 11).Copy _<br>            Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)<br>         Count = Count + 1<br>      <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>  <SPAN style="color:#00007F">Next</SPAN> chk<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>MsgBox Count<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[pedie]

Brian, thank you so much!

This is perfect.
Thanks