Soru Çift Tıklama İle Veriyi Son Satıra Kopyala

[Hsn55]

Merhabalar;
Ekli örnek dosyada G11:G41 hücresindeki veriyi çift tıklama ile G11:G41 hücresi arasındaki en son boş satıra kopyalayabilir miyiz?. Örneğin ekli örnek dosyada G13 hücresinde bulunan Bakacak yazısını çift tıkladığımda verinin aynısını en son boş olan G16 hücresine yazsın istiyorum. Şimdiden ilginiz için teşekkür ederim

İndir Örnek

Dosyayı indir Örnek

dosya.co

 

[Hakan ERDOST]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("G11:G41")) Is Nothing Then
        Cancel = True
        Dim lastRow As Long
        lastRow = Range("G" & Rows.Count).End(xlUp).Row
        Range("G" & lastRow + 1).Value = Target.Value
    End If
End Sub

Dosyanız ektedir.

 

[Hsn55]

Sayın Hakan teşekkür ederim. İstediğim şekilde olmuş. Yalnız işlem H11:H41 hücre aralığın dada olabilir mi?. Ayrıca veri doğrulama yapmış olduğum hücrelerde işlem yapmıyor.

 

[Hakan ERDOST]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("H11:H41,G11:G41")) Is Nothing Then
        Cancel = True
        If Target.Column = 8 Then ' G sütununa tıklanırsa
            Dim lastRowH As Long
            lastRowH = Cells(Rows.Count, "H").End(xlUp).Row + 1
            Cells(lastRowH, "H").Value = Target.Value
            Debug.Print "G sütununa tıklandı"
        Else ' H sütununa tıklanırsa
            Dim lastRowG As Long
            lastRowG = Cells(Rows.Count, "G").End(xlUp).Row + 1
            Cells(lastRowG, "G").Value = Target.Value
            Debug.Print "H sütununa tıklandı"
        End If
    End If
End Sub