Soru Çift tık sınırlama

[sirkülasyon]

Ustam
O9 : W9 arasında sadece 3 defa çift tıklama yapılabilmesini nasıl sağlayabilirim?

 

[bmutlu966]

Tam ne yapmak istediğiniz açık değil. Belki aşağıdaki kodlar işinize yarayabilir. Sayfa bölümüne kodları yapıştırıp deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("O9:W9")) Is Nothing Then Exit Sub
Cancel = True
[M1] = [M1] + 1
If [M1] > 3 Then MsgBox "3 Cif tiklemeden fazla yapamazsiniz."
End Sub

 

[uzmanamele]

Merhaba

Bunu deneyiniz.
Standart Modüle içine yazınız.

Public x As Byte

Sub zero()
x = 0
End Sub


Sayfanın kod bölümüne yazınız

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("o9:w9")) Is Nothing Then Exit Sub
If x >= 3 Then Exit Sub
Selection.Cells = 10
x = x + 1
End Sub

 

[sirkülasyon]

Teşekkür ederim.