Automatisch invullen van data in een template

Stel hier je vraag over een Excel probleem
Sidney603
Berichten: 7
Lid geworden op: 13 okt 2020 10:37

Re: Automatisch invullen van data in een template

Bericht door Sidney603 » 27 okt 2020 11:59

Het is gelukt, dit topic kan wat mij betreft gesloten worden!

Bedankt voor de hulp!
Groet Sidney

Code: Selecteer alles

Dim Path As String
Dim filename As String

If Range("B2").Value = "1121" Then
 Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M1\"
Else
If Range("B2").Value = "1137" Then
 Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M2\"
Else
If Range("B2").Value = "1153" Then
 Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M3\"
Else
If Range("B2").Value = "1173" Then
 Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M4\"
Else
If Range("B2").Value = "1189" Then
 Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\M5\"
 
End If
End If
End If
End If
End If
 
filename = Range("B1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filename:=Path & filename & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True

Application.Quit

End Sub

jkpieterse
Site Admin
Berichten: 805
Lid geworden op: 30 jan 2017 14:32

Re: Automatisch invullen van data in een template

Bericht door jkpieterse » 27 okt 2020 12:16

Maak een lijstje met productnummers met ernaast de bestemmingsmap en gebruik in B2 X.ZOEKEN (of VERT.ZOEKEN) om de map op te zoeken bij het product. Dan kan de VBA code veranderen in iets als:

Code: Selecteer alles

Path = "C:\Users\sbeckers\Desktop\Meetkamer Meetdocumenten\" & Range("B2").Value
Als je formule in een andere cel dan B2 staat dan dat adres hierboven aanpassen.
Groetjes,
Jan Karel Pieterse
jkp-ads.com

Plaats reactie