Mostrar / Ocultar filas según una celda / lista desplegable
Resuelto
DeutschWorker
Mensajes publicados
27
Estado
Miembro
-
DeutschWorker Mensajes publicados 27 Estado Miembro -
DeutschWorker Mensajes publicados 27 Estado Miembro -
Hola,
Te escribo hoy porque no consigo hacer lo que deseo.
En efecto, en la celda G1 he creado una lista desplegable de períodos (que de hecho contiene espacios en blanco ...).
Debajo de esta celda, he creado una tabla con semanas en la que hago referencia a horas extra.
Desearía que, en función de lo que se muestre en la celda G1, solo queden en la tabla las filas que correspondan al período.
Es decir: Período del 1 de octubre al 28 de octubre, que solo queden las 4 semanas de ese período en la tabla.
Por lo tanto, supongo que habrá que ocultar las demás filas.
¿Podrías ayudarme a resolver este caso? :/
Muchas gracias,
Atentamente.
Te escribo hoy porque no consigo hacer lo que deseo.
En efecto, en la celda G1 he creado una lista desplegable de períodos (que de hecho contiene espacios en blanco ...).
Debajo de esta celda, he creado una tabla con semanas en la que hago referencia a horas extra.
Desearía que, en función de lo que se muestre en la celda G1, solo queden en la tabla las filas que correspondan al período.
Es decir: Período del 1 de octubre al 28 de octubre, que solo queden las 4 semanas de ese período en la tabla.
Por lo tanto, supongo que habrá que ocultar las demás filas.
¿Podrías ayudarme a resolver este caso? :/
Muchas gracias,
Atentamente.
3 respuestas
-
Hola,
en VBA para descargar
https://www.cjoint.com/c/IJmnpORYZeQ
--
@+ El Pivert-
-
Coloca un botón con este código:
Option Explicit Dim FL1 As Worksheet, NoCol As Integer Dim NoLig As Long, Var As Variant Private Sub CommandButton1_Click() For_X_to_Next_Ligne End Sub Sub For_X_to_Next_Ligne() Set FL1 = Worksheets("Feuil1") NoCol = 3 'lectura de la columna C For NoLig = 7 To Split(FL1.UsedRange.Address, "$")(4) Var = FL1.Cells(NoLig, NoCol) If Range("G2") = Var Then Rows("7:71").EntireRow.Hidden = True Rows(NoLig & ":" & NoLig + 4).EntireRow.Hidden = False End If Next Set FL1 = Nothing End Sub
ATENCIÓN en la lista desplegable falta un 8 en 2018
Voilà
@+ Le Pivert -
-
-
Hola,
Un ejemplo de tu archivo sería bienvenido mejor que una foto
Para transmitir un archivo,
Asegúrate de que NO haya DATOS CONFIDENCIALES
hay que pasar por un sitio de adjuntos como cjoint.com
Ve a este sitio: https://www.cjoint.com/
Haz clic en examinar,
Busca tu archivo,
haz clic en Abrir,
Haz clic en "Crear el enlace cjoint",
Copiar el enlace,
Vuelve aquí y pégalo en una respuesta...
Atentamente -
