VBA spinbuttons

[michelleblanc]

Hallo,

Hierbij code voor spin up en spin down button (VBA) welke rijen 11 tot26 een voor een showen of verbergen.

IK wil met dezelfde spinbuttons meerdere sets rijen simultaan en een voor een willen showen of verbergen.

Ik slaag er niet in de code zodanig te wijzigen dat dit werkt en volgens sommigen kan je slechts 1 set rijen aan een spinbutton koppelen.

Kan iemand mij verder helpen?

Dank bij voorbaat.

Private Sub SpinUp_SpinUp()
 Dim i
 On Error GoTo errhandler:
 'Unprotect_One
 For i = 25 To 11 Step -1
 If Cells(i, 1).EntireRow.Hidden = False Then
 Cells(i, 1).EntireRow.Hidden = True

 'Protect_one
 Exit Sub
 End If
 Next
 If Range("a11") = ActiveCell Then MsgBox "U heeft minimum aantal invoerlijnen bereikt"
 'Protect_one
 Exit Sub
errhandler:
 'Protect_one
 MsgBox "Fout opgetreden. Contacteer MLB"
 End Sub


Private Sub SpinUp_SpinDown()
 Dim i
 On Error GoTo errhandler:
 'Unprotect_One
 For i = 11 To 25
 
 If Cells(i, 1).EntireRow.Hidden = True Then
 Cells(i, 1).EntireRow.Hidden = False
 'Protect_one
 Exit Sub
 End If
 Next
 If Range("a25") = ActiveCell Then MsgBox "U heeft het maximum aantal invoerlijnen bereikt"
 'Protect_one
 Exit Sub
errhandler:
 'Protect_one
 MsgBox "Fout opgetreden. Contacteer MLB"
 End Sub

 

[snb]

Er is iets misgegaan bij het plaatsen van je bestand.

 

[michelleblanc]

VBA Spin buttons

Hoi,

Ik heb geen bestand bij mijn vraag geupload...

Michelleblanc

 

[Cobbe]

Dus is er toch blijkbaar iets misgelopen.

 

[michelleblanc]

VBa Spinbutton

Dag Cobbe,

Neen, toch niet... ik had enkel de VBA code op de formum geplaatst, niet de excel file.

Kan je hiermee verder?

Michelleblanc

 

[Ginger]

Michelleblanc, laat ik je helpen met wat er bedoeld wordt.... Zonder bijlage kan er moeilijk worden geholpen als we niet kunnen zien waar je dit en hoe je dit gebruikt in je workbook...

 

[michelleblanc]

Dag Ginger,

Snap het..

Hierbij het bestand.

Bedoeling is dat wat er gebeurd bij "karton, ook gebeurd bij "klett, Druk, Cacheren, enz...

Michelleblanc

 

[Gijsbert1]

Het beste is om MLB te contacteren

 

[HSV]

Je kan dan zoiets toepassen.

For i = 25 To 11 Step -1
 If Cells(i, 1).EntireRow.Hidden = False Then
[COLOR=#0000ff]  Set c = Union(Rows(i), Rows(i + 21), Rows(i + 51))[/COLOR]
[COLOR=#0000ff]  c.EntireRow.Hidden = True[/COLOR]


 'Protect_one
 Exit Sub

Ik heb verder niet gekeken naar andere oplossing betreft jouw code.

 

[Gijsbert1]

ik doe maar wat: Bekijk bijlage 276929

 

[michelleblanc]

Dag Hsv en Gijsbert1,

Dank voor beide oplossingen! Kan kan er zeker mee aan de slag!

Michelleblanc

 

[edmoor]

Zo kan je bepalen welke sectie er wordt behandeld. Ik heb 2 secties voor je gedaan. Het idee zal duidelijk zijn zo en kan je voor de SpinDown ook gebruiken.

Private Sub SpinUp_SpinUp()
    Dim i As Long
    Dim Van As Long
    Dim Tot As Long
    
    On Error GoTo errhandler:
    Select Case ActiveCell.Row
        Case Is < 9: MsgBox "Onjuiste sectie": Exit Sub
        Case Is < 26: Van = 25: Tot = 11    [COLOR="#008000"]'Karton[/COLOR]
        Case Is < 47: Van = 46: Tot = 32    [COLOR="#008000"]'Kletten[/COLOR]
        Case Else
            MsgBox "Onbekende sectie"
            Exit Sub
    End Select
    
    For i = Van To Tot Step -1
        If Cells(Tot, 1).EntireRow.Hidden = True Then
            MsgBox "U heeft minimum aantal invoerregels bereikt"
            Exit Sub
        End If
        If Cells(i, 1).EntireRow.Hidden = False Then
            Cells(i, 1).EntireRow.Hidden = True
             Exit Sub
        End If
    Next i
    
errhandler:
    MsgBox "Fout opgetreden. Contacteer MLB"
End Sub