![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
28/04/2008, 04:21
|
![Avatar de 3pies](http://static.forosdelweb.com/customavatars/avatar49448_4.gif) | Colaborador | | Fecha de Ingreso: diciembre-2003 Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 21 años, 2 meses Puntos: 144 | |
Re: boton en excel para meter datos en otra hoja con un input box Haz esto:
Código:
'Seleccionamos la celda B3
Range("B3").select
'hasta que no encuentre una fila vacía...
Do While Not IsEmpty(ActiveCell)
'que vaya bajando una fila
ActiveCell.Offset(1,0).select
Loop
'como ahora ya estamos en la fila vacía,
'solo nos queda escribir los datos:
Activecell = matricula
'pasamos a la siguiente columna
Activecell.offset(0,1)=marca
'pasamos a la siguiente columna
Activecell.offset(0,2)=modelo
'pasamos a la siguiente columna
Activecell.offset(0,3)=categoria
'pasamos a la siguiente columna
Activecell.offset(0,4)=combustible
'pasamos a la siguiente columna
Activecell.offset(0,5)=aceite Salu2 |