Soru Son Dolu Hücreye Kopyala

[Hsn55]

Günaydın;
Ekli örnek dosyada G11:G41 ve H11:H41 hücresindeki verileri F11:F41 hücresinde yazılı en dolu hücrenin karşılığına gelen yere çift tıklama ile nasıl kopyalarız.
Örneğin : Veri Girişi sayfasında G13 hücresini çift tıkladığımda buradaki veriyi F11:F41 hücre aralığında dolu olan en son hücrenin karşısına gelen G19 hücresine kopyalayacak.
Örneğin :Veri Girişi sayfasında H13 hücresini çift tıkladığımda buradaki veriyi F11:F41 hücre aralığında dolu olan en son hücrenin karşısına gelen H19 hücresine kopyalayacak.

İndir Örnek

Dosyayı indir Örnek

dosya.co

 

[ÖmerFaruk]

Sayfanız kod sayfasına yapıştırabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("G11:H40")) Is Nothing Then Exit Sub
Hedef = Range("F42").End(xlUp).Row
Cells(Hedef, Target.Column) = Target.Value
End Sub

 

[Hsn55]

Sayfanız kod sayfasına yapıştırabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("G11:H40")) Is Nothing Then Exit Sub
Hedef = Range("F42").End(xlUp).Row
Cells(Hedef, Target.Column) = Target.Value
End Sub

Ömer bey çok teşekkür ederim.