Hallo! zeer bedankt voor de snelle reactie. Ik kom er echt achter dat mijn macro kennis veel te beperkt is want ik zou niet weten hoe ik dit in zou moeten passen...
Ik heb voor de duidelijkheid de macro die ik nu heb gemaakt hieronder genoteerd. In feite is het zo dat hij het hele riedeltje moet herhalen beginnende in cel B4. In het script hieronder handelt hij nu 1 artikel regel af. Als er in B5 ook een artikel staat moet hij het riedeltje herhalen voor deze regel. En dat net zo lang doen tot hij in kolom B tot een lege cel komt en dan kan hij stoppen..
Vraag 1:
Is dat wellicht simpel in dit script aan te passen?
Vraag 2:
als ik aan een nieuwe rij begin zal ik ook telkens de alle cellen moeten aanpassen vanwaaruit hij kopieert en waar hij naartoe plakt.. Het gevolg is veel handwerk en een heel lang script. Immers, dit is voor 1 artikel (regel) en als ik er dus 100 heb dan zal hij 100x zo lang worden en dat lijkt mij behoorlijk groot.. Moet toch netter kunnen?
Misschien een lastige om zo uit te leggen kan ik mij voorstellen, maar wie weet is er een ingang ergens??
Vast bedankt.
Sub Import()
'
' Import Macro
'
'*********************************************************************************************
'*********************************************************************************************
'************** WE BEGINNEN MET HET OVERBRENGEN VAN HET EERSTE ARTIKEL, ALLES BEHALVE DE ASSORTIMENTEN*************
'**** ALS EERSTE DE NAAM VAN HET ARTIKEL ****
Windows("INKOOP - TEMPLATE V2.xlsx").Activate
Range("B4").Select
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("B10:B17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'***** DAN DE ARTIKELGROEP *******
Windows("INKOOP - TEMPLATE V2.xlsx").Activate
Range("P4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("C10:C17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'****** DAN DE INKOOPPRIJS ********
Windows("INKOOP - TEMPLATE V2.xlsx").Activate
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("J10:J17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'****** DAN DE PRODUCTCODE LEVERANCIER *******
Windows("INKOOP - TEMPLATE V2.xlsx").Activate
Range("E4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("U10:U17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'******* DAN DE CODE LEVERANCIER (DUS NIET VAN HET PRODUCT, MAAR VAN DE LEVERANCIER ZELF!) ****
Windows("INKOOP - TEMPLATE V2.xlsx").Activate
Range("O4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("O10:O17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'******** DAN DE VERKOOPPRIJS ************
Windows("INKOOP - TEMPLATE V2.xlsx").Activate
Range("G4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("G10:G17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'***** EN WE GAAN WEER TERUG NAAR DE INKOOPTEMPLATE **********
Windows("INKOOP - TEMPLATE V2.xlsx").Activate
'************************************************************************************************
'************************************************************************************************
'**************NU DE ASSORTIMENTEN OVERZETTEN ***************************************************
'** BEGINNEN MET ASSORTIMENT 1 (SEIZOEN) IN KOLOM H
Windows("INKOOP - TEMPLATE V2.xlsm").Activate
'het eerste artikel is dus H4, het 2e artikel zal zijn H5 etc etc
Range("H4").Select
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
'het eerste artikel komt dus op N10, het 2e artikel zal zijn N11 etc etc
Range("N10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'** DAN ASSORTIMENT 2 (MERK)IN KOLOM C
Windows("INKOOP - TEMPLATE V2.xlsm").Activate
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("N11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'** DAN ASSORTIMENT 3 (GESLACHT)IN KOLOM I
Windows("INKOOP - TEMPLATE V2.xlsm").Activate
Range("I4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("N12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'** DAN ASSORTIMENT 4 (WEBSHOP 1) DEZE STAAT NIET IN EEN APARTE KOLOM, IS ALTIJD LABEL54 VOORALSNOG EN DIE IS APART GEZET IN AE1
Windows("INKOOP - TEMPLATE V2.xlsm").Activate
Range("AE1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("N13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'** DAN ASSORTIMENT 5 (KLEUR)IN KOLOM J
Windows("INKOOP - TEMPLATE V2.xlsm").Activate
Range("J4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("N14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'** DAN ASSORTIMENT 6 (FIT)IN KOLOM K
Windows("INKOOP - TEMPLATE V2.xlsm").Activate
Range("K4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("N15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'** DAN ASSORTIMENT 7 (PRINT)IN KOLOM L
Windows("INKOOP - TEMPLATE V2.xlsm").Activate
Range("L4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("N16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'** DAN ASSORTIMENT 8 (VERZEND GEWIST)IN KOLOM M
Windows("INKOOP - TEMPLATE V2.xlsm").Activate
Range("M4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ArtikelImport.xlsx").Activate
Range("N17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'EN WEER TERUG NAAR DE INKOOP TEMPLATE
Windows("INKOOP - TEMPLATE V2.xlsm").Activate
End Sub