marreco
03-07-2014, 06:10 AM
Hi.
It would be possible to copy, not contiguous cells via VBA?
I try, but doesn't work:crying:
Sub Copynon()Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Worksheets("PLANILHA PEDIDO").Range("N10,B10,S10,B22,C22,D22,J22,L22,M22").Copy 'Destination:=Sheets("CONSOLIDAR").Range("A2:I" & LR + 1)
End Sub
thanks
It would be possible to copy, not contiguous cells via VBA?
I try, but doesn't work:crying:
Sub Copynon()Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Worksheets("PLANILHA PEDIDO").Range("N10,B10,S10,B22,C22,D22,J22,L22,M22").Copy 'Destination:=Sheets("CONSOLIDAR").Range("A2:I" & LR + 1)
End Sub
thanks