Rellenar celdas consecutivas desde combo box VBA
Hola que tal!
Tengo esta gran duda, soy nuevo en la programación VBA en excel. Ya he buscado mucha información en como rellenar celdas consecutivamente, pero no he encontrado nada que pueda ayudarme. La situación es esta, tengo un botón de comando y un combo box con el nombre de algunos dispositivos ademas de un textbox en donde se asigna una cantidad. Lo que intento lograr es cada vez que de click en el botón de comando se agregue el dato en el combobox y en el textbox a una celda, digamos "A3" y "B3" respectivamente, después el segundo dato al dar click de nuevo al botón se ira a la celda "A4" y "B4" y así sucesivamente...
Hasta el momento solo he logrado rellenar la primer celda, pero no he podido rellenar la siguiente sin que el dato en la celda anterior se vea afectado esto lo he logrado con el siguiente código:
Private Sub CommandButton1_Click()
Range("A3").Value = listamodelos.Text
Range("B3").Value = cantidad.Text
Espero me puedan ayudar. De antemano muchas gracias!
Tengo esta gran duda, soy nuevo en la programación VBA en excel. Ya he buscado mucha información en como rellenar celdas consecutivamente, pero no he encontrado nada que pueda ayudarme. La situación es esta, tengo un botón de comando y un combo box con el nombre de algunos dispositivos ademas de un textbox en donde se asigna una cantidad. Lo que intento lograr es cada vez que de click en el botón de comando se agregue el dato en el combobox y en el textbox a una celda, digamos "A3" y "B3" respectivamente, después el segundo dato al dar click de nuevo al botón se ira a la celda "A4" y "B4" y así sucesivamente...
Hasta el momento solo he logrado rellenar la primer celda, pero no he podido rellenar la siguiente sin que el dato en la celda anterior se vea afectado esto lo he logrado con el siguiente código:
Private Sub CommandButton1_Click()
Range("A3").Value = listamodelos.Text
Range("B3").Value = cantidad.Text
Espero me puedan ayudar. De antemano muchas gracias!
1 Respuesta
Respuesta de calvuch
1
Ups!.
Se paso algo... me di cuenta que necesitabas que fuese desde la linea 3
Y olvide el incremental., sorry. Ahora si:
Private Sub CommandButton1_Click()
Dim fila As Integer
fila = Application.WorksheetFunction.CountA(Range("A:A")) + 3
fila = fila + 1
Range("A" & fila).Value = listamodelos.Text
Range("B" & fila).Value = cantidad.Text
End Sub
Se paso algo... me di cuenta que necesitabas que fuese desde la linea 3
Y olvide el incremental., sorry. Ahora si:
Private Sub CommandButton1_Click()
Dim fila As Integer
fila = Application.WorksheetFunction.CountA(Range("A:A")) + 3
fila = fila + 1
Range("A" & fila).Value = listamodelos.Text
Range("B" & fila).Value = cantidad.Text
End Sub
