Cargar ListBox obviando ciertas líneas según campo de una celda en una columna especifica
Hoy acudo a ustedes con una pregunta que me ha tenido días rondando.
Tengo un listBox donde cargo los datos de una hoja. La hoja puede variar pero los datos contenidos son los mismos.
En la columna F hay dos Posibles Valores, Salida, Entrega Si el valor de esa celda es entregado no debería cargarse al listbox esa toda esa fila de datos.
Adjunto mi código actual
Sub cargalista() With Workbooks("Gestion.xlsm").Sheets(ComboDni.Text).Activate 'Activa la Hoja segun el DNI seleccionado ' 'Declaración de variables ' Dim strTabla As String Dim rngMirango As Range Dim rngMirango2 As Range Dim intColumnas As Integer strTabla = "MiTabla" On Error Resume Next ' 'Creamos el nombre a la tabla de la hoja activa ' ActiveWorkbook.Names("MiTabla").Delete Set rngMirango = ActiveSheet.Range("B1").CurrentRegion Set rngMirango2 = rngMirango.Offset(1, 1).Resize(rngMirango.Rows.Count - 1, _ rngMirango.Columns.Count) rngMirango2.Name = strTabla intColumnas = rngMirango2.Columns.Count ' 'Formateamos ListBox ' With Lista .ColumnCount = intColumnas .ColumnWidths = "60 pt;60 pt" .ColumnHeads = True End With Lista.RowSource = strTabla On Error GoTo 0 End With End Sub
2 respuestas
Respuesta de Dante Amor
1
Respuesta de James Bond
1