Szia,
Köszönöm a válaszodat, kicsit sűrű a programom, bár szívesen elmennék a fejtágítóra. A későbbiekben is hasznát tudnám venni így majd sort kerítek rá mindenképpen.
Jelenleg egy adott problémát szeretnék megoldani, aztán fogok tudni gondolkodni a később bővülő feladatok automatizálásán.
Keresgéltem a neten megnéztem számtalan videót is, találtam kódot a feladatra és jól látod fogalmam sincs róla, hogyan épül fel, vagy a hivatkozásokat hogyan tudnám benne cserélni.
Megcsináltam egy tutorial alapján, de a névkreálást tudom hogyan állítsam be, hogy cellákból olvassa ki.
Worksheets(„Ajánlat”).Activate
Ajánlat = ActiveWorkbook.Path & „/” & ActiveSheet.Name & „_” & _
??????????? & „.pdf”
‘Export activesheet as PDF
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ajánlat, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
A kérdés csak az maradt, hogy miként tudnám az ajánlat „Névcella” +”dátumcella” nevet létrehozatni.
A kérdőjelek helyén egy számgenerátorra(?) hivatkozott.
