Re: Macro en excel

Hola Nickuser

Se me ocurre lo siguiente

'--modulo del UserForm
Option Base

Private Sub UserForm_Initialize(
Dim rng As Rang
With Sheets("Hoja1"
Set rng = .Range([A2],
.Cells(.Rows.Count, "A").End(xlUp)
End Wit
ComboBox1.List = Unique(rng
End Su

Function Unique(inArray As Range) As Varian
Dim colItems As Collectio
Dim cell As Rang
Dim temp As Varian

Set colItems = New Collectio
On Error Resume Nex
For Each cell In inArra
colItems.Add cell.Value, CStr(cell.Value
Next cel
ReDim temp(colItems.Count
For i = 1 To colItems.Coun
temp(i) = colItems.Item(i
Next
Unique = tem
End Functio
'--modulo del UserForm

Saludos
K

"Nickuser8" <Nickuser8.1zxr3b@no-mx.softwaremix.net> wrote in message news:Nickuser8.1zxr3b@no-mx.softwaremix.net...

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 po
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 crea
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


-
Nickuser

Ver este tema: http://www.softwaremix.net/viewtopic-462797.htm

Enviado desde http://www.softwaremix.ne

No me funciona

Dice se ha producido el siguiente error en tiempo de ejecución "ERROR 438
"El objeto no admite esta propiedad u Método

Gracias, Kl por tu respuesta si la puedes ver , por favor

Nickuser8

Ver este tema: http://www.softwaremix.net/viewtopic-462797.htm

Enviado desde http://www.softwaremix.net