Ejecutar macro
Necesito ejecutar una macro que al colocar la letra I en la celda b4 me oculte las filas a5:a10 y al colocar la letra F en la celda b4 me oculte las filas a15:a20 me podrían ayudar por favor GRACIAS
1 respuesta
Respuesta de angelcrisnor
1
Necesitas programar tu condición como un control de evento.
Este es el código que tienes que poner en el código VB de la Hoja donde tengas la celda:
Private Sub Worksheet_Change(ByVal Target As Range)
Static ValorAntiguo
If Range("$B$4").Value <> ValorAntiguo Then
Rows("5:10").Select
Selection.EntireRow.Hidden = False
Rows("15:20").Select
Selection.EntireRow.Hidden = False
If Range("$B$4").Value = "I" Then
Rows("5:10").Select
Selection.EntireRow.Hidden = True
ElseIf Range("$B$4").Value = "F" Then
Rows("15:20").Select
Selection.EntireRow.Hidden = True
End If
End If
ValorAntiguo = Range("$B$4").Value
End Sub
Este es el código que tienes que poner en el código VB de la Hoja donde tengas la celda:
Private Sub Worksheet_Change(ByVal Target As Range)
Static ValorAntiguo
If Range("$B$4").Value <> ValorAntiguo Then
Rows("5:10").Select
Selection.EntireRow.Hidden = False
Rows("15:20").Select
Selection.EntireRow.Hidden = False
If Range("$B$4").Value = "I" Then
Rows("5:10").Select
Selection.EntireRow.Hidden = True
ElseIf Range("$B$4").Value = "F" Then
Rows("15:20").Select
Selection.EntireRow.Hidden = True
End If
End If
ValorAntiguo = Range("$B$4").Value
End Sub
