Hirdetés
- Szinte meg sem jött, máris fogyókúrára fogták a Logitech Rapid Triggeres egerét
- Hamarosan érkezik az EIZO első, kreatív profikat célzó OLED monitora
- Karnyújtásnyira a nyereség a Samsung chipgyártó részlegén belül
- Idővel kicsúszik az aljzatból a 12V-2x6 tápkonnektor?
- Leállította a legelső Legion Go kézikonzol terméktámogatását a Lenovo
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Kormányok / autós szimulátorok topikja
- Fejhallgató erősítő és DAC topik
- Szinte meg sem jött, máris fogyókúrára fogták a Logitech Rapid Triggeres egerét
- Milyen monitort vegyek?
- Épített vízhűtés (nem kompakt) topic
- OLED TV topic
- Milyen TV-t vegyek?
- Kompakt vízhűtés
-
PROHARDVER!
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
bteebi
#25180
üzenetére
Szia!
Egyrészt, ha eseménykezelést végzel, akkor ki kell kapcsolni az eseményeket:
Application.EnableEvents=False
majd a végén visszakapcsolod:
Application.EnableEvents=True
Ha nem így teszel, akkor jó esetben csak meghosszabodik a program futása, rossz esetben más cellákat is átír, nem csak azokat, amelyeket szeretnéd.Továbbá van két képlet benne, ami formailag ugyan helyes (nem kiabál érte a fordító), de teljesen blőd eredményt ad, rossz helyre került a záró zárójel:
If Sheets("proba").Cells(sor - 72, 5) < Sheets("proba").Range("S130") Or WorksheetFunction.IsNumber(Sheets("proba").Cells(sor - 72, 5)) = True
A Te kódodban a True után volt a zárójel, az előréb kell hozni az egyenlőség jel elé, ahogyan itt is látod.
Ugyanez van az oszlopos vizsgálatánál is, ott is az egyenlőség jel után kell a zárójel és nem a False után.
Üdv.
Új hozzászólás Aktív témák
- Garmin Fenix 7 és 7S - profi sport megszokásból
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- PlayStation 5
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Bundle topik
- AirTag-riválist hoz Európába a Xiaomi
- Kormányok / autós szimulátorok topikja
- Fejhallgató erősítő és DAC topik
- Szinte meg sem jött, máris fogyókúrára fogták a Logitech Rapid Triggeres egerét
- Milyen monitort vegyek?
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Fallout 4 Pip-Boy Edition eladó
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- The Elder Scrolls Online Imperial Collector s Edition
- Corsair VENGEANCE LPX 16GB (2x8GB) DDR4 3200MHz CMK16GX4M2Z3200C16
- ÚJ Lenovo ThinkPad T16 Gen 4 - 16" WUXGA - Ultra 7 255U - 32GB - 1TB SSD - Win11 - 3 év garancia
- MSI 17 Pulse FHD IPS 144Hz i7-13700H 14mag 16GB 512GB SSD Nvidia RTX 4060 8GB 140W Win11 Garancia
- Eladó egy Gigabyte komlet gép
- Apple iPhone 5/5S szerviz alkatrészek, készletről akár másnapra!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
