-
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
firemanus82
#29928
üzenetére
Szia!
Gondolom, akkor a kiválasztott nevet valahova máshova beírod (képlettel v. makróval - ez utóbbi a jobb eset). Az adatérvényesítési listád pedig egy külön tartományban van. Az eredeti listádat másold le egy másik helyre.
Ebben az esetben egy kis makróval, ami a kiválasztáshoz kapcsolódik, kitörölheted a listából a kiválasztott nevet.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$1" Then
Application.EnableEvents = False
Range(Target.Validation.Formula1).Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole).Delete shift:=xlUp
Application.EnableEvents = True
End If
End SubA fenti makró a H1 cellában levő érvényesítés listájából törli a kiválasztott elemet. Ha az érvényesítési listát a következő formában adod meg: =$A$1:$A40 - vagyis a sor száma nem abszolút módon van megadva - akkor az érvényesítési lista tartománya automatikusan módosul, nem marad benne üres sor.
Természetesen a fenti pár sort (3-5) beteheted abba a saját makróba, amelyik a kiválasztott adatot beírja a megfelelő hely(ek)re.
Üdv.
Új hozzászólás Aktív témák
- Horgász topik
- Nyíregyháza és környéke adok-veszek-beszélgetek
- Milyen billentyűzetet vegyek?
- Yettel topik
- Mibe tegyem a megtakarításaimat?
- Apple iPhone SE (3. generáció) - szélsebes múltidézés
- Elektromos autók - motorok
- Apró változásokkal, elődjénél jobb áron kezd a Google Pixel 10a
- Android alkalmazások - szoftver kibeszélő topik
- Nemzetközi vizekre evezett a Realme GT 7 és GT 7T
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Antivírus szoftverek, VPN
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- iPhone 12 Pro 128GB 100% (1év garancia)
- Hp ProDesk/ EliteDesk SFF/MT G4/ G5/ G6 / i5 8-9-10.gen /Win11- Számla, garancia
- Eredeti Lenovo 135W töltők (sárga téglalap)
- Bomba ár! Dynabook Portege X30-L-K - i7-1260P I 8GB I 256SSD I 13,3" FHD I Cam I W11 I Gari!
- Eladó Apple iPhone 12 64GB / 12 hó jótállás
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Fferi50
