PDA

View Full Version : [SOLVED] copy not contiguous cells via VBA



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

xl_xl
03-07-2014, 07:25 AM
hi marreco.

try the following code to copy the non contiguous cells as contiguous.


Sub Copynon()
Dim r_from As Range, r_to As Range

Set r_to = Worksheets("CONSOLIDAR").Range("A" & Rows.Count).End(xlUp).Offset(1)
For Each r_from In Worksheets("PLANILHA PEDIDO").Range("N10,B10,S10,B22,C22,D22,J22,L22,M22").Areas
r_from.Copy Destination:=r_to
Set r_to = r_to.Offset(, 1)
Next r_from
End Sub

snb
03-07-2014, 07:52 AM
Sub M_snb()
with sheets(["PLANILHA PEDIDO")
sheets("CONSOLIDAR").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 9) = Array(.Range("N10").value, .Range("B10").value, .Range("S10").value, .Range("B22").value, .Range("C22").value, .Range("D22").value, .Range("J22").value, .Range("L22").value, .Range("M22").value)
end with
End Sub

marreco
03-07-2014, 07:53 AM
Hi. thank you very much!!!!