-
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
- Több mint 2 millióan próbálták ki a Pragmata demóját
- Házimozi belépő szinten
- Luck Dragon: Asszociációs játék. :)
- Microsoft Office és Office 365 topic
- Debrecen és környéke adok-veszek-beszélgetek
- Xbox Series X|S
- iPhone-t használók OFF topikja
- MWC 2026: Bajnoki címre pályázik a Xiaomi Watch 5
- DJI topic
- Vezetékes FEJhallgatók
- További aktív témák...
- iPhone 12 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4615, 100% AKKSI
- Telefon felvásárlás!! Xiaomi Redmi 9, Xiaomi Redmi 9AT, Xiaomi Redmi 10, Xiaomi Redmi 10 2022
- MSI Gaming Thin 15 - 15.6"FHD 144Hz - Ryzen 7 7735HS - 16GB - 1TB - Win11 - RTX 4060 - 2,5 év gari
- Dell Precision 7750,17.3" FHD,i7-10875H,32GB DDR4,256GB SSD,RTX 3000 6GB VGA,WIN11
- Dell XPS 13 9310 i7-1185G7 16GB 512GB 13" FHD+ 1 év garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50