Anónimo
Copiar columnas de un array
Cababallero usted me ayudo con este desarrollo me funciono super bien, para pegar en A2, pero si quiero copiar cols (Q2, J2, P2)pegar a partir de la celda dest (A13, C13 y G13) como hacerle ya que me marca un error
Sub CopiarColumnas()
'Por.Dante Amor
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h1 = l1.ActiveSheet
Set l2 = Workbooks.Open(l1.Path & "\" & "libro2 destino.xlsx")
Set h2 = l2.Sheets("Hoja2")
'
cols = Array("Q", "J", "P")
dest = Array("A", "C", "G")
'
For c = LBound(cols) To UBound(cols)
f = 2
Do While h1.Cells(f, cols(c)) <> ""
f = f + 1
Loop
'
u = h2.Range(cols(c) & Rows.Count).End(xlUp).Row + 1
u = 2
h1.Range(cols(c) & "2:" & cols(c) & f).Copy
h2.Cells(u, dest(c)).PasteSpecial Paste:=xlValues
Next
l2.Close True
MsgBox "Copia terminada"
End Sub
