Hola, buenos dias tengo un problema en un combobox, el cual lo utilizo para listar categorias y dependiendo de eso listo otra categoria, pero tengo un error cuando el valor de la primera categoria es null o vacio "". aqui el codigo:
Private Sub cbo_Categoria_DropButtonClick()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("BD")
Dim i As Integer
Dim n As Integer
n = Application.WorksheetFunction.Match(Me.cbo_Categoria.Value, sh.Range("1:1"), 0)
Me.cbo_Tipo.Clear
For i = 2 To Application.WorksheetFunction.CountA(sh.Cells(1, n).EntireColumn)
Me.cbo_Tipo.AddItem sh.Cells(i, n).Value
Next i
Tengo error en la linea n; porque el valor de cbo_Categoria es "", osea vacio.
como puedo solucionarlo.?
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola, buenos dias tengo un problema en un combobox, el cual lo utilizo para listar categorias y dependiendo de eso listo otra categoria, pero tengo un error cuando el valor de la primera categoria es null o vacio "". aqui el codigo:
Private Sub cbo_Categoria_DropButtonClick()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("BD")
Dim i As Integer
Dim n As Integer
n = Application.WorksheetFunction.Match(Me.cbo_Categoria.Value, sh.Range("1:1"), 0)
Me.cbo_Tipo.Clear
For i = 2 To Application.WorksheetFunction.CountA(sh.Cells(1, n).EntireColumn)
Me.cbo_Tipo.AddItem sh.Cells(i, n).Value
Next i
Tengo error en la linea n; porque el valor de cbo_Categoria es "", osea vacio.
como puedo solucionarlo.?