Tengo uncombobox1que se carga al iniciar ellibroprueba.xlsm, estecombobox1al elegir un dato a su vez me carga otrocombobox2con esta instrucción:
Private Sub Combobox1_Change()
Dim i As Integer
Dim libro As Workbook
Combobox2.Clear
Set libro = Workbooks.Open("libroprueba.xlsm")
With libro.Sheets("hoja1")
For i = 2 To .Range("P" & Rows.Count).End(xlUp).Row
If .Cells(i, 2).Value = combobox1.Value Then
combobox2.AddItem .Cells(i, 16).Value
End If
'Next i
End With
libro.close
End Sub
Mi problema es que elcombobox2 me esta cargando con registros repetidos...¿Como puedo modificar esta macro para que no se repitan dichos registros? Muchas gracias por la ayuda...
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Tengo un combobox1 que se carga al iniciar el libroprueba.xlsm, este combobox1 al elegir un dato a su vez me carga otro combobox2 con esta instrucción:
Private Sub Combobox1_Change()
Dim i As Integer
Dim libro As Workbook
Combobox2.Clear
Set libro = Workbooks.Open("libroprueba.xlsm")
With libro.Sheets("hoja1")
For i = 2 To .Range("P" & Rows.Count).End(xlUp).Row
If .Cells(i, 2).Value = combobox1.Value Then
combobox2.AddItem .Cells(i, 16).Value
End If
'Next i
End With
libro.close
End Sub
Mi problema es que el combobox2 me esta cargando con registros repetidos...¿Como puedo modificar esta macro para que no se repitan dichos registros? Muchas gracias por la ayuda...