Hirdetés
- Igazi csúcskészülék lett a Poco F7 Ultra
- Hivatalos a OnePlus 13 startdátuma
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- Xiaomi 12X – kicsi a bors és hűvös
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Yettel topik
- Android szakmai topik
- Google Pixel topik
- Milyen okostelefont vegyek?
-
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
-
Fferi50
Topikgazda
válasz
EmberXY
#33715
üzenetére
Szia!
Bocsánat, teljesen igaza van az Excelnek. Ha modulba illeszted, akkor az utolsó sor nem end if, hanem end sub kell legyen, bárhova is illeszted be. Nem akartalak megszivatni, csak figyelmetlen voltam, sorry

Sub figyelmeztet()
If Application.CountIf(Sheets(jegyzetlap).UsedRange, "n") > 0 Then MsgBox "Elintézetlen tétel van"
End SubHa a Thisworkbook Workbook_Open eseményébe, akkor csak a középső sor kell a megjelenő vázlat közé:
Private Sub Workbook_Open()
If Application.CountIf(Sheets(jegyzetlap).UsedRange, "n") > 0 Then MsgBox "Elintézetlen tétel van"
End SubA korábbi kérdésedre: Ebben a formában csak az egyedülálló "n"-eket keresi (így pl. az igen nem játszik a számolásnál. Ha "n"-t tartalmazó szavakat keresel, akkor "*n*" minden olyan cellát beleszámol, amelyben az n betű előfordul.
Üdv.
Új hozzászólás Aktív témák
- Apple MacBook
- Linux kezdőknek
- Luck Dragon: Asszociációs játék. :)
- Kerékpárosok, bringások ide!
- Milyen billentyűzetet vegyek?
- Igazi csúcskészülék lett a Poco F7 Ultra
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- EAFC 26
- Vezeték nélküli fülhallgatók
- Hivatalos a OnePlus 13 startdátuma
- További aktív témák...
- Stalker Clear Sky Limited Collector's Edition
- BLACK FRIDAY! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Witcher 1 Collector's Edition
- Árváltozás + játék DVD: Watch Dogs Deadsec Edititon
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- GYÖNYÖRŰ iPhone 12 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS4013, 100% Akkumulátor
- GYÖNYÖRŰ iPhone SE 2020 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3920, 100% Akksi
- Telefon felvásárlás!! Samsung Galaxy A20e/Samsung Galaxy A40/Samsung Galaxy A04s/Samsung Galaxy A03s
- Újszerű Apple MacBook Air M1 13.3 - 8GB/256GB - Asztroszürke - 238 Ciklus - 88% akku - MAGYAR
- BESZÁMÍTÁS! LENOVO Ideapad Gaming 3 notebook - R5 5600H 16GB DDR4 256GB +1TB SSD nVidia GTX 1650 4GB
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi

Fferi50

