Hirdetés
- Motorola Edge 30 Ultra - a 200 megapixeles kérdés
- Milyen okostelefont vegyek?
- Android alkalmazások - szoftver kibeszélő topik
- Fotók, videók mobillal
- Milyen hagyományos (nem okos-) telefont vegyek?
- Nothing Phone 2a - semmi nem drága
- Félő, hogy az okosszemüveg a szexuális zaklatók játékszere lesz
- Yettel topik
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Xiaomi 14T - nem baj, hogy nem Pro
-
Mobilarena
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
Hirdetés
- Motorola Edge 30 Ultra - a 200 megapixeles kérdés
- Milyen okostelefont vegyek?
- Android alkalmazások - szoftver kibeszélő topik
- Gitáros topic
- Apple MacBook
- Fotók, videók mobillal
- Milyen hagyományos (nem okos-) telefont vegyek?
- Nothing Phone 2a - semmi nem drága
- Nem tetszik a PC-gyártóknak az Xbox új iránya?
- Milyen Android TV boxot vegyek?
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Microsoft Office 2024 Home Business dobozos
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- 27% - Lenovo Legion R27qe IPS Monitor! 2560x1440 / 180Hz / 0.5ms / FreeSync
- Értékcsökkentett gamer alaplapok /ASUS/MSI/AM5/Számlával/
- ÁRGARANCIA!Épített KomPhone i9 14900KF 32/64GB DDR5 RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Jawbone Up okoskarkötő, aktivitásmérő
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
