Ik wil een blad maken in excel waar maar twee gegevens opstaan(artikelnummer en aantal ev. datum en tijd). Deze worden dan uitgeprint. Deze gegevens moet ik dan verwijderen om nieuwe gegevens in te geven. Hoe kan ik deze gegevens automatisch opslaan. Hoe kan ik automatisch de datum van vandaag laten verschijnen?
Sofie

Ja, dit is de bedoeling. maar van Access het ik geen kaas gegeten en weet niet hoe ik eraan moet beginnen.
Alvast bedankt voor de tip.

Hoe kan ik automatisch de datum van vandaag laten verschijnen?

   =vandaag()

Je schrijft: Ik heb tevergeefs geprobeert ....
Wat probeer je nog meer? Artikel en aantal verschilt telkens, dus....

Probeer eens een voorbeeld van je werkblad aan te hangen.

SoftAid

Hallo Sofie,

Je kan via een heel eenvoudige macro de gegevens die je invult in blad1, laten opslaan op blad2 van hetzelfde werkboek.

De volgende macro definieert "nummer" dat is in je macro het regelnummer in je blad2. Na elke uitvoering van de macro wordt dit "nummer" met 1 verhoogt, en worden de gegevens die je daarna in blad1, "C1:D1" invult, op de volgende regel van blad2 geschreven en opgeslaan.

Copieer deze macro maar naar een nieuw werkboek,  in blad1 vul je in:
A1:   1                               'regelnummer
B1:   =vandaag()               'opmaak van de cel =Datum
C1:   Jassen                      ' je artikelnaam
D1:   12                             ' het aantal jassen

Activeer de macro en kijk naar blad2
Je gegevens staan nu in blad2 op een rij
Terug naar blad1. Daar staat nu in A1 een  2, je nieuwe regelnummer. In B1 staat je huidige datum. C1 en D1 leeg.
Vul C1 en D1 opnieuw in met ander artikel en hoeveelheid.
Activeer macro. Kijk in Blad2.

Sub overzet()
   
   
    Sheets("blad1").Select
    Dim nummer As Integer
    nummer = Sheets("blad1").Range("A1")
    Sheets("blad2").Select
    v = nummer
    Cells(v, 1).Value = nummer
    Cells(v, 2).Value = Sheets("blad1").Range("B1") 'Datum
    Cells(v, 3).Value = Sheets("blad1").Range("C1") 'Naam
    Cells(v, 4).Value = Sheets("blad1").Range("D1") 'Aantal
   
    'Blad1 gegevens verwijderen
    Sheets("blad1").Select
    Range("C1:D1").Select
    Selection.ClearContents
       
    'Nummer verhogen en werkblad opslaan
    Cells(1, 1).Value = nummer + 1
    ActiveWorkbook.Save
    End Sub

SoftAid

Ben te laat