Ver Mensaje Individual
  #3 (permalink)  
Antiguo 27/04/2008, 11:33
kalaos7
 
Fecha de Ingreso: abril-2008
Mensajes: 7
Antigüedad: 16 años
Puntos: 0
Re: boton en excel para meter datos en otra hoja con un input box

Cita:
Iniciado por gmansi Ver Mensaje
Y no puedes hacer una minimacro que se posicione grabando las pulsaciones END y flecha hacia abajo por ejemplo? y luego meter ese pedacito de código antes de ejecutar tu aplicación?
muchas gracias por responder, pero no entiendo lo que me quieres decir, te pongo el codigo de mi aplicacion para ver si asi te hes mas facil ayudarme:

Private Sub CommandButton1_Click()
Dim matricula As String
Dim marca As String
Dim modelo As String
Dim categoria As String
Dim combustible As String
Dim aceite As String
Dim strMsg As String
matricula = InputBox("Inserte la matricula del vehiculo:", "Nuevo vehiculo")
marca = InputBox("Inserte la marca del vehiculo:", "Nuevo vehiculo")
modelo = InputBox("Inserte el modelo del vehiculo:", "Nuevo vehiculo")
categoria = InputBox("Inserte la categoria del vehiculo:", "Nuevo vehiculo")
combustible = InputBox("Inserte el combustible del vehiculo:", "Nuevo vehiculo")
aceite = InputBox("Inserte el aceite del vehiculo:", "Nuevo vehiculo")
strMsg = "El coche con matricula " & matricula & ", " & modelo & " se a creado"
MsgBox strMsg
Dim hoja As Worksheet
Dim celda As Characters
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