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