Copiar datos a otra hoja en primer fila vacía.

Tengo una hoja llamada "índice" donde ingreso datos desde la celda D1:D9, me gustaría que con una macro pasar esa información a la primer fila vacía de la hoja llamada "base". Relacionando D1 con la columna A, D2 con la columna B.

1 Respuesta

Respuesta
1

Prueba esto:

Sub CopiarDatos()
  Dim lr As Long
  With Sheets("base")
    lr = .Range("A" & Rows.Count).End(3).Row + 1
    .Range("A" & lr).Resize(1, 9).Value = Application.Transpose(Sheets("indice").Range("D1:D9").Value)
  End With
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas