Opzetten tool (automatisch saven van numerieke data naar ander werkblad)

[Fermacelli]

Beste Excel kenner,

Zelf ben ik bezig met een klein engineerings project op het gebied van verbruik van verpakkingsmateriaal.
Ik merk dat we veel data omslachtig verzamelen (voorbeeld: we slaan dagelijks een verbruikslijst op in Excel op (jaarlijks +200 bestanden).

Dit is naar mijn mening erg omslachtig en daarom ben ik op zoek naar een bestand waar men op jaarbasis het verbruik registreert in een bestand.
Stap 1: Registreren verbruik
Stap 2: Klik op Save
Stap 3: Data wordt verplaatst naar werkblad Boekingen (Kolom A Datum, Kolom B verbruik product 1, Kolom C product 2, etc.

Kan iemand van jullie me misschien hier bij helpen?
Ben erg benieuwd naar welke functies etc ik moet gebruiken.
In de bijlage heb ik een opzet, maar mijn kennis is niet toereikend.
Het is namelijk erg lastig te googlen voor zulke functies en zelf het een en ander uit te pluizen.

Heel veel dank alvast!!

Met vriendelijke groet,
Koen

 

[VenA]

Ik begrijp niet zoveel van het voorbeeldje. Maak er een tabel van en gebruik een draaitabel zou ik denken.

 

[wieter]

Of met druk op knopje "Save"

 

[Fermacelli]

@ Vena, excuses dat ik niet helder was.

@ Wieter, dit was precies wat ik zocht! Dank u!!

Het schrijven met VBA vereist aardig wat kennis neem ik aan?
Ik ga maar eens beginnen met tutorials .


Sub kopieren()
Set BronRij = Sheets(1).Range("D3,I7,I8,I9")
DoelRij = Sheets(2).Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
x = 1
For Each cel In BronRij
Sheets(2).Cells(DoelRij, x) = cel.Value
x = x + 1
Next
Sheets(2).Columns("A").EntireColumn.AutoFit
End Sub

 

[wieter]

Het voorbeeld was maar een aanzet, hoe het kan.
Maar eigenlijk ben je er niet zoveel mee.
Zo kan het niet de bedoeling zijn dat elke onbevoegde, zomaar de ganse dag op dat knopje kan gaan drukken.
Daarom een kleine aanpassing:
- Ofwel koppel je het gebruik van de knop aan een tijdsperiode. Zie bijlage(1)
- Ofwel koppel je de knop aan een wachtwoord. Zie bijlage(2)

 

[VenA]

Ik weet niet wat er dynamisch is aan de code maar het lijkt mij logischer op de gegevens die geboekt zijn te wissen uit het origineel. Met een beter voorbeeld is er vast ook betere code te maken.

Sub VenA()
With Sheets(1)
    ar = Array(.[d3].Value, .[i7].Value, .[i8].Value, .[i9].Value)
    With Sheets(2)
        .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1).Offset(1).Resize(1, 4) = ar
    End With
    .Range("I7:I9").ClearContents
End With
End Sub

 

[HSV]

Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(1, 4) = ar

 

[VenA]

Best wel knullig:d

 

[HSV]

Dat heb ik maar achterwege gelaten te vermelden. :d