Help!

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

Hulp bij posten

Recente topics

Auteur Topic: ActiveSheet.usedRange  (gelezen 3942 keer)

0 leden en 1 gast bekijken dit topic.

Offline Marrosi

  • Lid
  • *
  • Berichten: 28
  • Oplossing.be
ActiveSheet.usedRange
« Gepost op: 19 februari 2004, 12:37:55 »
Goede middag,

Onlangs vond ik een macrootje om rijen te verwijderen waarvan de cel in één bepaalde kolom blanco is. Wanneer we kolom A als voorbeeld nemen ziet met macrootje er als volgt uit:

Sub DeleteRows()
    On error resume next
    Colums("A:A").SpecialCells(xlTypeBlanks).EntireRow.Delete
    ActiveSheet.UsedRange
End Sub

He macrootje doet helemaal wat ik ervan verwacht maar ik begrijp het doel en/of nut van de instructie
"ActiveSheet.UsedRange" niet.  Wanneer ik die instructie er
uit gooi schijnt er niets te veranderen.

Wat is het nut van deze instructie?

Bij voorbaat dank voor de hulp en beste groeten,

Rosine & Martin
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline StriKe

  • Ambassadeur
  • *****
  • Berichten: 4.647
  • Geslacht: Man
Re:ActiveSheet.usedRange
« Reactie #1 Gepost op: 20 februari 2004, 18:57:35 »
Hallo,

'k Heb het ook maar uit de help-teksten van Excel maar toch een poging:

Activesheet stelt het actieve werkblad voor (het werkblad waar je in aan het werken bent binnen de Excel Applicatie).
De "Usedrange" is een eigenschap die alleen lezen is, en als resultaat het gebruikte bereik in het opgegeven werkblad voorstelt.

Dat dit lijntje in jouw macro dus 'niets' geeft zou logisch te verklaren zijn doordat je zopas dat bereik van cellen verwijdert hebt ...

Groeten,
StriKe
0T5326 Dell Computer Corporation, GeForce FX Go5200, Windows XP, Prof, SP2, NL, Mobile Intel(R) Pentium(R) 4 CPU 3.06GHz, 512 MB RAM, HDD:97 GB, NTFS, AVG Anti-Virus, Kerio Personal Firewall, Firefox 2.0, The Bat!

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:ActiveSheet.usedRange
« Reactie #2 Gepost op: 21 februari 2004, 00:09:42 »
Doe volgende test eens:

Open een nieuw werkblad,  zet wat gegevens in het bereik A1:D10 en druk vervolgens op Ctrl+End
Cel D10 wordt geselecteerd, dit is de laatst cel die volgens Excel wordt gebruikt = de laatste cel van de UsedRange.

Verwijder nu de laatste 2 rijen en druk terug op Ctrl+End.
Je ziet dat nog steeds cel D10 wordt geselecteerd terwijl je rijen 9 en 10 net hebt verwijderd.

Als je nu die code (ActiveSheet.UsedRange) uitvoert dan zal Excel de UserRange terug instellen en wordt cel D8 als laatste cel geselecteerd.
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline StriKe

  • Ambassadeur
  • *****
  • Berichten: 4.647
  • Geslacht: Man
Re:ActiveSheet.usedRange
« Reactie #3 Gepost op: 21 februari 2004, 07:58:50 »
Aha :)

'k Heb ook terug iets bijgeleerd ;)

'k Heb de indruk dat die helpteksten toch ook niet altijd even duideljik zijn ...

Groeten,
StriKe
0T5326 Dell Computer Corporation, GeForce FX Go5200, Windows XP, Prof, SP2, NL, Mobile Intel(R) Pentium(R) 4 CPU 3.06GHz, 512 MB RAM, HDD:97 GB, NTFS, AVG Anti-Virus, Kerio Personal Firewall, Firefox 2.0, The Bat!

Offline Marrosi

  • Lid
  • *
  • Berichten: 28
  • Oplossing.be
Re:ActiveSheet.usedRange
« Reactie #4 Gepost op: 23 februari 2004, 12:21:54 »
Ingrid en Strike,

Bedankt voor de verhelderende uitleg.

Het geeft inderdaad de indruk dat een gedeelte van de helpteksten op maandag-morgen geschreven is!!!!

Beste groeten,

Martin & Rosine
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

 


www.combell.com