-
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
-
Pakliman
tag
válasz
dori0495
#38592
üzenetére
Ahogy [Fferi50] írta, UserForm-mal.
Ha már dolgoztál vele, akkor szerintem ez lenne a legegyszerűbb.Ha nem, akkor egy lehetséges megoldás:
Mivel ha jól látom, már van egy statisztika munkalap (legyen a neve "Statisztika"), ezért használjuk azt.Feltételezve, hogy az adatokat tartalmazó munkalap neve "Adatok", a kódmoduljába be kell írni:
(A kiválasztott sor DK oszlopában duplán kattintva fog lefutni a kód.)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Target.Row > 3) And (Target.Column = Range("DK1").Column) Then
With Worksheets("Statisztika")
Cancel = True
.Activate
.Range("F2") = Target.Row
End With
End If
End SubA "Statisztika" munkalapra kell egy segédoszlop (mondjuk legyen az "F")
Az "F2" cella fogja tartalmazni annak a sornak a számát, amin állva duplán kattintottál.
A 3. sortól kezdve azoknak az oszlopoknak a betűjelét kell oda beírni, amelyikben megtalálható az adott adat.
A "C" oszlop tartalma (már ahol éppen nem számított érték van, mint pl. "Szerszámok elkészítésének ideje"):
=HA(ÜRES(F3);"";INDIREKT("Adatok!" & F3 & $F$2)). -
Fferi50
Topikgazda
válasz
dori0495
#38592
üzenetére
Szia!
Én csinálnék egy Userformot, amire a megfelelő adatokat a gomb megnyomására kiírná a makró és megjelenítené. Ezt egyszer meg kell szerkesztened, utána a kiválasztott sor alapján automatikus lehetne a kitöltés.
Arról nem is beszélve, hogy a Userformot szépen ki is lehet "csicsázni".Üdv.
Új hozzászólás Aktív témák
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Fallout 4 Pip-Boy Edition eladó
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- BESZÁMÍTÁS! Asus ROG Strix B450F R5 5600 32GB DDR4 512GB SSD RTX 2070 Super 8GB Zalman S2 TG TT 650W
- HIBÁTLAN iPhone 13 Mini 256GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS4428
- Apple iPad Pro 13 M4 256GB Wi-Fi használt, szép állapot 98% akku (113 ciklus)
- Hp Zbook 15 G5 15,6" FHD/ i7-8850H, 32GB, 512GB SSD, Quadro P2000- HUN / számla-garancia
- ÚJ Lenovo ThinkPad X13 Gen 5 - 13.3" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2,5 év gari
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50