Makro ile seçili hücreleri kopyalamak

[bebar]

Merhaba,
aynı sayfa içindeki range("Y4:Y85) hücre aralığındaki değerlerden seçtiklerimi range("Q4:Q85) aralığına kopyalamak istiyorum yada hücreye çift tıklayınca seçili değeri Q sutününa atan bir makro varsa çok memnun olurum.

Teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki kodu ilgili sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row < 5 Then Exit Sub
    If Target.Column = 25 Then
        Cancel = True
        Satir = Cells(Rows.Count, 17).End(3).Row
        If Satir < 4 Then
            Satir = 4
        Else
            Satir = Satir + 1
        End If
        Target.Copy Cells(Satir, 17)
    End If
End Sub

 

[bebar]

çok teşekkür ederim