Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #2047
    A lenti makrót a lapodhoz kell rendelned, amelyiken a rejtést, felfedést végre akarod hajtani. Lapfülön jobb klikk, "Kód megjelenítése". Bejutottál a VBA szerkesztőbe, ahol a jobb oldali nagy fehér mezőbe másolod be a makrót.

    Célszerű előre elrejteni a 11:35 sorokat.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [B11:B35]) Is Nothing Then
    If Target > "" Then
    Rows(Target.Row + 1).EntireRow.Hidden = False
    Else
    Rows(Target.Row + 1).EntireRow.Hidden = True
    End If
    End If
    End Sub