Hơw can I copy special range then paste to another sheet

[sbv1986]

Hi all:

I have wb copydata.xlsm with sheet("source","des")

In sheets("source") I want copy multiple ranges from row i (i = 1 to lastrow) that:
If cells(i,21)<>0 then
Copy range("Ai:Di") and range("Ui: last column) to sheets("des")

Please help me to do that with VBA, I have over 1.000 rows have to do. Thanks./.

 

[Michael M]

Re: Hơ can I copy special range then paste to aonther sheet

Maybe this

Sub MM1()
Dim lr As Long, r As Long, lr2 As Long
lr = Cells(Rows.Count, "U").End(xlUp).Row
lr2 = Sheets("des").Cells(Rows.Count, "A").End(xlUp).Row
For r = 1 To lr
    If Cells(r, 21).Value <> 0 Then
        Range("A" & r & ":D" & r).Copy Sheets("des").Range("A" & lr2 + 1)
        lr2 = Sheets("des").Cells(Rows.Count, "A").End(xlUp).Row
    End If
Next r
End Sub

 

[sbv1986]

Re: Hơ can I copy special range then paste to aonther sheet

Many thanks @Michael M :

But I thinks this code dulicate line: lr2 = Sheets("des").Cells(Rows.Count, "A").End(xlUp).Row

How about range(Ui:lastcolumn), I want this range copy the same time with range(Ai:Di).

Could you please help me one again?

 

[Michael M]

Re: Hơ can I copy special range then paste to aonther sheet

Sorry I'm a bit confused ???