Excell makro konusunda yardım

[reinasa74]

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.

[Bülent]

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:

Kod Seç Expand

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