Hoe vanuit excel formulieren genereren met ingevulde waardes

[KACE]

HI;
Ik heb in excel tabblad1 met 3 kolommen met data, elke regel bevat ordernummer, tagnummer en een naam.
Ik heb een tablad2 met hierin een formulier wat door de mensen moeten worden ingevuld en 3 van die velden wil ik automatisch laten invullen met de gegevens van tabblad1.

Dmv een druk op de knop wil dat:
1] het formulier van tabblad2 de gegevens van de eerst regel van tabblad 1 invuld in de juiste velden;
2] dat tabblad gesaved wordt met de naam van de ordernummer;
3] dat deze file dan geprint wordt.
4] zie nr1 maar nu met de gegevens van de 2de regel etc. totdat alle formulieren uitgeprint zijn.

Ik heb geen kennis van VB, kan iemand me uit de spreekwoordelijke brand helpen?

Vr groet Kees

[99ruud99]

wat heb je wel al gevonden ?
Dan bouwt het verder op je kennis, ipv dat je geen enkele houvast aan bestaande kennis hebt.

[m-vw]

Wat je zou kunnen doen is de macrorecorder starten en dan voor 1 regel alle handelingen een keer uit te voeren. Dan heb je een basis.

Vervolgens zou je in google kunnen zoeken op loops in vba (for next of while do).

Ook mbt het printen is via google veel te vinden.

Om hoeveel regel gaat het overigens?

[F_J_K]

Welkom

KACE schreef op vrijdag 24 september 2021 @ 09:13:
Ik heb geen kennis van VB, kan iemand me uit de spreekwoordelijke brand helpen?

Klinkt wat cru, maar: dan is het zaak om (kant-en-klare software te kopen, iemand in te huren, of) daar eerst wat van te leren. Nog los van dat we op het forum graag zien dat men het eerst zelf probeert waarna we graag meedenken: je wilt heel erg niet 'willekeurige' code van anderen gebruiken en draaien zonder precies te weten wat het doet. Dat gaat gegarandeerd een keer erg fout namelijk.

Inspiratie opdoen met macro-opnemen kan geen kwaad nee, maar gebruik die code niet.

[KACE]

Bedankt voor de reacties zover.
Ik had zelf het volgende bedacht maar jammer genoeg werkt het niet.
Sub test2()

Dim wsWP As Worksheet
Set wsWP = Worksheets("Sheet1")
Dim wsRF As Worksheet
Set wsRF = Worksheets("Sheet2")
Dim i As Long

For i = 2 To 10
wsWP.Range("A" & i).Copy
wsRF.Range("E5").PasteSpecial xlPasteValues
wsWP.Range("E" & i).Copy
wsRF.Range("B5").PasteSpecial xlPasteValues
wsWP.Range("D" & i).Copy
wsRF.Range("B8").PasteSpecial xlPasteValues
wsWP.Cells(i, 3).Copy
wsRF.Range("G12").PasteSpecial xlPasteValues
wsRF.PrintPreview
wsRF.Range("E5, B5, B8, G12").ClearContents
Next

End Sub

Dit zou dan in theorie 9 formulieren moeten "uitprinten" / pre view laten zien?
In de praktijk zouden dit er +/- 450 moeten worden
Helaas geeft hij een foutmelding. Run time error 1004
Wellicht weet iemand wat er fout aan is, elke hulp is welkom.

B.v.d. Kees

[dixet]

KACE schreef op woensdag 13 oktober 2021 @ 11:43:
Dit zou dan in theorie 9 formulieren moeten "uitprinten" / pre view laten zien?
In de praktijk zouden dit er +/- 450 moeten worden
Helaas geeft hij een foutmelding. Run time error 1004
Wellicht weet iemand wat er fout aan is, elke hulp is welkom.

De code werkt bij mij zonder foutmelding. Heb je wel twee werkbladen met de namen "Sheet1" en "Sheet2"?

[ Voor 22% gewijzigd door dixet op 14-10-2021 16:11 ]

[g0tanks]

KACE schreef op woensdag 13 oktober 2021 @ 11:43:
Helaas geeft hij een foutmelding. Run time error 1004

Er zijn heel wat verschillende 1004 errors. Wat staat er nog meer bij de foutmelding?