Følgespørgsmål til "skjul rækker i Excel"

Hej,

Jeg har oprettet et regneark der skal fungere som tjekliste i forb med en række spørgsmål man kan svare ja/nej til. Der er ca. 100 rækker med disse spørgsmål og jeg har lavet en conditional formating på cellerne (B2-B100) således det via et panel kun er muligt at svare netop ja/nej.

En række af de underliggende spørgsmål bliver overflødige i det øjeblik der svares nej i række 40. Det betyder:

Hvis række 40 = "Nej" så skal række 70 - 72 automatisk skjules.

Jeg er ikke interesseret i at rækkerne skal sjules ved at man trykker på en knap. Det skal ske automatisk når man vælger "nej".


Kommentar: stewen
11/11-2004 10:32:49

Prøv denne! Jeg har forudsat at man i celle A40 indtaster "Nej" - bemærk at den er case sensisitive. Bemærk ligeledes at koden skal lægges "på arket" i VBA - ikke i et modul

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim selections As Range
Set selections = Range("A40")

If Target.Address = selections.Address Then
       
Application.ScreenUpdating = False

    If Range("a40").Text = "Nej" Then
        Rows("70:72").Hidden = True
   
    Else
        Rows("70:72").Hidden = False
     
    End If
     
End If
   
Application.ScreenUpdating = True

End Sub

-------------------------------------------
Ovenstående er det svar jeg fik af Stewen og dette fungerer fint. Jeg har dog problemer når jeg skal have funktionen til at virke for flere celler i samme ark.


eksempelvis skal cellerne B3, B4, B5, B6 alle få flere af de nedenstående rækker til at skjules automatisk.

Det betyder at B3 hvis "nej" skal få række 48-52 til at skjules
B4 hvis "nej" skal få række 60 - 70 til at skjules
etc...

Jeg har prøvet kopiere ovenstående makro og blot ændre celle/række referencerne men dette virker ikke.

Til information kan jeg oplyse at når jeg har kopieret makroen og ændrer disse referencer skifter status i rullepanelet foroven fra at hedde "worksheet" til at hedde "general"...

Nogen der kan hjælpe?