Ver Mensaje Individual
  #4 (permalink)  
Antiguo 27/04/2008, 16:47
gmansi
Invitado
 
Mensajes: n/a
Puntos:
Re: boton en excel para meter datos en otra hoja con un input box

Por tu ejemplo controlas la fila donde se escribe con el parámetro que le pasas al rango.

Hoja6.Range("f3").Value = aceite

Yo en tu lugar usaría una celda alejada de la planilla donde almacenar el número correspondiente la última fila con datos.

Por ejemplo en la celda M5 por decir algo digitas un 10 si es ahí donde comenzarás a llenar los datos.

Luego donde tú dices:

For Each hoja In Sheets
Hoja6.Range("A3").Value = matricula
Hoja6.Range("B3").Value = marca
Hoja6.Range("c3").Value = modelo
Hoja6.Range("d3").Value = categoria
Hoja6.Range("e3").Value = combustible
Hoja6.Range("f3").Value = aceite

Next hoja

Trataría de controlar ese "3" con el valor de la celda M10 y al terminar de llenar los datos aumentas el valor de M5 en 1.

O sea lo que antes era:

Hoja6.Range("A3").Value = matricula

quedaría

Hoja6.Range(=CONCATENAR("A3";M5)).Value = matricula

y luego de que terminas con todas las variales aumentas el valor de tu "contador de filas" M5 usando

AUMENTO=M5+1
M5=AUMENTO

Por supuesto que antes declaraste la variable AUMENTO como numérica.

A ver si con eso sale bien!