Hirdetés
- Gigantikus átalakulásra készül a Vulkan API
- 3D nyomtatás
- Bluetooth hangszórók
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- AMD Navi Radeon™ RX 9xxx sorozat
- Azonnali informatikai kérdések órája
- Adatvédelem kontra kényelem: ha kérik, a Microsoft kiadja a kulcsokat
- Mini-ITX
- Hobby elektronika
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
-
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
-
Delila_1
veterán
válasz
ROBOTER
#43309
üzenetére
Az érvényesítésben szereplő adatokhoz adj címsort, majd a Beszúrás | Táblázat menüben alakítsd táblázattá. A kép szerint adj nevet az adatokat tartalmazó soroknak.
Rendeld a lenti makrót a lapodhoz, ahol az A oszlopba be akarod vinni az érvényesítést.
Ügyelj rá, hogy az az oszlop, ahova írni akarsz, ne legyen zárolt.
Szerek.: Mivel táblázattá alakítottad az érvényesítéshez szükséges adatokat, a táblázat bővülésekor automatikusan bővül a Lista nevű tartomány, nem kell külön gondoskodni róla.Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
With Cells(Target.Row, 1).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Lista"
End With
Cells(Target.Row, 1).Activate
ActiveSheet.Protect
End Sub
Új hozzászólás Aktív témák
- Gigantikus átalakulásra készül a Vulkan API
- Luck Dragon: Asszociációs játék. :)
- Poco X6 Pro - ötös alá
- Bemutatkozott a Poco X7 és X7 Pro
- Highguard - Küszöbön a megjelenés, mégsem tudunk róla szinte semmit
- sh4d0w: Nyitlocker
- 3D nyomtatás
- Bluetooth hangszórók
- Töltőtoll kedvelők/használók topicja
- A hagyományos (nem okos-) telefonok jelene és jövője
- További aktív témák...
- Antivírus szoftverek, VPN
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Humble megmaradt kulcsok Frissítve 01.20
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Szerver / szerverterem / szerver infrastruktúra felvásárlás, 1-1db is, kiszállással, logisztikával
- BESZÁMÍTÁS! Apple iPad Air 5 10.9 64GB WiFi tablet garanciával hibátlan működéssel
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
- BESZÁMÍTÁS! Sapphire B650M R5 7500F 32GB DDR5 1TB SSD RTX 3080 10GB Lian LI LANCOOL 207 FSP 750W
- Dell Latitude 5330 - 13,3" touch, i5-1245U, 16GB RAM, SSD, EU bill., jó akku, számla, garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50

