- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Milyen okostelefont vegyek?
- Samsung Galaxy Watch6 Classic - tekerd!
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Poco F3 - a mindenes, de nem mindenkinek
- Honor Magic V5 - méret a kamera mögött
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Yettel topik
- Samsung Galaxy A52s 5G - jó S-tehetség
- 165 Hz-es panelt tesztel a OnePlus
Hirdetés
-
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
- Milyen autót vegyek?
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Milyen okostelefont vegyek?
- Jogász topic
- HiFi műszaki szemmel - sztereó hangrendszerek
- Amlogic S905, S912 processzoros készülékek
- Vezetékes FEJhallgatók
- Xbox Game Pass [2025] - Az augusztusi lista
- Korábbi vezetője szerint 40 milliárd dollár kell az Intel versenyképességéhez
- Filmvilág
- További aktív témák...
- AKCIÓ! Microsoft Surface 5 13,5 notebook - i5 1235U 8GB RAM 256GB SSD Intel Iris Xe IGP 27% áfa
- Wilbur Smith könyvek (15 db) egyben
- Csere-Beszámítás! Asus Rog Strix Thor Platinum II 1200W 80+Platinum Prémium tápegység!
- Telefon felvásárlás!! Samsung Galaxy S25, Samsung Galaxy S25 Plus, Samsung Galaxy S25 Ultra
- Samsung Galaxy A21s 32GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: FOTC
Város: Budapest