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

Respuesta
2

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.

La pregunta no admite más respuestas

Más respuestas relacionadas