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

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,975
Excel Vers. ve Dili
2016 TR
Ü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?
 

Ekli dosyalar

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,589
Excel Vers. ve Dili
Excel : 2010
Çarpı(X) yerine renk kullandık, deneyiniz.
Kod:
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
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
21,083
Excel Vers. ve Dili
2016-Türkçe
Merhaba,

Çarpılı alternatif.
Kod:
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

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
1,975
Excel Vers. ve Dili
2016 TR
Ömer abime ve Seyit abime çok çok teşekkür ederim.
 
Üst