Lege rijen niet meeprinten

[Vieri]

Hallo,

via de zoekfunctie kwam ik wel op topics, maar daar waren de problemen net even iets anders.

Ik heb een werkblad waar mensen gegevens invullen, bereik is B12-H63.

In de C-kolom wordt steeds informatie ingevuld, dus deze kolom moet de controle-kolom zijn om te bepalen of een regel leeg is of niet. Als deze leeg blijft (bijvoorbeeld vanaf regel 40) dan hoeft de gehele betreffende regel en de regels 41 t/m 63 eronder niet meegeprint te worden(boven deze betreffende regel zijn alle rijen ingevuld). Ik zou de actie graag willen koppelen aan een print knop.

Bij voorbaat dank!

 

[keesbl]

Heb je in het forum al gezocht op dynamisch printbereik?

Kees

 

[Vieri]

Jups, ik krijg 3 hits inclusief de mijne.....

Ik heb een macro opgenomen waarbij ik een filter toepas op kolom B. Werkt verder prima

Sub Delete_lege_rijen()
'
' Delete_lege_rijen Macro
'

'
    Range("B12:B60").Select
    ActiveSheet.Range("$B$12:$B$60").AutoFilter Field:=1, Criteria1:="<>"
    Range("C12").Select
End Sub

Eigenlijk wil ik nog een print-actie toevoegen aan de code waarbij het printvenster opent. Scheelt weer een muisklik voor de gebruiker. Ik weet niet of het handig is om direct te printen, omdat er dan geen keuze gemaakt kan worden qua printer, enkel/dubbelzijdig printen etc

 

[HSV]

Zoiets ?

Sub Delete_lege_rijen()
'
' Delete_lege_rijen Macro
   with activesheet
    .Range("$B$12:$B$60").AutoFilter Field:=1, Criteria1:="<>"
    .printpreview
  end with
End Sub

 

[Warme bakkertje]

Application.Dialogs(8).Show

 

[HSV]

Ha, verkeerd gelezen dus.
Ik meende dat er stond "ik hoef geen printerkeuze te maken".

Gisteren te laat geworden denk ik.

 

[Warme bakkertje]

@ Harry
De oranjegekte toegeslagen ?

 

[HSV]

Met teveel consumpties Rudi. :d

Het begint nu wel erg spannend te worden (halve finale).
Vooral als we penalties moeten nemen om er te komen.

Overigens jammer voor de Belgen.

 

[Vieri]

Iedereen heeft een zware nacht achter de rug

Sub Delete_lege_rijen()
'
' Delete_lege_rijen Macro
'

'
    
    Range("B12:B600").Select
    ActiveSheet.Range("$B$12:$B$600").AutoFilter Field:=1, Criteria1:="<>"
    Range("C12").Select
    ActiveSheet.PrintPreview

End Sub

Helaas werkt het filter niet als ik mijn sheet beveilig ondanks dat ik een vinkje plaats bij o.a. Autofilter en Sorteren. Heb de Protect Password gebruikt en dan werkt alles wel maar bij het opnieuw eropzetten van het password zijn al mijn vinkjes weg bij beveiliging (cellen selecteren, autofilter/draaitabel/etc gebruiken)

Hoe voorkom ik dat bij het uit en weer inschakelen van het wachtwoord al mn vinkjes verdwijnen? Of beter nog, hoe kan ik mijn filter gebruiken ondanks de beveiliging. Ik kwam al codes tegen met enable.autofilter = true, maar dat werkt niet in mijn code...

 

[HSV]

Sub Delete_lege_rijen()
'
' Delete_lege_rijen Macro
with activesheet
     .unprotect "wachtwoord" 'verander in jouw wachtwoord
     .Range("$B$12:$B$600").AutoFilter Field:=1, Criteria1:="<>"
     .protect "wachtwoord"     'verander wachtwoord in de jouwe
end with
Application.Dialogs(8).Show
End Sub

 

[Vieri]

HSV, met jouw code krijg ik dus wat ik in bericht #9 omschrijf. Ik kan het autofilter niet ongedaan maken, vanwege de beveiliging.

Is er een mogelijkheid om Autofilter toe te passen op een beveiligd sheet zonder de passwoord actie uit te voeren?

 

[HSV]

Zet het bestandje hier eens neer, dan kunnen we kijken waarom het niet gaat.

 

[Vieri]

Bekijk bijlage helpmij - autofilter.xlsm

Het probleem is dat het eraf halen en weer erop zetten van het wachtwoord ervoor zorgt dat gebruikers niet meer de oorspronkelijke rechten hebben. Alle eerdere geplaatste vinkjes bij beveiliging zijn weg. Dus in principe is mijn sheet daardoor onbruikbaar, alleen maar om het toepassen van een autofilter werkend te krijgen op een beveiligd sheet.

Het wachtwoord is 2

 

[HSV]

Het blad is nu niet beveiligd merk ik.
Na de print zet het de filter weer terug.
Je kan cellen selecteren, sorteren, filteren en draaitabellen gebruiken.

Sub Delete_lege_rijen()
'
' Delete_lege_rijen Macro
With ActiveSheet
        .Unprotect "2"
        .Range("$B$12:$B$600").AutoFilter Field:=1, Criteria1:="<>"
      Application.Dialogs(8).Show
        .ShowAllData
        .Protect "2", , , True, , , , , , , , , , True, True, True
   End With
End Sub