-
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
- Gitáros topic
- Robogó, kismotor
- Küszöbön az androidos PC-k
- AliExpress tapasztalatok
- Kínai és egyéb olcsó órák topikja
- Elemlámpa, zseblámpa
- 2.1-es Bose sztereó hangrendszer a Redmi K90 Pro Maxban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Nem lesz iPhone 19
- Mibe tegyem a megtakarításaimat?
- További aktív témák...
- 10magos! Fémvázas! HP EliteBook 860 G9 i7-1255U 16GB 512GB 16" FHD+
- Asus ROG Zephyrus G14 - 14"2.8K OLED 120Hz - Ryzen 9 8945HS - 16GB - 1TB - RTX 4060 -2,5 év garancia
- GYÖNYÖRŰ iPhone 14 Pro Max 256GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3419
- Lenovo IdeaPad Slim 3 - 15.6" Full HD - Ryzen 5-7520U - 8GB - 512GB - Win11 PRO - MAGYAR - Garancia
- Dell USB-C dokkolók: (K20A) WD19/ WD19S/ WD19DC + 130W, 180W, 240W töltők
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest