*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Wegschrijven van gegevens  (gelezen 2087 keer)

0 leden en 1 gast bekijken dit topic.

Offline dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Wegschrijven van gegevens
« Gepost op: 08 januari 2007, 12:43:40 »
Beste,
Graag roep ik jullie hulp in om te helpen zoeken naar een manier om gegevens in een blad automatisch over te zetten naar een volgend blad.
In bijlage laat ik een vereenvoudigd bestandje dat mijn vraag zal verduidelijken.
De eigenlijke bedoeling is om een ganse rij weg te schrijven naar een tabblad met de naam die overeenstemt met een bepaalde cel.
De visual basic specialisten hier weten beslist raad.
Dank voor jullie hulp.
Dimy
Gelogd
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.280
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re:Wegschrijven van gegevens
« Reactie #1 Gepost op: 08 januari 2007, 18:14:23 »
Zoiets? (niet de mooiste code... maar īt werkt! ;D)

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Re:Wegschrijven van gegevens
« Reactie #2 Gepost op: 09 januari 2007, 09:04:15 »
Leo,
Heel erg bedankt hoor.
Ik heb in je code nog wat bij geflanst...
Nu worden de bladen eerst leeggemaakt en pas daarna wordt de data weggeschreven.
Dat is niet zo'n fraai stukje code maar het werkt ook weer wel.  Ken je toevallig ook een mogelijkheid om dit stukje code te verfraaien of in te korten?
Dankjewel
Dimy
Gelogd
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.280
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re:Wegschrijven van gegevens
« Reactie #3 Gepost op: 09 januari 2007, 13:09:26 »
Dimy, je maakt de boel (iets) sneller door het 'select' weg te laten... Als je dit stukje code...
Code: [Selecteer]
   'maak eerst de tabbladen leeg
    Sheets("A").Range("A2:H600").ClearContents
    Sheets("B").Range("A2:H600").ClearContents
    Sheets("C").Range("A2:H600").ClearContents
    Sheets("D").Range("A2:H600").ClearContents
...vervangt voor het jouwe, heb je het korter. (en waarschijnlijk kan je het met een 'for each' nog korter maken, maar daar heb ik zelf helaas niet zoveel ervaring mee als het niet gaat om de hele collectie sheets... :'()

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline LucB

  • Lid
  • *
  • Berichten: 55
  • Groeten Luc
Re:Wegschrijven van gegevens
« Reactie #4 Gepost op: 09 januari 2007, 13:59:05 »
Hallo Dimy,

Ik heb je code iets korter gemaakt.
RedHead zette je al op het goede spoor.

Bekijk de bijlage maar eens.
Gelogd
Windows XP Prof SP2, AMD DualCore 4400, 1024 MB RAM, NTFS, Norton AntiVirus, Internet Explorer 7.0, Outlook Express 6

Offline dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Re:Wegschrijven van gegevens
« Reactie #5 Gepost op: 10 januari 2007, 12:10:48 »
Leo , Luc,
Hartelijk dank voor jullie hulp.
Ik heb deze code achter 'workbook open()' geplaatst en het werkt precies zoals ik het wil.
Jullie tips om vba code korter te maken heb ik ook al kunnen toepassen in andere toepassingen.
Dimy
Gelogd
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True
Pagina's: [1]   Omhoog
 


www.combell.com