Excel Sitesi ve Forumu yayında.
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