VBA cellen zichtbaar/onzichtbaar maken

[whitetigerck]

Ik probeer met excel dmv een dropdownmenu sommige rijen cellen zichtbaar of onzichtbaar te maken. Ik heb deze code, maar hij werkt niet. Waarschijnlijk omdat ik de verkeerde waarde's heb gepakt na de if functie, ik weet niks van VBA dus dan weet je dat alvast

Dus wie weet wat ik moet vervangen?

Sub Cellen verbergen()
'
' Cellen verbergen Macro
'

'
    If .Value = "Cel 5t/m20 laten zien" Then
    
    Rows("5:65").Select
    Selection.EntireRow.Hidden = True
    Rows("5:20").Select
    Selection.EntireRow.Hidden = False
    Range("G2").Select
    
    If .Value = "Cel 21t/m35 laten zien" Then

    Rows("5:65").Select
    Selection.EntireRow.Hidden = True
    Rows("21:35").Select
    Selection.EntireRow.Hidden = False
    Range("G2").Select
    
    If .Value = "Cel 36t/m50 laten zien" Then
    
    Rows("5:65").Select
    Selection.EntireRow.Hidden = True
    Rows("36:50").Select
    Selection.EntireRow.Hidden = False
    Range("G2").Select
    
    If .Value = "Cel 51t/m65 laten zien" Then
    Rows("5:65").Select
    Selection.EntireRow.Hidden = True
    Rows("51:65").Select
    Selection.EntireRow.Hidden = False

    Range("G2").Select
End Sub

 

[Roncancio]

In cel B1 staat het getal van de 1e rij die je wilt laten zien. Bijv. 5
In cel B2 staat het getal van de 2e rij die je wilt laten zien. Bijv. 20

Private Sub Worksheet_Change(ByVal Target As Range)
Range("5:65").Rows.Hidden = True
If Not Intersect(Target, Range("B1:B2")) Is Nothing And WorksheetFunction.Count(Range("B1,B2")) = 2 Then
    Range("" & Range("B1") & ":" & Range("B2") & "").Rows.Hidden = False
End If
End Sub

Bovenstaande code verbergt de rijen 5 t/m 65 en toont de rijen die in b1 en b2 zijn aangegeven.

Met vriendelijke groet,


Roncancio

 

[whitetigerck]

nee, dat bedoelde ik niet

ik heb een dropdown menu gemaakt met 4 verschillende waarden:
Cel 5t/m20 laten zien
Cel 21t/m35 laten zien
Cel 36t/m50 laten zien
Cel 51t/m65 laten zien

en als ik 1 van die waarden kies bijv "Cel 5t/m20 laten zien" dan moet hij de cellen 5 t/m 65 onzichtbaar maken en de cellen 5t/m20 zichtbaar maken.

 

[snb]

Sub zo()
  Rows("5:65").Hidden = True
  Rows(choose(combobox1.listindex+1,"5:20","21:35","36:50","51:65")).Hidden = False
End Sub

of

Sub ofzo()
  Rows("5:65").Hidden = True
  Rows("5:20").offset(combobox1.listindex*15).Hidden = False
End Sub

 

[whitetigerck]

dat werkt niet bij mij

Bij de eerste regel gaf hij al een foutmelding, maar die kon ik oplossen door

Rows("5:65").Select.EntireRow.Hidden = True

te vervangen door

Rows("5:65").Select
Selection.EntireRow.Hidden = True

alleen de laatste regels van wat jij geeft hij nu nog een foutmelding

 

[Roncancio]

Je moet de select verwijderen uit de code.
Dus:

  Rows("5:65").EntireRow.Hidden = True

De fout in de 2e regel komt omdat snb er vanuit gaat dat je een combobox hebt gebruikt om een keuze te bepalen.
Ik vermoed echter dat je gebruik heb gemaakt van een datavalidatie.

Met vriendelijke groet,


Roncancio

 

[whitetigerck]

het werkt nog steeds niet, ik heb bij de bijlage maar een bestand gedaan wat ik aan het doen ben, hopelijk lukt het dan wel

EDIT:
waarom kan ik die macro's niet uploaden hier?

maar ik heb deze code nu als macro:

Sub getal()
Rows("5:65").EntireRow.Hidden = True
Rows(Choose(combobox1.ListIndex + 1, "5:20", "21:35", "36:50", "51:65")).EntireRow.Hidden = False



End Sub

 

[snb]

Vorige suggestie aangepast (Entirerow is overbodig, select natuurlijk helemaal).

 

[whitetigerck]

werkt nog steeds niet

krijg de foutmelding object vereist

ik werk wel met een combobox zoals je al in het vb ziet

 

[whitetigerck]

kan niemand mij effe een simpel script geven van wat ik wil? Daar zou ik heel blij mee zijn

wat voor soort box ik gebruik kan je zien in de bijlage in mn vorige post.

 

[Roncancio]

kan niemand mij effe een simpel script geven van wat ik wil? Daar zou ik heel blij mee zijn

wat voor soort box ik gebruik kan je zien in de bijlage in mn vorige post.

Met onderstaande code lukt het wel.

Sub Titratiebepaling()
Rows("5:65").EntireRow.Hidden = True
Rows(Choose(ActiveSheet.Shapes(1).ControlFormat.Value, "5:20", "21:35", "36:50", "51:65")).Hidden = False

End Sub

Met vriendelijke groet,


Roncancio