*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Automatische een leeg formulier  (gelezen 3306 keer)

0 leden en 1 gast bekijken dit topic.

Offline Jannie

  • Lid
  • *
  • Berichten: 48
  • Oplossing.be
Automatische een leeg formulier
« Gepost op: 12 september 2004, 00:14:01 »
Hallo,

Ik heb nu een factuur met een automatische teller.
Maar als ik een nieuwe factuur open krijg ik netjes het opeenvolgende factuurnummer maar de gegevens van de vorige factuur blijven staan.
Welke code moet ik toevoegen dat als ik een andere factuur open ik een leeg document krijg. Tenminste wel de layout maar niet de specifieke gegevens.

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

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:Automatische een leeg formulier
« Reactie #1 Gepost op: 12 september 2004, 02:34:35 »
je kan de waarde van de cellen op "" instellen
ik dacht iets in de aard van cells(i,j).value=""
voor de lijst van items zou je dan een lus kunnen laten uitvoeren

do while not cells(rij,1).value=""
for i = 1  to 5
cells(rij,i).value=""
next
loop

of iets dergelijks.
Gelogd
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline LucHeyndrick

  • Volledig lid
  • **
  • Berichten: 217
  • Oplossing.be
Re:Automatische een leeg formulier
« Reactie #2 Gepost op: 12 september 2004, 06:23:54 »
Jannie,

Ik ga van de veronderstelling uit dat je niet met formulieren werkt, maar met een gewoon werkblad.  (Dit omdat ik je zelf een voorbeeld aan de hand heb gedaan, om een factuur te makien)
Indien je nogmaals dit voorbeeld neemt, (Ik bedoel Factuur2.xls), en je werkt daar op verder, dan zal je zien dat de gegevens inderdaad gewist worden bij het maken van een nieuwe factuur.

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

Offline LucHeyndrick

  • Volledig lid
  • **
  • Berichten: 217
  • Oplossing.be
Re:Automatische een leeg formulier
« Reactie #3 Gepost op: 12 september 2004, 06:28:12 »
Citaat van: powerkite op 12 september 2004, 02:34:35
je kan de waarde van de cellen op "" instellen
ik dacht iets in de aard van cells(i,j).value=""
voor de lijst van items zou je dan een lus kunnen laten uitvoeren

do while not cells(rij,1).value=""
for i = 1  to 5
cells(rij,i).value=""
next
loop

of iets dergelijks.


Neem de macrorecorder... selecteer het ganse gebied, en druk op Delete.  Heb je meteen een code die stukken sneller werkt dan een lusje.  In dit geval zal de tijdswinst natuurlijk miniem zijn, maar indien je lus wat lang zou worden....

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

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:Automatische een leeg formulier
« Reactie #4 Gepost op: 12 september 2004, 23:30:02 »
De bedoeling van de lus was om enkel lijnen te gaan resetten waar waardes in staan. Als de lijst een onbekende lengte heeft dan zou het kunnen dat het gebied dat je geselecteerd hebt te klein is. Je kan ook "huidige gebied" selecteren maar dan selecteer je ook de "veldnamen" van die lijst en die mag je natuurlijk ni missen
Gelogd
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline Jannie

  • Lid
  • *
  • Berichten: 48
  • Oplossing.be
Re:Automatische een leeg formulier
« Reactie #5 Gepost op: 15 september 2004, 09:55:59 »
Hallo,

Heb ook deze zelf opgelost.
D.m.v. Macro opnemen.

Worksheets("Offerte").Activate
    Range("D5:D12").Select
    Selection.ClearContents
    Range("D5").Select

Werkt perfect.

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

scylla

  • Gast
Re:Automatische een leeg formulier
« Reactie #6 Gepost op: 03 oktober 2004, 13:05:30 »
Citaat van: LucHeyndrick op 12 september 2004, 06:28:12
Neem de macrorecorder... selecteer het ganse gebied, en druk op Delete.  Heb je meteen een code die stukken sneller werkt dan een lusje.  In dit geval zal de tijdswinst natuurlijk miniem zijn, maar indien je lus wat lang zou worden....

Luc


En je kan het je nog een stukje verder gaan. Eens je je macro hebt opgenomen zoals Luc voorstelt, open je die macro in de Visual Basic Editor en verander je de naam van je macro in " Auto_Open ".
Telkens je je werkmap opent om een nieuwe factuur te maken, worden automatisch alle velden leeg gemaakt.

mvg,
scylla
Gelogd

Offline alfa

  • Lid
  • *
  • Berichten: 83
  • Oplossing.be
Re:Automatische een leeg formulier
« Reactie #7 Gepost op: 06 oktober 2004, 18:34:07 »
Citaat van: Jannie op 15 september 2004, 09:55:59
Heb ook deze zelf opgelost. D.m.v. Macro opnemen.
Worksheets("Offerte").Activate
Range("D5:D12").Select
Selection.ClearContents
Range("D5").Select
Om bewerkingen op een range uit te voeren, is het niet nodig om die range te selecteren. Uw macro kan dus worden ingekort tot:
Worksheets("Offerte").Range("D5:D12").ClearContents

alfa.

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


www.combell.com