- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- VoidXs: Tényleg minden játék optimalizálatlan?
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
- Steven: Sokat utazó kávéfüggők ide!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- droidic: Így beszélhetsz élő emberrel EA supportban
Új hozzászólás Aktív témák
-
vilag
tag
válasz
sztanozs #1835 üzenetére
Üdv!
Csináltam magamnak egy kis időt és megnéztem a több munkafüzetes megoldást is.
A megoldás működik...csak fordítva
Igazából azt írtad, hogy ha csak egy munkafüzet van nyitva, akkor csak a munkafüzetet zárja be, és ha több akkor pedig az egész programot
De a problémát megoldottam.
A hiba a következő volt:Private Sub CommandButton1_Click()
Dim wcount As Integer
Dim twb As Workbook
wcount = 0
For Each twb In Application.Workbooks
wcount = wcount + 1
Next
If wcount = 1 Then helyette 0 kell
Application.Quit
Else
Application.DisplayAlerts = False
wb.Close False
End If
End SubValamint a wb.Close -ra hibát dob, így azt átírtam twb-re (de így sem működött), így átírtam ThisWorkbook-ra.
Meg annyi, hogy én ez után a hibajelzést újra true-ra állítottam, hogy a nyitva maradt munkafüzetekben működjön. Bár lehet, hogy ez csak adott munkafüzetre vonatkozik.
Az igazat megvallva ezt nem tudom.Mindent egybevéve, nagyon köszönöm a segítséget, most több programomba is beépítem a megoldást.
Üdv, vilag
Új hozzászólás Aktív témák
- Kínai és egyéb olcsó órák topikja
- ASUS routerek
- BestBuy topik
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Hitelkártyák használata, hitelkártya visszatérítés
- Xiaomi 15 - kicsi telefon nagy energiával
- Honor Magic5 Pro - kamerák bűvöletében
- Kerékpárosok, bringások ide!
- Kuponkunyeráló
- Lakáshitel, lakásvásárlás
- További aktív témák...
- HomeAssistant-hez ideális: Beelink N3450 PC, 6 / 128 GB, Foxpost az árban
- i7-13700 / Z790 / 16 GB DDR4 / 256 GB SSD / 4 TB HDD / RM750X félkonfig
- Dobozos Új gamer MSI Katana 15 /i7-12650H/16GB/1TB SSD/RTX 4070 8GB GB/144Hz/Gari
- Huawei Watch Fit 4 Pro 3 év garancia, Huawe Freebuds 2
- Xiaomi Redmi 14 PRO 5 G 8/256 DUAL garanciával
- Külföldi csomagszállítás Packeta csomagpontokon keresztül!
- Bomba ár! HP EliteBook 830 G8 - i5-11GEN I 16GB I 512GB SSD I HDMI I 13,3" FHD I Cam I W11 I Gari!
- Bomba ár! Dell Latitude 7390 2in1 - i7-8G I 16GB I 256SSD I 13,3"FHD Touch I HDMI I Cam I W11 I Gar
- BESZÁMÍTÁS! Asus TUF B450M R5 5600X 32GB DDR4 512GB SSD RTX 3060 XC 12GB Rampage SHIVA Chieftec 600W
- Epson Expression 12000 XL Nagyformátumú A3 szkenner
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest