Code werkt niet

[rgoetheer]

hallo, ik heb het volgende probleem:

ik heb in werkblad 1 allerlei groepen staan met daarbijhorende gegevens, in werkblad 5 komen deze groepen allemaal terug. Nu wil ik in werkblad 5 een knop invoegen zodat alle groepen die in werkblad 1 niet ingevuld zijn, verwijderd worden in werkblad 5.

De volgende code heb ik van Wigi verkregen, maar hij werkt niet als ik hem kopier:

Private Sub CommandButton1_Click()
Dim intgroep As Integer, c As Range
For intgroep = 13 To Range("H65536").End(xlUp).Row Step 9
For Each c In Sheets("Begr").Range("A6:A128")
If c = Range("H" & intgroep) Then
If WorksheetFunction.Max(c.Offset(0, 1).Resize(1, 4)) = 0 Then
Range("H" & intgroep).Resize(9, 1).EntireRow.Hidden = True
End If
End If
Next
Next
End Sub

Private Sub CommandButton2_Click()
Range("A1", Range("H65536").End(xlUp)).EntireRow.Hidden = False
End Sub

boven elke pagina heb ik nog kopteksten staan waardoor de rowstep niet gelijk blijft na de 1e pagina. kan dit dan wel of moet ik die kopteksten dan weghalen?

wie kan mij verder helpen??

gr rene

 

[jheesterbeek]

De code is helder, maar om te beoordelen waarom hij niet werkt moet je iets meer uitleg geven over de file.
Kun je de file op het forum plaatsen?

 

[Wigi]

Eigenlijk had de vraagsteller de link moeten toevoegen, maar ja hier is ie dan:

http://www.helpmij.nl/forum/showthread.php?t=251369

 

[rgoetheer]

ja sorry, je hebt gelijk wigi, ik had hem moeten toevoegn
heb je zelf ook enig idee waarom hij niet werkt als ik hem kopieer?

gr rene

 

[rgoetheer]

ik zal het gehele bestand wel toevogen, misschien dat het dan duidelijker wordt. Ik hoop dat iemand mij kan helpen, ik zit er namelijk mee in de knoop.

gr rene

 

[jheesterbeek]

Het lijkt alsof je de opbouw van je sheet hebt veranderd, in tegenstelling tot formules wijzigen macro's niet mee als je kolommen invoegd of cellen verplaatst.
Probeer onderstaande code eens:

Private Sub CommandButton1_Click()
Dim intgroep As Integer, c As Range
For intgroep = 13 To Range("G65536").End(xlUp).Row Step 9
     For Each c In Sheets("Invoer begroting").Range("A6:A128")
        Debug.Print intgroep
        Debug.Print c
        If c = Range("A" & intgroep) Then
        Debug.Print WorksheetFunction.Max(c.Offset(0, 1).Resize(1, 4))
            If WorksheetFunction.Max(c.Offset(0, 1).Resize(1, 4)) = 0 Then
                Range("H" & intgroep).Resize(9, 1).EntireRow.Hidden = True
            End If
        End If
     Next
Next
End Sub

 

[rgoetheer]

hij werkt gedeeltelijk, groep 12 is leeg en verdwijnt dan ook, maar bijv groep 15 blijft staan terwijl die ook leeg is. De knop alles weergeven werkt ook niet dan, want de groep komt niet meer terug dan.
beetje vaag dus, moet ik die knoppen dan toch per pagina in gaan voeren denk ik

alvast bedankt

gr rene

 

[jheesterbeek]

probeer de bijlage eens

voor de toekomst, bij paginainstellingen is het mogelijk om rijen (en kolommen) op iedere pagina te herhalen. Op die manier hoef je niet vooraf te bepalen waar een pagina begint en eindigd.

 

[rgoetheer]

zo te zien werkt hij! hardstikke bedankt voor je hulp en wigi ook nog!
goeie tip van die paginainstelling! ga ik proberen
ik ga het verder uitwerken!

gr rene