Regels kopiëren waarvan waarde in een kolom groter dan 0 is.

[Xammy39]

Het is de button naast de radio button.
Ze verdwijnen na de regel ' .AutoFilter 7, "<>"'.

 

[edmoor]

Dat scherm ken ik niet. Wat is dat voor een Office versie?
Je moet in ieder geval die knoppen "vast zetten".
Als het formulierknoppen zijn kan je aangeven in de eigenschappen dat de plaatsing niet aan cellen gerelateerd moet zijn.

 

[Xammy39]

Heb het net geprobeerd, helpt ook niet.
Het is Office 2011 voor Mac.

 

[edmoor]

Met de Mac versie kan ik je helaas niet helpen.
Je kan je document hier plaatsen, misschien dat ik het dan kan zien.
Anders wachten op iemand die dat wel weet met met een Mac.

 

[Xammy39]

Ik ga het proberen, is wel even werk aangezien dit een heel uitgebreide spreadsheet is met facturatie, omzet, offertes, etc.

 

[Xammy39]

Hier het complete bestand, de macro waarover het gaat staat in de module 'pakbon'.
Het password is Breukelen.

 

[edmoor]

Ik kan er helaas niets mee.
Mijn Office 2016 in Windows kan niets invoegen of die knoppen aanpassen.

 

[Xammy39]

Ik was er al een beetje bang voor.
Iig heel erg bedankt voor de moeite.

 

[edmoor]

Graag gedaan, al heb je er niks aan
Er zal nog wel iemand voorbij komen die dat met de Mac wel weet.

 

[Xammy39]

Ik heb veel gegoogled op 'verdwijnende' buttons, schijnt bij sommige functies in Excel voor te komen en is geen echte oplossing voor, gewoon een bug dus.
Nu ben ik weer met de oplossing die Vena gaf, bij het commando 'Delete entire row' krijg ik wederom de foutmelding 'cannot shift objects off sheet'. Vervang ik 'Delete EntireRow' voor voor 'ClearContents' alleen blijven er dan de lege regels staan.
Die regels verwijderen met een commando waar 'EntireRow' in voorkomt werkt dus niet, ik denk dat beperken van de regel lengte tot bijvoorbeeld kolom 7 wel werkt.
De oplossing zou zijn wanneer het 'EntireRow' in de zin 'If Not r Is Nothing Then r.EntireRow.Delete' vervangen zou kunnen worden door een afgebakend gebied zoals bijvoorbeeld 'Range("A9:G160")'.
Echter krijg ik dit niet voor elkaar.
Concreet is dus de vraag hoe ik 'EntireRow' kan vervangen door een range.

 

[HSV]

Bv.

Sub LegeRegelsWeg()
Dim cl As Range, r As Range
  For Each cl In Range("G9:G156")
    If cl = Empty Then
      If r Is Nothing Then
         Set r = cl.offset(, -6).resize(, 7)
       Else
        Set r = Union(r, cl.offset(, -6).resize(, 7))
      end If
    End If
 Next cl
  If Not r Is Nothing Then r.Delete xlup
End Sub

 

[Xammy39]

Harry, dankjewel, dit werkt!:thumb: