Quiero agregar los dados de un combobox a varias celda de excel hacia abajo
A medida que vaya escogiendo una opción del combobox se me agregue a una celda especifica y de ahí para abajo cada vez que escoja otra.
If COMB_EQUIPOS = Empty Then
MsgBox ("Se requiere que seleccione un nombre"), vbCritical, "AVISO"
COMB_EQUIPOS.SetFocus
Exit Sub
ElseIf Worksheets("EQUIPOS_ASIGNADOS").Activate Then
Range("b2").End(xlDown).Offset(1, 0).Value = COMB_EQUIPOS.Value
End If
Lo malo es que partiendo de b2 tengo que tener agregados datos en b2 y en b3 porque me sale un error no soy experto pero como hago para hacerlo a partir de la celda que quiera hacia abajo sin tener datos en b2 y b3, que en b3 me salga la primera selección de combobox y así sucesivamente
1 respuesta
Debes determinar la última fila con datos para ir guardando datos elegidos en el combobox.
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
cells(uf+1,"A")=combobox1
Se debe poner en el evento after update del combobox, entonces determinas la última fila con datos la primer fila libre es la uf +1, esa fila la haces igual al combobox1. value y listo
Estos ejemplos te pueden ser útiles
