Copiar datos de una hoja a otra que contien una tabla.
Cual seria el código para copiar y pegar datos que tengo en la celda " a2" y "b2" de la hoja 1 a otra hoja 2 en la celda" a2 "y" b2" pero esta es una tabla. También que cada vez que copie los datos los copie en la siguiente fila o celda vacía.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub Copiar2Celdas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
j = 2
Do While h2.Cells(j, "A") <> ""
j = j + 1
Loop
h1.Range("A2:B2").Copy
h2.Cells(j, "A").PasteSpecial xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Celdas copiadas"
End Sub
buen dia dam,
Me funciona perfecto como puedo hacer para agregar dos celdas más, pero estas no están seguidas si no la celda "d2" y la celda" e2" y copiarlo a la tabla.
Quedaría así:
Sub Copiar2Celdas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
j = 2
Do While h2.Cells(j, "A") <> ""
j = j + 1
Loop
h1.Range("A2:B2, D2:E2").Copy
h2.Cells(j, "A").PasteSpecial xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Celdas copiadas"
End Sub
