Error en Vba Excel Combobox List Categoria

2 envíos / 0 nuevos
Último envío
ronalehm
Imagen de ronalehm
Offline
última acción: Hace 2 meses 1 semana
alta: 31/03/2020 - 18:18
Puntos: 25
Error en Vba Excel Combobox List Categoria

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.?

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 1 semana 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12715
Entiendo que si el valor es "

Entiendo que si el valor es "" entonces no quieres hacer nada en el segundo desplegable. Simplemente mételo dentro de un If, de manera que lo de dentro solamente se ejecute si el valor es <>""

 

Un saludo