Oculrar y mostrar filas según el valor de una celda

Pretendo que si una celda esta vacía se oculte toda la fila correspondiente a esa celda, pero que se muestre si tiene datos. Los datos de dicha celda son consecuencia de una formula y los toma de otra hoja. Intentare explicarlo con un ejemplo.

Las celdas A1, A2, y A3 de la hoja1 toman los valores que introduzco en las celdas B1, B2 y B3 de la hoja2 respectivamente. Lo que quiero es que si por ejemplo en la B2 no pongo datos, la fila de la celda A2 hoja1 se oculte y se muestre cuando introduzca datos en la B2.

1 Respuesta

Respuesta
1

Pon la siguiente macro en los eventos de la hoja2

Private Sub Worksheet_Change(ByVal Target As Range)
'Oculta la fila de la hoja1
    Set h1 = Sheets("Hoja1")
    col = "B"
    If Not Intersect(Target, Columns(col)) Is Nothing Then
        If Target.Count > 100 Then Exit Sub
        For Each c In Target
            If c.Value = "" Then
                h1.Rows(c.Row).EntireRow.Hidden = True
            Else
                h1.Rows(c.Row).EntireRow.Hidden = False
            End If
        Next
    End If
End Sub

Sigue las Instrucciones para poner la macro en los eventos de worksheet

  1. Abre tu libro de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
  4. En el panel del lado derecho copia la macro

.

.Sal u dos. Dante Amor. Si es lo que necesitas R ecuerda valorar la respuesta. G racias

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas