Macro maken hulp gevraagd

[gerrit098]

Beste Forumleden,

Voor het opmaken van de kassa heb ik een excel document gemaakt. Dit werkt erg goed.

Om het later verwerken van de boekhouding wil ik er nog wat functies aan toevoegen.

Is het mogelijk om een macro te maken die bepaalde gegevens naar het 2de blad te exporteren.

Is er iemand die mij hier een beetje mee op weg wil helpen, ik ben zelf niet zo bekend met macro`s

alvast bedankt,

Gerrit

 

[Haije]

Gerrit,

zoiets als in de bijlage?

 

[gerrit098]

HELD!! hartelijk dank

heb alleen de "clear"functie aan gepast zodat ie automatisch weer helemaal leeg is maar de formules wel blijven staan.

kan je mij mischien ook vertellen hoe ik hem in de macro automatisch laat Afdrukken A1:M22 en vervolgens het document opslaan?

 

[gerrit098]

Sub opslaan()
Range("A1:M21").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"

regels = Sheets("Data").Range("A1").CurrentRegion.Rows.Count
Sheets("Data").Range("A1").Offset(regels) = Sheets("Dagstaat").Range("G1")
Sheets("Data").Range("A1").Offset(regels, 1) = Sheets("Dagstaat").Range("M11")
Sheets("Data").Range("A1").Offset(regels, 2) = Sheets("Dagstaat").Range("M12")
Sheets("Data").Range("A1").Offset(regels, 3) = Sheets("Dagstaat").Range("M13")
Sheets("Data").Range("A1").Offset(regels, 4) = Sheets("Dagstaat").Range("M14")
Sheets("Data").Range("A1").Offset(regels, 5) = Sheets("Dagstaat").Range("M15")
Sheets("Data").Range("A1").Offset(regels, 6) = Sheets("Dagstaat").Range("M17")
Sheets("Data").Range("A1").Offset(regels, 7) = Sheets("Dagstaat").Range("M18")
Sheets("Data").Range("A1").Offset(regels, 8) = Sheets("Dagstaat").Range("M19")
Sheets("Data").Range("A1").Offset(regels, 9) = Sheets("Dagstaat").Range("M21")
Sheets("Dagstaat").Range("A5:A10,A15:A18,J5:J9,M12:M15,M18,M19").ClearContents
End Sub

Het printen is gelukt nu het opslaan alleen nog

 

[gerrit098]

ActiveWorkbook.Save ook gelukt

TOP

 

[gerrit098]

Laatste vraag,

op het 3de blad vul ik in c1 en e1 de begin en eind rij in.

is het ook mogelijk om dit met datum`s te doen?

 

[Haije]

je laatste vraag snap ik niet, want blijkbaar gaat het niet zoals je verwacht

 

[gerrit098]

Het werkt goed laat voor op staan :thumb:

ik wil het totaal weten van bijvoorbeeld 27-8-2012 tot en met 3-9-2012 nu vul ik dan dus c1 (rij) 2 en in e1 (rij) 9 dan telt ie dat naar behoren op.

Liever zou ik gelijk in kunnen vullen 27-8-2012 (in c10) en 3-9-2012 (in e1)

 

[Haije]

Gerrit,

oké, ik snap het.

Ja dat kan, bv mbv de functie SOMPRODUCT. zie bijlage

LET OP, de bijlage is een Excel2003 bestand > opslaan als .xlsm

 

[Warme bakkertje]

Beperk het aantal schrijfbewerkingen naar je werkblad.

Sub opslaan()
Range("A1:M21").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Dim data(10)
With Sheets("Dagstaat")
    data(0) = .Range("G1")
    data(1) = .Range("M11")
    data(2) = .Range("M12")
    data(3) = .Range("M13")
    data(4) = .Range("M14")
    data(5) = .Range("M15")
    data(6) = .Range("M17")
    data(7) = .Range("M18")
    data(8) = .Range("M19")
    data(9) = .Range("M21")
End With
Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 10) = data
Sheets("Dagstaat").Range("A5:A10,A15:A18,J5:J9,M12:M15,M18,M19").ClearContents
End Sub