-
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
-
Fferi50
Topikgazda
válasz
genlog
#45279
üzenetére
Szia!
Eseménykezelő makróval meg lehet oldani. Minta:
Az A-D oszlopban van a lista.
Az F-I oszlopban a kiválasztott konfiguráció (csak azért sárga az alap, hogy kitűnjön), az I6 cellában a konfiguráció ára.
Az eseménykezelő makró:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim cl As Range, keres As RangeIf Target.Column < 5 ThenApplication.EnableEvents = FalseSet keres = Cells(Target.Row, 1)Set cl = Range("$F$2:$F$5").Find(what:=keres.Value, LookIn:=xlValues, lookat:=xlWhole)cl.Offset(0, 1).Value = keres.Offset(0, 1).ValueApplication.EnableEvents = TrueEnd IfCancel = TrueEnd Sub
Ezt a munkalap kódlapjára kell bemásolni. (Lapfülön jobb egérgomb - kód megjelenítése).
A makró a G oszlopba teszi a kiválasztott márkát. A H és I oszlopban képleteke vannak.
H2 képlete:=HAHIBA(FKERES($G2;$B$1:$D$12;2;0);"")
I2 képlete:=HAHIBA(FKERES($G2;$B$1:$D$12;3;0);"")
I6 cella képlete:=SZUM(I2:I5)
A tartományokat természetesen mind a makróban, mind a képletben saját adataid szerint változtasd meg.
DuplaKattintással az 1-4 oszlop celláin lehet választani. Ha máshova kattintanak, az nem hatásos.
A kiválasztott konfiguráció elemeit a G oszlopban lehet törölni, csak ott, mert a többi oszlopban képlet van.
Remélem, valami ilyesmire gondoltál.
A munkafüzetet makróbarátként (xlsm) vagy binárisként (xlsb) kell mentened. Engedélyezni kell a makrókat is a biztonsági beállításoknál.
Üdv.
Új hozzászólás Aktív témák
- Milyen routert?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Óra topik
- Fejhallgatós találkozó
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Kínai és egyéb olcsó órák topikja
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Napelem
- További aktív témák...
- MS SQL Server 2016, 2017, 2019
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- HP Zbook 15 G5,15.6",UHD,TOUCH,i7-8850H,32GB DDR4,1TB SSD,P2000 4GB VGA,WIN11,IR KAMERA
- HIBÁTLAN iPhone 14 Pro 256GB Space Black -1 ÉV GARANCIA -Kártyafüggetlen, MS3235
- LG UltraGear 32GQ85X-B LED IPS Monitor! 2560x1440 / 240Hz / 1ms / FreeSync / G-Sync
- AKCIÓ! Apple Mac Mini 2020 M1 8GB 512GB számítógép garanciával, hibátlan működéssel
- AZONNALI SZÁLLÍTÁS Eredeti Microsoft Office 2019 Professional Plus
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50