Formato para copiar datos debajo de otro?
Formato de copiar clientes
Tengo un formato donde arriba en las celdas A1, B1, C1, D1, F1 donde coloco datos variables que serian NOMBRES, APELLIDOS, DIRECCIONES, FECHAS y TELEFONOS. Debajo de eso hay una base de datos para llevar la lista de todos esos clientes.
Lo que quiero es que cuando se agregue la información al formulario tenga un botón donde al pulsar me copie los datos en la base de datos y luego la próxima vez que rellene el formulario y lo pegue, no reemplace el anterior sino que se vaya llenando.
Hola, use tu fórmula, me funciona perfecto para pegarlo, pero cuando vuelvo a copiar otra información la reemplaza, lo que quisiera es que copiara la información abajo de la anterior.
Muchísimas gracias por ayudarme
Eso hace la macro.
¿Tienes dato en la celda A1?
Los datos estan en B3, C3, D3, E3, F3 y en B5
Y quiero que se peguen en B10, C10, D10, E10, F10, Y G10.
Solo que quise buscar la base de la fórmula para intentarlo yo mismo, pero busque la manera y no me funciona.
Prueba esto:
Sub CopiarDatos()
Dim max As Long
max = WorksheetFunction.max(10, Range("B" & Rows.Count).End(3).Row + 1)
If Range("B3").Value = "" Then
MsgBox "Captura el nombre"
Exit Sub
End If
Range("B3, C3, D3, E3, F3").Copy Range("B" & max)
Range("B5").Copy Range("G" & max)
End Sub
