Çift tıklama iptali

[turkuaz81]

Konu başlığı pek net olmadı ama, aşağıdaki gibi bir kodum var. Bu kod; satırda bir değişiklik yapıldığında A kolonundaki hücreye tarihi giriyor .

Satırda herhangi bir hücreye çift tıklanıncada bunu değişiklik olarak algılıyor. Bunu iptal etmenin bir yolu var mıdır?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C5:BZ300]) Is Nothing Then Exit Sub
Cells(Target.Row, 1).Value = Date
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, [C5:BZ300]) Is Nothing Then Exit Sub
    Cancel = True
End Sub

 

[turkuaz81]

Teşekkürler güzel bir çözüm oldu.
Bu kodu sürekli revizyon olan formlarda kullanabiliriz.
Bir formul ve koşulu biçimlendirmeyle hangi satırın değiştirildiğini görebiliriz.

Ekte bir örnek yolluyorum.

Bu mantıkla değiştirilen hücreyide işaretlemek istesek , ne yapmamız gerekir?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [C5:BZ300]) Is Nothing Then Exit Sub
    Cells(Target.Row, 1).Value = Date
    Target.Interior.ColorIndex = 6
End Sub

 

[turkuaz81]

Şimdi tam oldu. Teşekkürler..