Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- mefistofeles: Az elhízás nem akaratgyengeség!
- Elektromos rásegítésű kerékpárok
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- gban: Ingyen kellene, de tegnapra
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Szólánc.
- GoodSpeed: Daikin FTXF35E / RXF35F Sensira 3,3 kW Inverteres klíma - a Sztori
-
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
-
p5quser
tag
Sziasztok!
A segítségeteket szeretném kérni.
Az alábbi DoubleClick2Copy makró tökéletesen működik, de mindig ugyanabba a cellába illeszti be a komplett cellát.
Azt szeretném elérni, hogy a "cikkek" munkalap A oszlopából, a "Szlazo" munkalap A oszlopának 2. cellájától lefelé haladva, a következő üres cellába illessze be csak az értéket.
Ezután ugorjon a "Szlazo" munkalapban arra a cellára, ahová bemásolta az értéket, majd váltsa át az aktív cellát 2-vel jobbra, az adott sorban.Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A2637")) Is Nothing Then
Cancel = True
Target.Copy Destination:=Sheets("Szlazo").Range("A2")
Sheets("Szlazo").Select
ActiveCell.Offset(0, 2).Select
End If
End SubCopy-paste guy vagyok, bármiféle előképzettség nélkül, kényszer szülte megoldás ez az excel tábla, ezért a kész kódnak venném igazán hasznát.
Előre is köszönöm!
Új hozzászólás Aktív témák
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- CPU léghűtés kibeszélő
- Milyen autót vegyek?
- TCL LCD és LED TV-k
- Stabilan induló BIOS-t kaptak a nem induló Socket AM5-ös ASRock alaplapok
- Revolut
- Teljesen M5 SoC-családra vált az Apple Macbook Air és Pro
- Gitáros topic
- Anglia - élmények, tapasztalatok
- sziku69: Fűzzük össze a szavakat :)
- További aktív témák...
- ÚJ 20 méteres LED szalag adapterrel és távirányítóval eladó
- Honor 200 Pro 512GB, Kártyafüggetlen, 1 Év Garanciával
- Csere-Beszámítás! Asus Tuf FX506I Gamer Notebook! R7 4800H / 1650Ti / 16GB DDR4 / 512GB SSD
- HIBÁTLAN iPhone 14 Plus 128GB Midnight-1 ÉV GARANCIA - Kártyafüggetlen, MS4643
- TP Link HS100 Távolról vezérelhető Wi-Fi-s dugalj (Smart Plug)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50