Hola os dejo un fragmento de código que encontré en nuestro foro y que he "tuneado" para mi aplicación. La cosa es que quiero rellenar mi listbox, pero no se hacerlo con varias condiciones. Me podría valer que hubiese dos condiciones (En curso y pendiente) o que la condición fuese distinta a la palabra de filtro (en este caso "Completado"). Os dejo el código y donde creo que puede estar la clave en negrita a ver si me podeis ayudar: Dim hj As Worksheet Dim c As Range, FirstCell As String Dim busque Dim filtro Dim columna Application.ScreenUpdating = False filtro = "R1: R" columna = "R" busque = "Completado" listbox_parte.Clear With listbox_parte .AddItem "Nº" .Column(1, 0) = "IDENTIFICACIÓN" .Column(2, 0) = "FECHA" .Column(3, 0) = "LUGAR" .Column(4, 0) = "CI/AI" .Column(5, 0) = "ACCION NECESARIA" .Column(6, 0) = "RESPONSABLE" .Column(7, 0) = "ESTADO" End With With listbox_parte .AddItem "--------------------------------------------" .Column(1, 1) = "----------------------------------------------------------------------------------------" .Column(2, 1) = "----------------------------------------------------------------------------------------" .Column(3, 1) = "----------------------------------------------------------------------------------------" .Column(4, 1) = "----------------------------------------------------------------------------------------" .Column(5, 1) = "----------------------------------------------------------------------------------------" .Column(6, 1) = "----------------------------------------------------------------------------------------" .Column(7, 1) = "----------------" End With Set c = Sheets("PLAN_ACCIONES").Range(filtro & Sheets("PLAN_ACCIONES").Range(columna & Rows.Count).End(xlUp).Row).Find(What:=busque, LookIn:=xlValues, LookAt:=xlPart) If c Is Nothing Then GoTo ProximaHoja FirstCell = c.Address Do With listbox_parte .ColumnCount = 8 .ColumnWidths = "20;120;80;150;40;360;180;130" .AddItem listbox_parte.ListCount - 1 .Column(1, listbox_parte.ListCount - 1) = c.Offset(0, -17).Value .Column(2, listbox_parte.ListCount - 1) = c.Offset(0, -16).Value .Column(3, listbox_parte.ListCount - 1) = c.Offset(0, -12).Value .Column(4, listbox_parte.ListCount - 1) = c.Offset(0, -11).Value .Column(5, listbox_parte.ListCount - 1) = c.Offset(0, -9).Value .Column(6, listbox_parte.ListCount - 1) = c.Offset(0, -4).Value .Column(7, listbox_parte.ListCount - 1) = c.Value End With Set c = Sheets("PLAN_ACCIONES").Range(filtro & Sheets("PLAN_ACCIONES").Range(columna & Rows.Count).End(xlUp).Row).FindNext(c) Loop Until FirstCell = c.Address ProximaHoja: Set hj = Nothing Set c = Nothing Application.ScreenUpdating = True

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Relleno con dos condiciones

Autor del tema davitol
Fecha de inicio 15 Dic 2011

davitol

New member

15 Dic 2011

Hola os dejo un fragmento de código que encontré en nuestro foro y que he "tuneado" para mi aplicación. La cosa es que quiero rellenar mi listbox, pero no se hacerlo con varias condiciones. Me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

Autorrelleno de numero

Respuestas: 4

17 Dic 2025

Eldanilo10

Pregunta

Color de relleno de celda poner un 0 o 1 según color

Respuestas: 6

19 Mar 2024

lefrudis

Pregunta

Actualizar autom. el COLOR DE RELLENO en una celda de una hoja a otra.

Respuestas: 3

21 Feb 2024

Leopoldo Blancas

Resuelto

Copiar sólo relleno de celdas con formato condicional

Respuestas: 1

8 Sep 2023

FGV

Resuelto

Macro grabar hora de relleno y copiar filas según valor celda

Respuestas: 6

13 Abr 2021

Haplox

Pregunta

Autorrelleno en lista desplegable (problema)

Respuestas: 1

30 Nov 2020

HERMES65

Pregunta

Lista Desplegable autorelleno

Respuestas: 8

17 Nov 2020

Adrián Escalante G

Resuelto

Vincular - Formato y relleno de color

Respuestas: 3

8 Ago 2020

Héctor Miguel

Pregunta

agregar a codigo relleno de celda aleatoriamente

Respuestas: 1

30 Jul 2020

_Tato_

Pregunta

AYUDA: ERROR EN MACRO DE RELLENO

Respuestas: 8

24 Jul 2018

franco.ventas.26

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba