-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
csferke
senior tag
válasz
csoki46
#37557
üzenetére
Szia!
Ezt nagyjából sikerült megoldanom, viszont a gond, hogy kérdés nélkül felülírja a korábbi fájlt, ha ugyan azt az értéket írom be a C1-be.Sz.tem ne a C1 legyen a pdf neve.
Pl. AA-ban C1+dátum (vagy C1+dátum&time) és ez legyen a pdf neve. Így mindig egyedi lesz az elnevezés. -
lappy
őstag
válasz
csoki46
#37557
üzenetére
Sub SaveNumberedFile()
Static count As Integer
Dim filestr As String
filestr = "C:\Users\Me\Documents\Code\TestWkbk"
ThisWorkbook.Activate 'Activate whichever workbook you need
If count = 0 Then
ActiveWorkbook.SaveAs (filestr & ".xls")
ElseIf count > 0 And Dir(filestr & "v" & count - 1 & ".xls") = "" Then
ActiveWorkbook.SaveAs (filestr & "v" & count & ".xls")
End If
count = count + 1
End Subannyi a baj vele hogy csak akkor számolja a változót ha meg van nyitva, bezárás esetén újra indul.
Célszerű valahova lementeni a füzeten belül ezt az értéket és minden megnyitásánál beolvasni.
Új hozzászólás Aktív témák
- Telekom mobilszolgáltatások
- BMW topik
- Debrecen és környéke adok-veszek-beszélgetek
- Invincible VS: jövő hónapban jön a nyílt béta
- PlayStation 5
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Fotók, videók mobillal
- Vezeték nélküli fülhallgatók
- WoW avagy World of Warcraft -=MMORPG=-
- Gitáros topic
- További aktív témák...
- MS SQL Server 2016, 2017, 2019
- The Elder Scrolls Online Imperial Collector s Edition
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Lenovo Thinkcentre M920t Tower/ M920s SFF / számla, garancia
- LG 65C3 - 65" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
- PC konfig /Ryzen 7 9800X3D, 32GB RAM, 1TB SSD/ akciós áron eladó!
- Eredeti Lenovo 135W töltők (sárga téglalap)
- iPhone 13 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS4651
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50