• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Deel van de vna code dynamisch maken

Status
Niet open voor verdere reacties.
HWV

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.183
Beste,

Ik gebruik onderstaande code.
Wat de bedoeling is dat dit dynamisch wordt, dus dat hij verwijst naar vorig jaar en dit jaar.
Nu moet ik elk jaar dit veranderen!

Is hier een oplossing voor te bedenken!

Code: 
Workbooks("afname2017.xls").Sheets("Data1").Range("A1:R65000").Copy
Workbooks("ZNP 008 Standaard Bestelformulier.xlsm").Sheets("Opslag").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues

Workbooks("afname2018.xls").Sheets("Data1").Range("A1:R65000").Copy
Workbooks("ZNP 008 Standaard Bestelformulier.xlsm").Sheets("Opslag").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues

Alvast dank voor de inzet !


HWV
 
dat gaat je een hele hoop tijd schelen :), maar probeer dit eens:

Code: 
Workbooks("afname" & Year(Date) - 1 & ".xls").Sheets("Data1").Range("A1:R65000").Copy
Workbooks("ZNP 008 Standaard Bestelformulier.xlsm").Sheets("Opslag").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues

Workbooks("afname" & Year(Date) & ".xls").Sheets("Data1").Range("A1:R65000").Copy
Workbooks("ZNP 008 Standaard Bestelformulier.xlsm").Sheets("Opslag").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues

Of 2 in 1

Code: 
For i = 1 To 2
Workbooks("afname" & Year(Date) + i - 2 & ".xls").Sheets("Data1").Range("A1:R65000").Copy
Workbooks("ZNP 008 Standaard Bestelformulier.xlsm").Sheets("Opslag").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
Next
 
Laatst bewerkt:
Geweldig

Perfect, di is de oplossing.
Het is idd niet de tijd dat je er insteek maar je moet er wel aan denken om het te veranderen.

Dank voor je hulp.

HWV
 
of
Code: 
For j = -1 To 0
   with Workbooks("afname" & Year(Date) + j & ".xls").Sheets("Data1").cells(1).currentregion.resize(,18)
        Workbooks("ZNP 008 Standaard Bestelformulier.xlsm").Sheets("Opslag").cells(rows.count,1).end(xlup).offset(1).resize(.rows.count,18)=.value
   end with
Next
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan