|
|
#1 (permalink) |
![]() Fecha de Ingreso: abril-2008
Mensajes: 7
|
|
|
|
|
|
|
#2 (permalink) |
![]() Fecha de Ingreso: octubre-2005
Mensajes: 502
|
Re: boton en excel para meter datos en otra hoja con un input box
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?
|
|
|
|
|
|
#3 (permalink) |
![]() Fecha de Ingreso: abril-2008
Mensajes: 7
|
Cita:
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 |
|
|
|
|
|
#4 (permalink) |
![]() Fecha de Ingreso: octubre-2005
Mensajes: 502
|
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! |
|
|
|
|
|
#6 (permalink) |
|
Colaborador
![]() Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 1.798
|
Re: boton en excel para meter datos en otra hoja con un input box
Haz esto:
Código:
Salu2'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
|
|
|
|
|
|
#7 (permalink) |
![]() Fecha de Ingreso: abril-2008
Mensajes: 7
|
Muchas gracias, ya me funciona el salto de fila, pero solo te molesto una vez mas: para insertar los datos en otra hoja? porque el boton lo tengo en la hoja1 y los datos los kiero insertar en la hoja6. muxas gracias y ya no molesto mas
|
|
|
|
|
|
#8 (permalink) |
|
Colaborador
![]() Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 1.798
|
Re: boton en excel para meter datos en otra hoja con un input box
Simplemente añade esta línea al comienzo de esas líneas que te acabo de poner:
Código:
Esa línea debe ir justo encima de esta otra:Hoja6.Select
Código:
De esa forma, todo lo que hagas de ahí en adelante, estará referenciado a la Hoja6. Si posteriormente quieres hacer algo con otra hoja, simplemente tendrás que seleccionarla de la misma forma que te he puesto aquí.Range("B3").select
Por ejemplo, si al finalizar, quieres volver a la hoja 1, pon esto después de la última línea que te puse en el post anterior:
Código:
Salu2Hoja1.Select PD: Si quieres que no se vea el "movimiento" de pantallas (el refresco constante de la pantalla, a medida que se van haciendo las cosas), pon esta otra línea al principio de tu macro (la primera línea):
Código:
y como última línea del macro, pon esta:Application.ScreenUpdating = False
Código:
Application.ScreenUpdating = True |
|
|
|
![]() |
| Herramientas | |
| Desplegado | |
|
|