Regels verbergen

[cverkooyen]

Ik zit met een probleem, ik wil graag regels verbergen onder bepaalde voorwaarden, ik gebruik het script:

If [C13] = 0 Then
Rows("2:2").EntireRow.Hidden = True
Else
Rows("2:2").EntireRow.Hidden = False
End If

Hoe kan ik die regels op een ander blad verbergen?

 

[Demeter]

Probeer deze eens:

Sub test()

    If Range("C13") = 0 Then
        Sheets(2).Rows("2").EntireRow.Hidden = True
    Else
        Sheets(2).Rows("2").EntireRow.Hidden = False
    End If

Sheets(2).Activate

End Sub

 

[cverkooyen]

Hij geeft een gele lijn bij Sheets(begin).Rows("2").EntireRow.Hidden = True

Mijn tabblad heet dus begin.

 

[Wigi]

Hij geeft een gele lijn bij Sheets(begin).Rows("2").EntireRow.Hidden = True

Mijn tabblad heet dus begin.

Doe:

Sub test()
Sheets("Begin").Rows(2).Hidden = (Range("C13") = 0)
End Sub

Wigi

 

[cverkooyen]

Super, hij werkt!

 

[Demeter]

Met Sheets(2) geef je aan dat je sheet nr 2 wilt selecteren (in je VBE zie je achter de namen van je blad het blad nummer staan bv. Begin ("Blad 1"), hiervoor kan je dan ook Sheets(1) gebruiken ipv Sheets("Begin") zo kan je nog een keer je naam veranderen op de tab )

Met Sheets("begin") geef je aan dat je de sheet met naam 'Begin' wilt selecteren.

In jouw geval was je de "" tekens vergeten, waardoor Excel het blad niet kon vinden.


Groet,
Ferenc

 

[cverkooyen]

Nog een kleine aanvullende vraag, is het mogelijk om deze regel:

Sheets("Schema").Visible = (Range("C9") > 0)

Uit te breiden zodat er wordt gekeken of in de cellen C9 tot en met C13 een waarde hoger is dan 0?

Sheets("Schema").Visible = (Range("C9:C10") > 0) werkt niet.

 

[Demeter]

Probeer deze eens:

Sub ShowTotal()
Dim ShowTotal As Integer

ShowTotal = Range("C9") + Range("C10")

If ShowTotal > 0 Then
    Worksheets("Schema").Visible = False
Else
    Worksheets("Schema").Visible = True
End If

End Sub

Groet,
Ferenc

 

[cverkooyen]

Helemaal super hij werkt! Bedankt! :thumb:

 

[Wigi]

Zo:

Sheets("Schema").Visible = (Range("C9") + Range("C10") <= 0)

Wigi

 

[cverkooyen]

Dat is wel weer een stuk korter ja! Bedankt!