Hirdetés
- Azonnali alaplapos kérdések órája
- Autós kamerák
- Kérsz egy pohár hardverbólét?
- Gaming notebook topik
- Amlogic S905, S912 processzoros készülékek
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- A Razer új klaviatúra-zászlóshajóját meglátva biztos félrenyeled a teát
- Kormányok / autós szimulátorok topikja
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- PCI Express 7.0 – Brutális sebesség, de minek?
-
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
-
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)).
Új hozzászólás Aktív témák
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- The Elder Scrolls Online Imperial Collector s Edition
- iPhone 13 128GB 100% Green (1év Garancia)
- GYÖNYÖRŰ iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4511
- Apple iPhone 15 256GB,Átlagos,Adatkabel,12 hónap garanciával
- AKCIÓ! LENOVO ThinkPad P15 Gen1 munkaállomás - i7 10875H 16GB DDR4 512GB SSD Quadro T1000 4GB W
- Keresünk iPhone 12/ 12 Mini/ 12 Pro/12 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
