mostrar y ocultar filas segun cambia valor de celda

3 envíos / 0 nuevos
Último envío
Joselinne
Imagen de Joselinne
Offline
última acción: Hace 6 meses 1 semana
alta: 09/05/2019 - 02:34
Puntos: 35
mostrar y ocultar filas segun cambia valor de celda

Hola quisiera pedir de su ayuda para ver como puedo solucionar mi problema, ya que soy inexperta en el tema de macros en excel.

Mi problema es que quiero poder con un macro ocultar y mostrar determinadas filas segun cambie el valor de una celda (A1) pero esta celda no es un valor que yo escribí, si no que contiene una formula (buscarv) y al parecer por eso creo yo que no puedo.

En esta imagen que adjunto lo que quiero hacer con el macro es que segun el valor de A1 si = a 1°SEMESTRE 2012 entonces oculte de la fila 23 hacia abajo y solo deje las filas 11:20. Pero creo yo... que como A1 esta con una formula no toma el valor de txt que agrego D:

No se si me explico bien :/ 

Desde ya muchas gracias al que me responda Risa

AdjuntoTamaño
Image icon sin_titulo.png36.24 KB

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 4 semanas 1 día
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12455
HolaNo tiene nada que ver que

Hola

No tiene nada que ver que las celdas tengan una fórmula con que se pueda ocultar o no. Seguramente haya alguna cosa que se pueda mejorar en tu macro.

¿Puedes poner aquí qué has intentado y no te ha funcionado?

 

Un saludo

Joselinne
Imagen de Joselinne
Offline
última acción: Hace 6 meses 1 semana
alta: 09/05/2019 - 02:34
Puntos: 35
Hola, ya pude hacer lo que

Hola, ya pude hacer lo que queria

Lo deje así y me funciono:

Private Sub worksheet_change(ByVal target As Range)

If Range("A1").Value = "1°SEMESTRE 2013" Or Range("A1").Value = "2°SEMESTRE 2013" Then

    Rows("11:23").EntireRow.Hidden = True

    Rows("32:82").EntireRow.Hidden = True

Else

    Rows("11:23").EntireRow.Hidden = False

    Rows("32:82").EntireRow.Hidden = False

End If            

End Sub

        

Risa