*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Gegevens verwijderen na Advanced Filter  (gelezen 2620 keer)

0 leden en 1 gast bekijken dit topic.

Offline Marrosi

  • Lid
  • *
  • Berichten: 28
  • Oplossing.be
Gegevens verwijderen na Advanced Filter
« Gepost op: 14 december 2003, 11:54:04 »
Geachte dames en heren Excel-Experts,

Na het toepassen van Advanced Filter heb ik een lijst van gegevens.

Hoe kan ik deze gegevens verwijderen door middel van een macro?

Bij voorbaat dank voor alle tips.

Beste groeten - Marrosi
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Gegevens verwijderen na Advanced Filter
« Reactie #1 Gepost op: 14 december 2003, 12:34:56 »
Zonder macro:
  • selecteer een willekeurige cel in de lijst
  • druk op Ctrl+Shift+* om het huidige gebied te selecteren (= een gebied begrensd door een lege rij en kolom)
  • druk op Del om de inhoud te wissen
Met een macro:

Sub test()
  Range("A1").CurrentRegion.Clear
End Sub

Deze macro gaat er van uit dat de cel A1 steeds bij de lijst hoort.

Kopieer de macro naar een module.
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Marrosi

  • Lid
  • *
  • Berichten: 28
  • Oplossing.be
Re:Gegevens verwijderen na Advanced Filter
« Reactie #2 Gepost op: 15 december 2003, 12:40:11 »
Ingrid, bedankt voor de tip.

Wanneer ik jou macro(Range("A1").CurrentRegion.Clear)  toepas, dan verdwijnt ook de hoofding-rij van mijn DatabaseRange.  
Ik breng die daarna terug in orde door de hoofding-rij van mijn CriteriaRange te kopieren.

Vandaar mij vraag: bestaat er geen mogelijkheid om alle gegevens te verwijderen BEHALVE de hoofding-rij????

Ik heb zelf wat zitten proberen met Offset maar dat loopt helemaal mis.

Dank bij voorbaat - Marrosi

Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Ingrid B

  • Volledig lid
  • **
  • Berichten: 153
  • Ingrid Baplue Microsoft MVP Excel
Re:Gegevens verwijderen na Advanced Filter
« Reactie #3 Gepost op: 15 december 2003, 15:01:51 »
Met zo iets zou het moeten lukken:

Range("A2:C" & Range("A2").End(xlDown).Row).Clear
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Marrosi

  • Lid
  • *
  • Berichten: 28
  • Oplossing.be
Re:Gegevens verwijderen na Advanced Filter
« Reactie #4 Gepost op: 16 december 2003, 07:48:22 »
Ingrid,

Met jou stukje code lukt het inderdaad!!! Ik heb enkel de "Clear" vervangen door "Delete" en toen werkte het perfect.  Zelfs wanneer de Advanced Search niets gevonden heeft blijft het werken. SUPER!!!!!

Heel erg bedankt... en ...            PRETTIGE EINDEJAARSFEESTEN.

Marrosi

Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.
Pagina's: [1]   Omhoog
 


www.combell.com