Makro - dvoklik mišem kao copy/paste

[ TbojšaN @ 05.01.2015. 18:27 ] @

Može li da se napiše makro koji radi Copy -Paste?
U sheet1 podaci su od B1:B1000
dvoklikom na bilo koju ćeliju u tom opsegu (B1:B1000) da prekopira sadržaj u sheet2 u opsegu od od C10:C50, svaki put u narednu praznu ćeliju dok se ne ispuni opseg
Hvala
ako ne može onda dajte predlog, neku izvodljiu varijantu koja će da radi isto (da bude brže od copy-paste)

_{[Ovu poruku je menjao TbojšaN dana 06.01.2015. u 08:26 GMT+1]}

[ Ivek33 @ 14.01.2015. 15:50 ] @

Ima već napisan od autora Petera :)

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim r As Long

    If Target.Column = 2 Then
        Cancel = True
        With Sheets("Sheet2")
            r = .Range("C" & Rows.Count).End(xlUp).Row + 1
            r = IIf(r < 10, 10, r)
            .Range("C" & r).Value = Target.Value
        End With
    End If
End Sub

[ TbojšaN @ 18.01.2015. 11:32 ] @

Thanks Ivek 33!