rijen verbergen bij gevalideerde celwaarde ="nee"

Status
Niet open voor verdere reacties.
En wat gaat daarin niet goed?
 
en nu werkt het wel ..... op de samengevoegde cellen !!
duik maar in uw zeteltje Ed
We zullen eens iets moeten gaan drinken /eten en even de VBA aan de kant leggen :)
 
Tijd voor een Kriek. Enjoy! ;)
 
Nog wel een opmerking over de code achter de knop in je document. Begin deze met:
Application.ScreenUpdating = False

en plaats dan net voor het bericht dat de calculatie gereed is dit:
Application.ScreenUpdating = True

Dat geeft een heel wat rustiger beeld.
 
aaa heel fijn !!!!
ga ik morgen doen
nu eerst nen kriek
ik meen dat hé.....we gaan eens afspreken met de madammen (?) !
vraagteken ja...mogelijks ben je vrijgezel en dan kom ik liever alleen haha
nog eens hartstikke bedankt
 
Geen vrijgezel, wel vrij gezellig ;)
 
toch nog een vraagje hierbij
Ik heb dus onderstaande code voor het hiden van rijen ifv een celwaarde
Nu zou iets identiek willen doen maar via een macrobutton
Kan mij iemand zeggen welk event dat ik dan best gebruik ?
dank u

Private Sub Worksheet_change(ByVal Target As range)
If Target.Column = 7 Then
Select Case Target.Row
'case is in dit geval de rij-nr
Case 87
Rows("88:90").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 91
Rows("92:92").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 93
Rows("94:95").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 96
Rows("99:100").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
End Select
 
Het Onclick even van de button uiteraard.
 
wordt het dan zoiets ?

Sub FILTER(ByVal Target As range)
'FILTER macro

If Target.Column = 7 Then
Select Case Target.Row
'case is in dit geval de rij-nr
Case 87
Rows("88:90").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 91
Rows("92:92").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 93
Rows("94:95").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 96
Rows("99:100").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
End Select
End If

End Sub
 
Nee. Dat is niet het onclick even van een button en daarnaast heb je vanuit een button het object Target niet tot je beschikking en zal je die informatie op een andere wijze moeten verkrijgen.
 
Kan je me nog eens duwtje geven hoe ik onderstaande kan starten via macrobutton?
in dit geval worden dan de cellen G87 + G91 + G93 + G96 gecheckt en worden de hieraan gelinkte rijen terug verborgen/getoond ifv de value van hun "target-cellen"

Ik wil dus gewoon hetzelfde doen maar zonder "worksheet_changes"
(sorry dat ik elementaire zaken niet ken ...heb de zoekfunctie UITVOERIG gebruikt maar ja....i know...I miss a lot :) )

Private Sub Worksheet_change(ByVal Target As range)
If Target.Column = 7 Then
Select Case Target.Row
'case is in dit geval de rij-nr
Case 87
Rows("88:90").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 91
Rows("92:92").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 93
Rows("94:95").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
Case 96
Rows("99:100").EntireRow.Hidden = IIf(Target.Value = "ja", False, True)
End Select



Toevoegen systeem aanpassen Bericht aanpassen
 
Dat is ook weer van een aantal zaken afhankelijk. Je kan dus beter even een voorbeeld documentje met een knop plaatsen.
 
zo ED...even fragment van ons doc geplaatst
op rijen 9 tem 20 runnen we dus de "private hide code"
op rijen 2 tem 6 wil ik iets soortgelijks doen via de 2 voorziene macrobuttons

dank voor de tips
 

Bijlagen

  • TEST.xlsm
    76,4 KB · Weergaven: 19
Ik begrijp wellicht niet helemaal de bedoeling, maar zet deze maar eens in Module1 van TEST.xlsm:
Code: 
Private Sub KAMERLIJST_AANPASSEN()
    Select Case Application.Caller
        Case "Keuzerondje 603"
            msgbox "Geklikt op KAMERLIJST AANPASSEN"

        Case "Keuzerondje 1027"
            msgbox "Geklikt op KAMERLIJST enkel JA"
    End Select
End Sub
 
Laatst bewerkt:
bij openen doc krijg je een aantal kamers te zien (die op "ja" staan dus)
Het is de bedoeling dat men kamers moet kunnen toevoegen ifv zijn project
DUS: dan wil ik de complete lijst laten zien via de knop "KAMERLIJST AANPASSEN" = ook alle kamers waar "NVT" staat dus
dan kiest men zijn extra kamers en vraagt men terug de "gecomprimeerde" Kamerlijst op via "KAMERLIJST enkel JA"

(in onze standaard kamer-lijst staan bijvoorbeeld 5 slaapkamers doch niet ieder project heeft dit ....ik zit dus DEFAULT enkel slpk1+2+3 op "ja". Mensen die dan toch 5 slaapkamers hebben moeten dit eerst aanpassen in deze lijst dus)

meer is het niet :)
 
Daar kan je dan de code voor gebruiken die ik in #37 plaatste. Die moet je alleen uitbreiden met het wel of niet verbergen van de betreffende regels.
 
ik geraak er niet uit
zoals je kan zien ...van alle geprobeerd :)

Sub KAMERLIJST_AANPASSEN()

Select Case Application.Caller

If Target.Column = 2 Then



Case 2
'If range("B2") = "NVT" Then
Rows("2:2").EntireRow.Hidden = IIf(Target.Value = "NVT", False, True)
'End If


Case 3
'If range("B3") = "NVT" Then
Rows("3:3").EntireRow.Hidden = IIf(Target.Value = "NVT", False, True)
'End If

Case 4
'If range("B4") = "NVT" Then
Rows("4:4").EntireRow.Hidden = IIf(Target.Value = "NVT", False, True)
'End If

Case 5
'If range("B5") = "NVT" Then
Rows("5:5").EntireRow.Hidden = IIf(Target.Value = "NVT", False, True)
'End If

Case 6
'If range("B6") = "NVT" Then
Rows("6:6").EntireRow.Hidden = IIf(Target.Value = "NVT", False, True)
'End If

Case 7
'If range("B5") = "NVT" Then
Rows("7:7").EntireRow.Hidden = IIf(Target.Value = "NVT", False, True)
'End If

End Select
End If

End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan