-
IT café
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
-
-
sztanozs
veterán
válasz Sátán44 #29757 üzenetére
T
ök jó hogy megkaptad a makróst isja az nem neked mentData 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ő:
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
válasz Sátán44 #29766 üzenetére
Szia!
Sajnos magyar office-om nincs, de a menüsoron (ribbon) kell Formula > Named range-et megnyitni, és ott hozzáadni (úgy hogy közben a kurzor a C2-n áll):
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Delila_1
Topikgazda
válasz Sátán44 #29772 üzenetére
Ha nem akar összejönni, a C2:S10 tartományra adj feltételes formázást. A képlet
=DARABTELI(C$2:C$10;"x")>2
A következő tartomány a C11:S19. Annak a képlete
=DARABTELI(C$11:C$19;"x")>2
Nincs 2013-as verzióm.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bsh
őstag
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 -
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)
-
Delila_1
Topikgazda
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Vírusirtó, Antivirus VPN kulcsok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
- PC játékok 500Ft/db
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen