Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Lege rijen verwijderen  (gelezen 6011 keer)

0 leden en 1 gast bekijken dit topic.

Offline Riekkes

  • Lid
  • *
  • Berichten: 70
  • Oplossing.be
Lege rijen verwijderen
« Gepost op: 26 maart 2019, 13:18:58 »
Beste,
In bijlage een wedstrijdblad van visclub. Als de deelnemers zijn ingevuld en de gevangen kilo's druk ik op de foto en dan wordt er gesorteerd van hoog gewicht naar laag gewicht. bedoeling is zoveel mogelijk kilo's te vangen. nu had ik ook graag dat de blanco rijen na de laatste deelnemer tot rij 45 verwijderd werden. Als er 20 deelnemers zijn zullen die uitgedrukt worden maar dan print ik ook 20  overbodige lege rijen. dus in het voorbeeld zou rij 15 t/m rij 45 moeten verwijderd worden.

Alvast bedankt voor de reactie
« Laatst bewerkt op: 26 maart 2019, 13:24:27 door SoftAid »
Lugano M Acer, Inc., SiS 760 Rev 00, Windows XP, Home, SP2, Mobile AMD Sempron(tm) Processor 2800+, 446 MB RAM, HDD:58 GB, FAT32, Norton AntiVirus, Internet Explorer 6.0, Microsoft Outlook

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 485
  • Geslacht: Man
  • Oplossing.be
Re: Lege rijen verwijderen
« Reactie #1 Gepost op: 26 maart 2019, 15:33:35 »
Beste,
Zie bijlage.
Ik heb in jou opgenomen sorteer macro de overbodige select en activate events er uit gehaald.
De printknop verbergt de rijen waar geen naam is ingevuld en print het blad (het commando staat nu op PrintPreview om papier te sparen,dit moet je  veranderen in PrintOut. (zie de code)
De reset knop maakt de verborgen rijen weer zichtbaar en de gegevens worden gewist en het blad is klaar voor een nieuwe visvangst.
Ik heb je layout wat aangepast zodanig dat er 40 deelnemers op 1 blad passen bij het printen.
Groet, Philiep

Offline Riekkes

  • Lid
  • *
  • Berichten: 70
  • Oplossing.be
Re: Lege rijen verwijderen
« Reactie #2 Gepost op: 26 maart 2019, 18:07:31 »
Beste Dotchiejack ,

Bedankt ideaal dit is wat ik zocht.
groet
Eric
Lugano M Acer, Inc., SiS 760 Rev 00, Windows XP, Home, SP2, Mobile AMD Sempron(tm) Processor 2800+, 446 MB RAM, HDD:58 GB, FAT32, Norton AntiVirus, Internet Explorer 6.0, Microsoft Outlook

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 485
  • Geslacht: Man
  • Oplossing.be
Re: Lege rijen verwijderen
« Reactie #3 Gepost op: 26 maart 2019, 18:18:23 »
Dank voor de terugkoppeling. :thumbsup:
Groet, Philiep

Offline Ntr

  • Lid
  • *
  • Berichten: 17
  • Geslacht: Man
  • Oplossing.be
Re: Lege rijen verwijderen
« Reactie #4 Gepost op: 26 maart 2019, 19:03:27 »
Kan evt wat korter
Sub Sorteren()
  With Sheets("Blad1")
    .Range("B5:D44").Sort .Range("D5"), 2
  End With
End Sub

Sub Printen()
  With Sheets("Blad1")
    .Range("B5:B44").SpecialCells(4).EntireRow.Hidden = True
    .PrintPreview 'PrintOut
  End With
End Sub

 


www.combell.com