Új hozzászólás Aktív témák
-
martonx
veterán
válasz
borovszkyg
#1338
üzenetére
A sok félrebeszéd helyett inkább küldök egy megoldást:
elkapod az adott munkalap cella kijelölés eseményét, és abba beleírod az alábbi sort:
Range("A1").Value = Cells(ActiveCell.Row, 15)
Ahol a 15 - annak az oszlopnak a száma, amelyiknek az értékét az A1-ben látni akarod.
A fenti párbeszédünkre való tekintettel, inkább leírom a komplett 3 sort, ami kell nekünk:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Cells(ActiveCell.Row, 15)
End Sub -
martonx
veterán
válasz
borovszkyg
#1336
üzenetére
Jól értem, hogy ennyit akarsz:
Excel tábláról beszélünk (ugye???), és bármely cellát jelölöm ki, annak az értékét látni akarom az A1 cellában. Ennyi???
Mert akkor ez könnyen megoldható.
-
martonx
veterán
válasz
borovszkyg
#1334
üzenetére
Ha érthetően leírod, hogy mit akarsz, akkor biztos tudunk segíteni.
Új hozzászólás Aktív témák
- Óra topik
- Xiaomi Mi 10 - nem olcsóbb, hanem kedvezőbb árfekvésű
- VR topik (Oculus Rift, stb.)
- Házimozi haladó szinten
- A fociról könnyedén, egy baráti társaságban
- Nikon DSLR topik
- 5.1, 7.1 és gamer fejhallgatók
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Anime filmek és sorozatok
- További aktív témák...
- Samsung Galaxy A32 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy A32 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy A32 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Xiaomi 14T (nem Redmi) 12/256-14 hó garancia-11 tok-11 fólia
- Lenovo ThinkPad P15s i7 / 16GB RAM / 512GB SSD / NVIDIA T500 / FHD IPS / Garancia!
- Bomba ár! HP EliteBook 845 G10 - Ryzen 5 7540U I 16GB I 512SSD I 14,1" Touch I Cam I W11 I NBD Gari!
- Okosóra felvásárlás!! Samsung Galaxy Watch 5 Pro, Samsung Galaxy Watch 6 Classic
- 15,6" Dell Latitude laptopok: E5550, E5570, 5590, 5500, 5501, 5510, 5520 / SZÁMLA + GARANCIA
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5060Ti 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS B450M R5 5500 16GB DDR4 512GB SSD RTX 2070 Super 8GB DEEPCOOL Tesseract SW 600W
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest

