- Meggyi001: Kuponok....
- sziku69: Fűzzük össze a szavakat :)
- Gurulunk, WAZE?!
- gban: Ingyen kellene, de tegnapra
- eBay-es kütyük kis pénzért
- pusszycat: JEYI - okos, színes, interaktív, ssd külső ház.
- Luck Dragon: Asszociációs játék. :)
- gerner1
- Geri Bátyó: Agglegénykonyha 6 – Néhány egyszerű tésztaétel
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
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
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
Fferi50- Bomba ár! Lenovo ThinkPad L13 G3 - i5-1245U I 16GB I 256SSD I 13,3" FHD Touch I NBD Gari!
- GYÖNYÖRŰ iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3049, 94% Akkumulátor
- BESZÁMÍTÁS! MSI X370 R5 2600 16GB DDR4 512GB SSD GTX 970 4GB Zalman Z9 Neo FSP 600W
- HIBÁTLAN Apple Watch Ultra 2 Natural Titanium 49mm -1 ÉV GARANCIA - 100% Akkumulátor, MS3219
- Törött, Hibás iPhone felvásárlás!!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest