Soru Çift tık ile çarpı işareti ve çarpıların toplamı

[sirkülasyon]

Üstadım
Ekli dosyamda olan 1 - 250 arasında ki rakamlara çift tıklama ile (rakamlar kalacak şekilde) hücrenin içerisine çarpı işareti atacak çarpı var ise de çarpıyı kaldıracak ve çarpıların toplamını da TOPLAM OY kısmına alacak
koda ihtiyacım var. Rica etsem yardımcı olabilir misiniz?

 

[Seyit Tiken]

Çarpı(X) yerine renk kullandık, deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Interior.Color = 11854022 Then
Target.Interior.Pattern = xlNone
[at4] = [at4] - 1
Else
Target.Interior.Color = 11854022
[at4] = [at4] + 1
End If
End Sub

 

[sirkülasyon]

Seyit Abi
Mümkünse çarpı işareti ile olabilir mi?

 

[Ömer]

Merhaba,

Çarpılı alternatif.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim s As Integer
    
    If Intersect(Target, Range("B4:AS9")) Is Nothing Then Exit Sub
    
    Cancel = True
    
    If Target.Borders(xlDiagonalDown).LineStyle = xlNone Then
        Target.Borders(xlDiagonalDown).LineStyle = xlContinuous
        Target.Borders(xlDiagonalUp).LineStyle = xlContinuous
        s = 1
    Else
        Target.Borders(xlDiagonalDown).LineStyle = xlNone
        Target.Borders(xlDiagonalUp).LineStyle = xlNone
        s = -1
    End If
        
    [AT4] = [AT4] + s
    
End Sub

 

[sirkülasyon]

Ömer abime ve Seyit abime çok çok teşekkür ederim.