Hirdetés
- Youtube Android alkalmazás alternatívák reklámszűréssel / videók letöltése
- Szívós, szép és kitartó az új OnePlus óra
- One mobilszolgáltatások
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Megyünk a CES-re! Mi várható?
- Apple iPhone 13 mini - miért nem veszik elegen?
- Apple iPhone 17 Pro Max – fennsík
- Amazfit Bip 6 - jót olcsón
- Nothing Phone (1) - nem semmi (2)
- Yettel topik
-
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
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- NFL és amerikai futball topik - Spoiler veszély!
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Dell notebook topic
- Youtube Android alkalmazás alternatívák reklámszűréssel / videók letöltése
- ASUS ROG Ally
- Spórolós topik
- Fejhallgató erősítő és DAC topik
- Suzuki topik
- További aktív témák...
- Okosóra felvásárlás!! Samsung Galaxy Watch 5 Pro, Samsung Galaxy Watch 6 Classic
- Samsung Galaxy S24 Ultra 512GB Kártyafüggetlen 1év Garanciával
- HIBÁTLAN iPhone 13 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3732
- KÉSZLETKISÖPRÉSI ULTRA GIGA AKCIÓ! CTO 0perces SKY MacBook Air 15" M4 10C/10G 16GB 1000GB 1 év gar
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50

