Hirdetés
- MWC 2026: Bajnoki címre pályázik a Xiaomi Watch 5
- Xiaomi 15T Pro - a téma nincs lezárva
- Nagy aksival és erős hardverrel megjött Magyarországra a Poco X8 Pro és Pro Max
- Xiaomi Mi 9T Pro - tizenegyes!
- Külföldi prepaid SIM-ek itthon
- One mobilszolgáltatások
- Milyen okostelefont vegyek?
- iPhone topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Poco F5 - pokolian jó ajánlat
-
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
-
Delila_1
veterán
válasz
Sátán44
#50083
üzenetére
Nézd meg ezt a régi fájlt, és írd át a saját igényednek megfelelően.
Itt is játszik a névadás a Névkezelőben. -
Delila_1
veterán
-
Lasersailing
senior tag
válasz
Sátán44
#50078
üzenetére
Szia,
A data menüben van data validation, ott állítsd be az engedélyezett cellákat list-re, majd a forrásnál egérrel kijelölöd/beírod, hogy mely cellákból fogadjon el értéket.
$-jeleket használd a szokásos módon, ha másolni szeretnéd a cellákat!De ez (tudtommal) nem tud olyat, hogy kitöltéskor szűkítse a listát és a végén csak választhassál:
- itt vagy kiválasztod, hogy melyiket szeretnéd,
- vagy beírhatod pontosan azt.Ha elírod, akkor hibaüzenettel nem enged kilépni a cellából (bár ez állítható, ha megnézed a kisablak tabjait)
-
bsh
addikt
válasz
Sátán44
#29781
üzenetére
valami ilyesmi?
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column > 2) And (Target.Column < 25) And (Target.Row > 2) And (Target.Row < 28) Then
If (XCount(Me.Range(Cells(Target.Row, 3), Cells(Target.Row, 25))) > 2) Or (XCount(Me.Range(Cells(2, Target.Column), Cells(28, Target.Column))) > 2) Then
Target.Value = ""
MsgBox ("Már van két X az adott sorban vagy oszlopban!")
End If
End If
End Sub
Private Function XCount(XRange As Range) As Long
XCount = 0
For Each Cell In XRange
If Cell.Value <> "" Then XCount = XCount + 1
Next
End Function -
válasz
Sátán44
#29757
üzenetére
T
ök jó hogy megkaptad a makróst isja az nem neked ment
Data validation nekem most egyszerűbb lett - némi megkötéssel:
- Minden óra elé kell a nap
- Kell egy mező amiben az 'x' van és mellette egy ami üres (sárgával alul, a sor eltüntethető)C2-t ki kell jelölni és a következő Named Range-et kézzel létre hozni:
SelectX =IF(COUNTIFS(Sheet1!C$2:C$28,"x",Sheet1!$A$2:$A$28,Sheet1!$A31)<2,Sheet1!$C$31,Sheet1!$D$31)Utána kijelölni az adatmezőket -> Data Validation -> List
=SelectXIgnore blank pipa kivevendő:

Új hozzászólás Aktív témák
Hirdetés
- The Elder Scrolls Online Imperial Collector s Edition
- HP. Laptop. i5. Model: 15-da1002nq
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- HIBÁTLAN iPhone 11 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS4494, 100% Akkumulátor
- LG UltraGear 34GS95QE-W OLED Monitor! / 3440x1440 / 0.03ms / 240Hz / FreeSync / G-Sync! BeszámítOK!
- Sony PS3/PS4/PS5 és kézikonzolok Okosítása és Szoftveres szintű javítása - MÁR 13.00-S PS4 IS!
- AKCIÓ! MacBook Pro 13 M1 8GB RAM 512GB SSD notebook garanciával hibátlan működéssel
- Bomba ár! Dell Latitude 7320 - i5-11G I 8-16GB I 256SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



Fferi50
