Merhabalar,
Bir konuda yardım rica ediyorum.
Hücreye tıkladığımda onun sağındaki hücreyi kopyalayıp, diğer sheet teki tablomda en alt satıra kopyalamasını istiyorum.
Yardımcı olurmusunuz?
Teşekkür ederim.
Merhaba,
Her satıra buton ekleyip kod yazmak yerine, ilgili hücreye çift tıklayınca hücre değerini diğer sayfaya yazmak daha kullanışlı olur.
Bunun için sayfanın BeforeDoubleClick olayını aşağıdaki kodu yazıp deneyebilirsiniz:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Then Exit Sub
Cancel = True
son = Worksheets("Mont-2").Range("D65530").End(3).Row + 1
Worksheets("Mont-2").Range("D" & son).Value = Target.Value
MsgBox Target.Value & " Mont-2 sayfasının " & Range("D" & son).Address(0, 0) & " aktarıldı"
End Sub