Copiar la ultima celda de una fila

Tengo un libro en excel que contiene las hojas "listado” y "traspaso” y necesito una macro que copie la última celda de la fila F de la hoja listado y la pegue en la última celda de la fila D de la hoja “traspaso”. ¿Me podrían ayudar please?

1 Respuesta

Respuesta
1

 h o l a:

Te anexo la macro:

Sub CopiarCelda()
'Por.Dante Amor
    Set h1 = Sheets("listado")
    Set h2 = Sheets("traspaso")
    u1 = h1.Range("F" & Rows.Count).End(xlUp).Row
    u2 = h2.Range("D" & Rows.Count).End(xlUp).Row + 1
    h2.Cells(u2, "D") = h1.Cells(u1, "F")
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas