- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Meggyi001: Nyilvános wc-k.....még mindig hiánypótló...
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- eBay-es kütyük kis pénzért
Hirdetés
-
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
-
slashing
senior tag
Makróval nálam ez így van megoldva:
C oszlop az első legördülő listám ahol kiválasztom a szerszám számát. Ide van rakva egy Worksheet change:
If Target.Column = 3 Then
Sheets("Segédtábla").Range("E2") = Target
Ervenyesites
End IfA kiválasztott szerszámot a segédtábla E2 cellájába másolja ész lefut az érvényesítés makró ami csinál egy szűrést egy 3 oszlopból és kb. 1000 sorból álló listából az E2 cella alapján:
Sub Ervenyesites()
Application.ScreenUpdating = False
Set WS1 = Sheets("Segédtábla")
Set WS2 = Sheets("Kritikus")
WS1.Activate
usor = Application.CountA(WS1.Columns(1))
Range("A1:C" & usor).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E1:E2"), CopyToRange:=Range("G1:H1"), Unique:=False
WS2.Activate
Application.ScreenUpdating = True
End SubMajd a G és a H oszlopba kiszűri az adatokat ahol szintén van névkezelővel adva egy dinamius tartomány amit a kiinduló táblázatuk következő két oszlopában le tudok nyitni de ez a kettő már az előzőleg kiválasztott szerszámhoz tartozik csak...
Új hozzászólás Aktív témák
Hirdetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- PC Game Pass előfizetés
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3050, 96% Akkumulátor
- BESZÁMÍTÁS! MSI B550M R7 5700X 32GB DDR4 1TB SSD RTX 4070 12GB NZXT H710I Be Quiet 650W
- 6 és 12 GB-os Quadro RTX A2000 kártyák - garanciával
- LG 55G3 - 55" OLED evo - 4K 120Hz 0.1ms - MLA - 2000 Nits - NVIDIA G-Sync - AMD FreeSync - HDMI 2.1
- Olcsó Notebook! Dell Latitude E7280! I5 7300U / 8GB DDR4 / 256GB SSD!
Állásajánlatok
Cég: FOTC
Város: Budapest