Copiar con una macro una celda y pegarla en otra hoja en una celda si esta esta vacía pegar sino bajar y pegar en la siguiente.
Deseo copiar los datos de mi hoja1 A2, C2 y pegarlos en mi hoja 2 cada vez que yo presione el botón con la macro.
A1 = NOMBRE B2 = CEDULA C2= SUELDO
A2 = LUIS B2 = 1234567 C2 = 900 000
Pegar A2 Y C3 en la Hoja2 en las celdas A2 Y B2 siempre y cuando estas este vacía sino bajar a la celda A3 Y B2 y pegar los datos que se copiaron de la Hoja1
1 Respuesta
Te anexo la macro
Sub Copiar_Celdas()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Range("A2, C2").Copy h2.Range("A" & u)
MsgBox "Celdas copiadas"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Amigo me podías explicar cada línea si es tan amable puesto que si más adelante quiero cambiar las celdas de donde se va a copiar la información. Gracias
Con gusto te explico
Sub Copiar_Celdas()
'Por.Dante Amor
'establece en h1 y h2 las hojas1 y 2
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'obtiene la fila vacía después de la última fila con datos
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
'copia las celas a2 y c2 a las celdas a y b de la hoja2
h1.Range("A2, C2").Copy h2.Range("A" & u)
MsgBox "Celdas copiadas"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta
Amigo Dante el rango lo esta tomando en el caso de que quiero que tome la casilla J25 y K15, luego las copie y pegue en la hoja 2 en las celdas a2 y b2 solo tengo que modificar así:
Sub Copiar_Celdas()
'Por.Dante Amor
'establece en h1 y h2 las hojas1 y 2
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'obtiene la fila vacía después de la última fila con datos
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
'copia las celas a2 y c2 a las celdas a y b de la hoja2
h1.Range("j25, k15").Copy h2.Range("A" & u)
MsgBox "Celdas copiadas"
End Sub
Haz los cambios y prueba, esa es una forma de ir aprendiendo.
