[Çözüldü] Çift Tık ile X işareti

[yesilyurtlu]

ÜStadım Herhangi bir hücreye çift tık ile "x" karakterini çıkarıp tekrar çift tık ile "x" karakterini iptal edebilmem için yardımcı olabilir misiniz?

[Bülent Öztürk]

Sayfanın BeforeDoubleClick olayına yazın;

Kod: [Seç]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Value = "x" Then Target.Value = Empty: Exit Sub
If Target.Value = Empty Then Target.Value = "x"
End Sub


[yesilyurtlu]

Bülent Öztürk Ağabeyim;

Ellerine Sağlık Teşekkür Ederim.

"ÇÖZÜLDÜ"

[Bülent Öztürk]

Rica ederim.

Çalışmalarınızda başarılar.