-
Fototrend
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
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Humble szökevények 500-1500Ft
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Apple iPhone 12 Mini / 256GB / Kártyafüggetlen / 12Hó Garancia / Akku: 89%
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- Bomba ár! Lenovo ThinkPad L480 - i5-8GEN I 8GB I 256SSD I 14" FHD Touch I HDMI I Cam I W11 I Gari!
- HIBÁTLAN iPhone 13 Pro Max 128GB Gold-1 ÉV GARANCIA - Kártyafüggetlen, MS4162, 100% Akksi
- magyar billentyűzet - 165 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50
