Registracija

Makro - dvoklik mišem kao copy/paste

Odgovori Nova tema

2 odgovora
3.354 pregleda

Makro - dvoklik mišem kao copy/paste 05.01.2015. u 19:27 · pre 143 meseca #1

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)

Re: Makro - dvoklik mišem kao copy/paste 14.01.2015. u 16:50 · pre 143 meseca #2

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

Re: Makro - dvoklik mišem kao copy/paste 18.01.2015. u 12:32 · pre 143 meseca #3

Thanks Ivek 33!

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme