Encontre una solución parcial envió el código, mi planteamiento es más claro, si ves en mi código
Private Sub UserForm_Activate(
Dim i As Lon
Dim cant As Intege
Dim celda As Strin
Sheets("Hoja1").Selec
Range("A2").Selec
cant = Worksheets("hoja1").Range("A2").CurrentRegion.Rows.Coun
ComboBox1.Clea
For i = 2 To can
If Cells(i, 1) <> "" The
If Cells(i, 1) <> celda The
celda = Cells(i, 1
ComboBox1.AddItem Cells(i, 1
End I
End I
Next
End Su
Esto funciona mientras los datos esten ordenados por nombre de calle, pero basta con que se introduzca otra calle al final por ejm.: Teatinos y se cae, repite el dato en el combo
Necesito hacer esto para luego seleccionar Teatinos y mediante este dato me traíga los códigos asociados a la calle, y crear tantos CheckBox como códigos tenga la calle, espero haber sido más claro.
Y como dije acepto sugerencias, en cuanto a la macro, gracias
Nickuser8
Ver este tema:
http://www.softwaremix.net/viewtopic-462797.htm
Enviado desde
http://www.softwaremix.net
Leer las respuestas