If Then Else formules probleem

[jk88]

Ik heb te lang niet meer met VBA gewerkt, ik kom niet meer goed uit de If Then Else formules.

Zou iemand mij kunnen helpen met een werkende formule die het volgende doet:

IF (B21 = "0") Then 

Rows(16 tot 22).Hide 

Else 
Rij(16 tot 22).Unhide

B21 is overigens een waarde die hij uit een andere sheet pakt.

Alvast bedankt!

 

[Cobbe]

Zo zal dat wel lukken:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Cells(21, 2) = 0 Then
   Rows("16:22").RowHeight = 0
 Else
   Rows("16:22").RowHeight = 15
 End If
End Sub

 

[leofact]

Waarom niet gewoon de rijen verbergen?

Sub Rij()
    ActiveSheet.Rows("16:22").Hidden = IIf(Range("b21") = 0, True, False)
End Sub

Deze regel kan eventueel ook in de selectionchange worden opgenomen.

Mvg Leo

 

[Cobbe]

Het resultaat blijft hetzelfde maar toch had ik iets over het hoofd gezien,
Als cel B21 is leeg dan....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Rows("16:22").Hidden = IIf(IsEmpty(Range("b21")), True, False)
End Sub

 

[leofact]

Kan, maar met de IsEmpty worden de rijen niet verbogen als er in b21 een 0 staat, of als er een formule in staat.
De vraag uit de titel betreft inderdaad wel specifiek een lege cel.
Een voorbeeld bestandje doet soms wonderen

Mvg Leo

 

[jk88]

Ondanks dat ik er geen voorbeeld bestandje bij had gedaan werkt uw oplossing

    ActiveSheet.Rows("16:22").Hidden = IIf(Range("b21") = 0, True, False)

perfect.

Ik heb deze code gewoon op de juiste locatie in het bestaande VBA script gezet en hij werkt perfect. Ook als hij bij de eerste invoer op Hide wordt gezet, en ik het formulier later nog eens invul maar dan met een waarde groter dan 0 dan Unhide hij hem ook goed.

Is er een reden voor waarom ik beter een private sub kan gebruiken (zo ja, hoe voeg ik die toe/laat ik die uitvoeren in de huidige sub?)

 

[leofact]

Da's mooi.

Het heeft de voorkeus om de code inderdaad in het bestaande script op te nemen.
De genoemde private sub is een event macro, een macro die door een bepaalde gebeurtenis wordt getriggert.

De change event zou meer voor de hand liggen. De start na een werkblad wijziging

Private Sub Worksheet_Change(ByVal Target As Range)
 ActiveSheet.Rows("16:22").Hidden = IIf(Range("b21") = 0, True, False)
End Sub

Even macro's staan bij de excel objecten in het betreffende blad.
Ze zijn handig, maar kunnen onverwachte effecten oproepen.

 

[jk88]

Bedankt