Ayuda con macro

Hola fernando, que código debo poner en una macro para que lo que está en el texbox1, texbox2 y texbox3 se copie a la hoja "BD" pero después de la última celda, es decir, si hay datos hasta la fila 20, que se copie en la 21. Gracias por tu ayuda.
1

1 Respuesta

540.875 pts. Por falta de tiempo para responder como me gusta...
La siguiente rutina se encarga de lo que solicitas.
En tu código ingresa lo siguiente:
Sub Vuelca()
'Colocar aquí la dirección de la celda
'donde empieza la lista de nombres:
IniLista = "B8"
'---------------- Gracias
Sheets("BD").Activate
Set IniLista = Range(IniLista)
vCol = IniLista.Column
'Selección de celda donde colocar el nombre
If IsEmpty(IniLista) Then
vRow = IniLista.Row
ElseIf IniLista.End(xlDown).Row > 50000 Then
vRow = IniLista.Offset(1).Row
Else
vRow = IniLista.End(xlDown).Offset(1).Row
End If
Cells(vRow, vCol).Value = Textbox1.Value
Cells(vRow + 1, vCol).Value = Textbox2.Value
Cells(vRow + 2, vCol).Value = Textbox3.Value
Set IniLista = Nothing
End Sub
Como verás, al inicio de la macro debes indicarle una celda de referencia para que la macro sepa desde que celda debe considerar el área de pegado. Tal celda puede contener el titulo de una columna o el primer dato de la lista o, incluso, puede estar vacía. La macro se encargará de evaluar qué hacer en cada caso.
Espero que esto te ayude a completar tu proyecto.
Un abrazo!
Fernando

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas