Selectie m.b.v. VBA + afdrukken

[Rnie]

Hoi allen,

Ik heb de volgende formule gebruikt (met de zoekfunctie gevonden op dit forum :thumb: ).

Sub Voorbeeld()
Dim r As Range
For Each r In Range("D216")
If r.Value = “” Then
r.EntireRow.Hidden = True
End If
Next
End Sub

Alleen in mijn voorbeeld heb ik iets van 2700 ingevulde regels. En als ik dan deze opdracht laat lopen via de macro duurt dit echt een hele eeuwigheid. Ik krijg wel het gewenste resultaat overigens. Mijn eerste vraag is dus of er een andere code is om het sneller te laten gaan?

Ik heb even een simpel voorbeeld bijgevoegd zodat het wat duidelijker word. In dit voorbeeldje werkt het overigens wel snel maar hier gaat het dan ook maar om 16 regels. Als ik in kolom D waarde invul wil ik dus alleen deze waarden zien.

Dan heb ik gelijk nog een vraag. Als het resultaat uiteindelijk zichtbaar is wil ik deze printen. Als ik dan het afdrukvoorbeeld bekijk zie ik alle pagina’s (dus ook de lege resultaten) maar ik wil alleen het resultaat afdrukken. Geen idee wat voor opdracht in VBA ik hier voor moet geven. Mijn tweede vraag is dus welke code ik moet gebruiken om alleen het resultaat af te drukken.

Groeten,
Rnie

 

[snb]

1. zet svp VBA-code tussen code-tags.
2. betere code om de rijen van lege cellen in kolom D te verbergen is:

Sub simpel()
  columns(4).specialcells(4).hidden=true
End Sub

 

[Wigi]

1. zet svp VBA-code tussen code-tags.
2. betere code om de rijen van lege cellen in kolom D te verbergen is:

Sub simpel()
  columns(4).specialcells(4).hidden=true
End Sub

Er ontbreekt nog een EntireRow in deze suggestie.

 

[Rnie]

Er ontbreekt nog een EntireRow in deze suggestie.

In mijn voorbeeld heb ik 4 waarde ingvuld. Het kunnen dus ook andere rijen zijn waar een waarde staat (bijvoorbeeld 6 waarden).

 

[danny147]

Beste Rnie

In mijn voorbeeld heb ik 4 waarde ingvuld. Het kunnen dus ook andere rijen zijn waar een waarde staat (bijvoorbeeld 6 waarden).

Snap niet wat je bedoelt ?

De code is:

Sub simpel()
  Columns(4).SpecialCells(4).EntireRow.Hidden = True
End Sub

OF

Sub simpel()
  Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Als je het over de 4 hebt van waarde betekent deze in dit geval "lege cellen".

Groetjes danny. :thumb:

 

[Jack Nouws]

Of met gebruik van het filter

Sub tst()
 Sheets(1).UsedRange.Columns(4).AutoFilter 1, ">0"
End Sub

Met vr gr
Jack

 

[Rnie]

Beste Rnie



Snap niet wat je bedoelt ?

De code is:

Sub simpel()
  Columns(4).SpecialCells(4).EntireRow.Hidden = True
End Sub

OF

Sub simpel()
  Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Als je het over de 4 hebt van waarde betekent deze in dit geval "lege cellen".

Groetjes danny. :thumb:

Die eerste code werkt helemaal oke.:thumb: En mijn tweede vraag is ook opgelost. Ik zat te klooien met die pagina eindemarkeringen.
Voor nu bedankt, en ik ga er nog ff mee verder stoeien.

Groeten,
Rnie