Çift Tıklama ile aktar

[NADİR YILDIZ]

Arkadaşlar merhaba
L sütununda çift tıkladığım hücredeki değeri
O sütununa aktarım yapabilirmiyim
araştırdım ama tam işime yarayan bulamadım

 

[Korhan Ayhan]

Sayfanızın kod bölümün uygulayıp deneyiniz.

Sadece sayısal veriler aktarılır.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("L6:L" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    If Target <> "" And IsNumeric(Target) Then Target.Offset(, 3) = Target
End Sub

 

[NADİR YILDIZ]

Teşekkürler Korhan bey