Új hozzászólás Aktív témák

• #36657 p5quser tag

  Új Válasz 2017-11-30 11:03:30 #36657

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 Sub

  Copy-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