Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Te hány éves vagy?
- hcl: Amúgy mi a terv?
- btz: Internet fejlesztés országosan!
- Magga: PLEX: multimédia az egész lakásban
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- sziku69: Fűzzük össze a szavakat :)
-
LOGOUT
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
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Kínai és egyéb olcsó órák topikja
- Ultrakönnyű Logitech "G305" egér? Úgy tűnik, igen!
- HiFi műszaki szemmel - sztereó hangrendszerek
- Videós, mozgóképes topik
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- GoodSpeed: Te hány éves vagy?
- iPhone topik
- Milyen légkondit a lakásba?
- Azonnali informatikai kérdések órája
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Keresek Galaxy S21/S21+/S21 Ultra/S21 FE
- BESZÁMÍTÁS! Apple iPhone 12 Mini 64GB mobiltelefon garanciával hibátlan működéssel
- Új és újszerű 13-14 Gamer, ultrabook, üzleti, 2in1, X360, Touch készülékek kedvező áron Garanciával
- Eladó Samsung Galaxy Note 10 8/256GB / 12 hónap jótállással!
- Kingston FURY Impact 32GB DDR5 4800MHz KF548S38IB-32
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest

Fferi50
