rij verbergen

[stefano]

Bestaat de mogelijkheid om een volledige rij ( zeg maar rij 15 ) te verbergen wanneer ik in cel a1 de waarde x ingeef ?

Hoe kan ik dit bekomen ?

dank voor jullie reactie.

Stefaan

 

[wiki]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Range("a1").Value = "x" Then
Rows("15:15").EntireRow.Hidden = True
Else
Rows("15:15").EntireRow.Hidden = False
End If



End Sub

gr Wim

 

[stefano]

Er gebeurt niks, zie bijlage aub.

 

[wiki]

zie bijlage waar de code geplaatst is

gr wim

 

[snb]

Alternatief

Private Sub Worksheet_Change( ByVal Target As Range)
  Rows(15).Hidden = [A1]="x"
End Sub

 

[stefano]

als ik nu een aanpassing wil doen naar "x" of "X" ( kleine letters of hoofdletters), is onderstaand dan goed ? Neen want het werkt niet :

If Range("a1").Value = "x" or Range("a1").Value = "X" Then


of in tweede geval ( snb)

Rows(15).Hidden = [A1]="x" or "X"

 

[wiki]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1").Value = "x" Then
Rows("15:15").EntireRow.Hidden = True
Else: Rows("15:15").EntireRow.Hidden = False

If Range("a1").Value = "X" Then
Rows("15:15").EntireRow.Hidden = True
Else: Rows("15:15").EntireRow.Hidden = False

End If
End If
End Sub

gr wim

 

[snb]

Rows(15).Hidden = lcase([A1])="x"

 

[stefano]

en wat indien ik meerdere rijen wil vebergenin één keer ?

Rows(15).Hidden = lcase([A1])="x"

?

Rows(15:16).Hidden = lcase([A1])="x"
Rows(15;16).Hidden = lcase([A1])="x"
Rows(15,16).Hidden = lcase([A1])="x"

 

[snb]

Rows("10:12").Hidden = lcase([A1])="x"

 

[wiki]

rows("15:16")...

gr wiki

 

[stefano]

Private Sub Worksheet_Change(ByVal Target As Range)
Rows("18:20").Hidden = LCase([L15]) = "x"
Rows("16:17").Hidden = LCase([M15]) = "x"
' MsgBox "Vul de nieuwe gegevens in op tabblad 'data' ", vbInformation, "Spoeldata aanpassen"
End Sub

Als een x ingevuld wordt in L15 , dan wil ik een messagebox laten verschijnen, maar in bovenstaande procedure wordt die msgbox telkens getoond wanneer eender welke waarde aangepast wordt. Hoe kan ik dit omzeilen ?

dbv,

Stefaan

 

[wiki]

Ga maar even puzzelen met onderstaande

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("A1") <> 0 Then
    MsgBox "Vul verplichte velden in"
End If


End Sub

gr wim

 

[stefano]

Wim ,

ik ben een moeilijke klant, sorry hoor

Maar bij gebruik van die code verschijnt het messagebox na elke klik op enter ...


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("M13") <> 0 Then
MsgBox "Verwittig vervoer voor de afwezigheid van de Pierrotzeef.", VbInformation, "Aandachtspunt"
End If
End Sub

 

[wiki]

Je moet goed beredeneren wanneer je de boodschap weer wilt geven.
Dit kan bijvoorbeeld ook voor het sluiten van het bestand in een before close functie. De boodschap wordt nu weergegeven als in de cel m13 een waarde staat die ongelijk is aan nul en je een ander bereik seleceerd (maw als je aan het werk bent in het blad) deze komt dus inderdaad iedere keer terug als het antwoord op de voorwaarden waar is.

gr wim

 

[stefano]

Ok, ik wil die boodschap slechts één keer weergeven, enkel en alleen wanneer een waarde ingegeven wordt in die ene cel. Dus bij selectie van een andere cel dient er dan niks meer te gebeuren. Ik vermoed dat de instructie

Worksheet_SelectionChange(ByVal Target As Range)

hier niet meer de correcte instructie is, maar als niet-programmeur en amateur in de echte zin van het woord weet ik totaal niet welke kant ik op moet.

Dus graag nog even hulp aub ...

Stefaan