- Fotók, videók mobillal
- Az Oppo Find X8 Ultra lett a legvékonyabb kameramobil
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- iPhone topik
- One mobilszolgáltatások
- Samsung Galaxy S21 és S21+ - húszra akartak lapot húzni
- 45 wattos vezeték nélküli töltés jön az új iPhone-ba
- Google Pixel topik
- Okosóra és okoskiegészítő topik
- Motorola Razr 60 Ultra - ez a kagyló könnyen megfő
-
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
Tegyél légy szíves egy töréspontot az első feltételvizsgálathoz. (Egérrel rámutatsz a sor előtt levő mezőre és bal klikk - a sor elé kerül egy pont és kiszínesedik a sor.)
Utána soronként próbáld meg végrehajtani.
Az első sor végrehajtása után az Immediate ablakban meg tudod nézni a Target címét így:
?Target.Address erre üss egy entert.
Ezt a képet mutasd meg légy szíves, mi lett az eredmény.Üdv.
-
Fferi50
Topikgazda
Szia!
Egyesített cella NEM JÁTSZIK ebben az esetben! Ezért ad hibaüzenetet. Mert ugyan te úgy látod, hogy a B2 cella van kijelölve, de "mögötte" a tartományban ott van a másik három.
Szerintem itt más módon kell a B2 cella értékét megvizsgálni.
Mindjárt lecsekkolom.
Egyenlőre nem sikerült a hibát előállítanom. Nem hiszem, hogy az előzőekben írtak okozzák.
Melyik cellát/cellákat választottad ki, amikor a hiba előjött?Üdv.
-
Fferi50
Topikgazda
Szia!
Milyen műveletet szerettél volna végezni, amikor ezt a hibát kaptad?
Több cellát másoltál be? Mert akkor keletkezik ilyen hiba, mivel ebben az esetben a Target.Value tulajdonságot nem tudja értelmezni.
Pár hozzászólással korábban mutattam erre megoldást.
Külön kell venned a két feltételt. Először nézd meg, a B2 cella módosult,
utána a következő sorban, hogy van-e benne érték:
If Not Intersect(Target, Range("B2") Is Nothing Then
If Target.Value="" Then
…
End If
End IfÜdv.
-
Delila_1
veterán
Biztosan át tudtad írni.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing And Target.Value = "" Then
Application.EnableEvents = False
Range("C5:E10, C12:E20") = ""
Application.EnableEvents = True
End If
End SubA 11-es sor címszavait meghagytam.
-
Delila_1
veterán
Erre gondolsz?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing And Target.Value = "" Then
Application.EnableEvents = False
Range("C4, E4, F2, H2,h4") = "" ***
Application.EnableEvents = True
End If
End SubEbben a laphoz rendelt makróban a D2 cella tartalmának a törlésekor a csillagokkal jelölt sorban lévő cellák tartalma is törlődik.
Az első sorban a Range("D2")-t átírhatod annak a cellának a címére, ahol törölni akarsz, a ***-gal jelölt sorban a törlendő cellák címét írd be a mostaniak helyett. -
Fferi50
Topikgazda
Szia!
Az A1 cella a Munka1 munkalapon van, a Lista pedig a Munka2 munkalapon.
"akárhogy próbálom akár amit Te javasoltát, akár amit Delila, nem működik"
Ez sajnos nem releváns információ. Mit jelent az, hogy nem működik? Be tudtad a képletet írni? Ha igen, azt szeretnénk látni. Ha nem, akkor milyen hibaüzenetet kaptál, azt mutasd meg légy szíves.
Üdv. -
-
Delila_1
veterán
Fferi válasza is tökéletes, de itt egy másik módszer.
A Munka2 lapon a B1:B9 tartománynak nevet adsz, legyen ez Lista.
A kék képlete, ami nem látszik teljesen
=ÉS(HOL.VAN(A1;Lista;0)>3;HOL.VAN(A1;Lista;0)<7)Ezzel a módszerrel akkor is jó eredményt kapsz, ha a Munka2 lap B oszlopában módosulnak a szövegek.
-
-
Fferi50
Topikgazda
Szia!
Nem értem a kérdést, a javaslatom megoldás lehet, hiszen másik munkalapon van a lista. Mi a gondod?
Olyat nem lehet a feltételes formázásban, hogy tartományhoz hasonlítasz egyedi értéket, csak függvénnyel nézheted meg (de ilyen szerintem normál műveletként sem megy).
Cellaszínt másik cella színe alapján csak makróval tudsz módosítani.Üdv.
-
Fferi50
Topikgazda
Szia!
Ez így nem járható út.
Ha visszanézed a hozzászólásom, láthatod, hogy a cellák kijelölése képlettel pontot alkalmaztam. Hogy ne kelljen tételesen kiírni a szöveget, használható a Darabteli függvény.
Az érvényességet pedig a teljes oszlopra ki lehet terjeszteni:
Üdv.
Ps. Gondolom a munkalapnév és az érvényességi tartományok meghatározása nem okoz gondot.
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Vírusirtó, Antivirus, VPN kulcsok
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- BESZÁMÍTÁS! VALVE Steam Deck LCD 1TB SSD kézikonzol garanciával hibátlan működéssel
- BESZÁMÍTÁS! ASUS H81M-PLUS H81 chipset alaplap garanciával hibátlan működéssel
- IKEA (HAVREHOJ) tablet vagy laptop tartó
- Üzleti Fujitsu Lifebook u7510 15,6" FHD IPS 2021/08. havi gyártás
- Apple iPhone 13 Mini 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest