combobox

[whitetigerck]

Ik probeer een combobox te laten doen wat ik wil, alleen werkt hij wat tegen

Ik wil bij een bepaalde waarde die je selecteerd uit de combobox, bepaalde rijen zichtbaar laten maken.

In de bijlage zit een file van hoe ver ik ben, maar das nie echt ver.

dit is mijn code, hopelijk kunnen jullie me helpen

Sub getal()
  Select Case Range("J3").Value
    Case Is = 1
        Rows("5:65").Select
        Selection.EntireRow.Hidden = True
        Rows("5:20").Select
        Selection.EntireRow.Hidden = False

    Case Is = 2
        Rows("5:65").Select
        Selection.EntireRow.Hidden = True
        Rows("21:35").Select
        Selection.EntireRow.Hidden = False
    
    Case Is = 3
        Rows("5:65").Select
        Selection.EntireRow.Hidden = True
        Rows("36:50").Select
        Selection.EntireRow.Hidden = False
    
    Case Is = 4
        Rows("5:65").Select
        Selection.EntireRow.Hidden = True
        Rows("51:65").Select
        Selection.EntireRow.Hidden = False
  End Select
End Sub

alvast heel erg bedankt:thumb:

 

[Wigi]

Ik kan geen Excel 2007 bestanden openen, dus kan je niet helpen.

Dit doet trouwens hetzelfde als jouw code maar een pak beter:

Sub getal()

    Range("A5:A65").EntireRow.Hidden = True
    Range(Choose(Range("J3").Value, "A5:A20", "A21:A35", "A36:A50", "A51:A65")).EntireRow.Hidden = False
    
End Sub

Wigi

 

[whitetigerck]

helaas dat werkt niet

ik krijg de fout 1004:
Methode Range van object_Global is mislukt

ik heb voor je een 03 bestandje toegevoegd

 

[Wigi]

Je ziet dat het niet werkt.

VBA stelt op dat moment een aantal mogelijkheden voor, o.a. debug. Kies dat.

Dan staat de regel die een fout geeft, in beeld en wordt die geel gekleurd.

Als je nu met de muis aanwijst naar alles wat er op die regel aan code staat, dan moet je er gegarandeerd snel achter komen.

Wigi

 

[Hoornvan]

whitetigerck,

Bedoel je het zo?

 

[whitetigerck]

das precies wat ik bedoelde, heel erg bedankt

@wigi

volgens mij heeft het hier mee te maken:
Range("J3").Value = leeg geeft hij aan, maar hij was niet leeg

Maar het maakt niet meer uit, dankzij Hoornvan is het gelukt heel erg bedankt:thumb:

 

[Hoornvan]

whitetigerck,

das precies wat ik bedoelde, heel erg bedankt

Graag gedaan, heb je ook gezien dat de code korter is.

 

[whitetigerck]

die van wigi was iets korter, maar die werkt voor mij niet echt.

Maar voor mij maakt het ook niet echt uit hoe lang die code is, als hij maar fatsoenlijk werkt

ik ben nu bezig geweest en op een of andere manier heb ik deze lijnen gekregen, maar die wil ik helemaal niet
Dus wil je mij aub vertellen hoe ik deze kan verwijderen?

 

[Hoornvan]

whitetigerck,

die van wigi was iets korter, maar die werkt voor mij niet echt.

Bij mij werkte hij ook niet en heb het niet verder geprobeerd.

op een of andere manier heb ik deze lijnen gekregen

Ik denk dat je met afdrukvoorbeeld heb gekeken, deze lijnen zijn je papierformaat(A4).
Als je hem sluit en opnieuw opend is het weg.

Suc6

 

[whitetigerck]

lol hoe simpel kan het zijn

maar bedankt voor je hulp:thumb:

 

[Wigi]

@wigi

volgens mij heeft het hier mee te maken:
Range("J3").Value = leeg geeft hij aan, maar hij was niet leeg

Daar moet je wel eerst op testen:

If Range("J3").Value > 0 Then
   'code
Else
    Msgbox "bla bla bla"
End If

Wigi