Quiero generar una lista en excel a partir de varios checkbox
Tengo un userform con varios checkbox, lo que quiero es que al momento de enviar mis datos a excel mediante un botón, estos se enlisten sin importar que existan checkboxs que no hayan sido seleccionados. Y que dicha lista aparezcan uno tras de otro en excel.
1 Respuesta
Respuesta de Dante Amor
1
Puedes enviarme tu archivo con ejemplos y me explicas paso a paso qué es lo que quieres que haga la macro.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario "eduardo ortega" y el título de esta pregunta.
Pon lo siguiente en tu formulario
Private Sub Enviar_Click()
'Por.Dante Amor
For Each cb In Controls
If TypeName(cb) = "CheckBox" Then
If cb Then
u = Range("B" & Rows.Count).End(xlUp).Row + 1
check = Mid(cb.Name, 6)
combo = "combo" & check
If Mid(cb.Name, 7, 1) = "F" Then
conc = "Tubería Flexible"
Else
Select Case Mid(cb.Name, 7, 2)
Case "PG": conc = "Tubería Conduit pared Gruesa"
Case "PV": conc = "Tubería PVC tipo Pesado"
Case "PD": conc = "Tubería Conduit pared Delgada"
End Select
End If
Cells(u, "B") = conc & " " & cb.Caption
Cells(u, "C") = "Pza"
Cells(u, "D") = Controls(combo).Value
End If
End If
Next
End SubSaludos.Dante Amor
