hücre sayı artırma

[caner_53]

anket olarak sorulan soruların cevapları
B6 EVET,TAMAMEN
B7 EVET,KISMEN
B8 HARIR

BUNLARA TIKLANDIĞINDA C6 C 7 C8 DEĞERLERİ BİR ARTSIN
başlangıçta geğeri sıfır olsun

LÜTFEN ÇOK ACİL

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Intersect(Target, [B6:B8]) Is Nothing Then Exit Sub
 
    With Target
        .Offset(0, 1) = .Offset(0, 1) + 1
    End With
 
End Sub

 

[caner_53]

ben gönderdiğinizi yapamadım

ama bendeki dosyayı gönderiyorum içindeki

cevap kısmındaki hücrelere tıklandığında yandaki kişi sayısının bir artmasını istiyorum her tıklamada
örn: b6 evet,tamamen hücresine tıkladığımızda c6 bir sayı artacak şekilde
tablonun tamamı aynı şekilde olacak b6 dan b95 e kadar

başlangıçta değerler sıfır olacak yardım ederseniz çok sevinirim çok acil

şimdiden teşekkür ederim