separate files maken op basis van een master en de file ook invullen vanuit lijst

Status
Niet open voor verdere reacties.
J

Jansap

Gebruiker
Lid geworden
20 okt 2005
Berichten
67
Hallo forum,

Ik wil moet 500 separate excelfiles maken vanuit een master en die allemaal een unieke naam geven uit een lijst.
daarnaast moet er vanuit die lijst ook gegevens worden ingevuld in de separate file.

Bijgaande een excel voorbeeld met op blad een de lijst en blad twee de master.

De master moet gekopieerd worden, kop gevens overnemen van de lijst en wegschrijven als "nummer_wo.no".xlsx

Ik zie jullie ideeen graag tegemoet.

jan
 

Bijlagen

  • Vraag.xlsx
    9,9 KB · Weergaven: 40
Het is me niet duidelijk.
Waarom gebruik je kolom A niet ?
Waarom splitsen wat bij elkaar hoort ?
Hoe moet het resultaat eruit zien ?
Waarom fouten 500 keer dupliceren ? wat zijn 'gevens'
 
het voorbeeld is een klein gedeelte van de eigenlijke spreadsheet.
de master is echt een voorbeeld, bedrijf gegevens hierin zetten is niet handig.
Dit moet een invullijst worden voor technicians, ik heb vanuit een erp systeem de gegevens zoals die in de ljst staan gedownload.
nu moeten de mannen inspectie gaan lopen en de inspectiebladen moeten indivudueel gekoppeld worden via wo no naar het erp systeem.
Dus ik moet uit eindelijk 500 lijsten krijgen voorzien van benaming"nummer_wo.no".

Om nu met het handje de master te vullen, lees knippen en plakken, en dan de master te save as "nummer_wo.no" leek mij een beetje werk verschaffing en dus zocht ik het in een slimme macro.

Jan
 
Probeer het zo eens

Code: 
Sub VenA()
  c00 = "C:\Temp\"
  ar = Sheets("lijst").Cells(1, 2).CurrentRegion
  For j = 2 To UBound(ar)
    Sheets("Master").Cells(3, 5).Resize(4) = Application.Transpose(Array(ar(j, 4), ar(j, 1), ar(j, 2), ar(j, 3)))
    Sheets("Master").Copy
    With ActiveWorkbook
      .SaveAs c00 & ar(j, 1)
      .Close 0
    End With
  Next j
End Sub
 
reactie

Hallo VenA,

Dat loopt lekker zo.
De naamgeving van de file bestaat nu alleen uit nummer en wat ik graag wil zien is nummer_wo.no.

1708-2500-lt_926252526.xls,

Zie niet waar ik veld twee moet neer zetten.

Bedankt voor deze uitwerking.

jan
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan