Seçim Sonuç Çizelgesi

=ETOPLA($J$4:$AS$4;"OY";J5:AS5)

=EĞER(J5="";"";J5/$G5)

Sub oytemizle()
uyarı1 = MsgBox("Parti ve adayların aldıkları oy sayıları silinecek." & _
Chr(10) & "Emin misiniz?", vbYesNo)

If uyarı1 = vbYes Then
    sonsat = Cells(Rows.Count, "A").End(3).Row
    sonsut = Cells(4, Columns.Count).End(xlToLeft).Column

    For i = 10 To sonsut Step 2
        Range(Cells(5, i), Cells(sonsat, i)).ClearContents
    Next
    
End If

End Sub

Sub santemizle()
uyarı2 = MsgBox("Sandıklarda kullanılan geçerli ve geçersiz oy sayıları silinecek." & _
Chr(10) & "Emin misiniz?", vbYesNo)

If uyarı2 = vbYes Then
    sonsat1 = Cells(Rows.Count, "A").End(3).Row
    Range("D5:F" & sonsat1).ClearContents
End If

End Sub

Sub temizle()
uyarı = MsgBox("Sandıklarda kullanılan geçerli ve geçersiz oy sayıları ile " _
& Chr(10) & "Parti ve adayların aldıkları oy sayıları silinecek." & _
Chr(10) & "Emin misiniz?", vbYesNo)

If uyarı = vbYes Then
    sonsat = Cells(Rows.Count, "A").End(3).Row
    sonsut = Cells(4, Columns.Count).End(xlToLeft).Column

    For i = 10 To sonsut Step 2
        Range(Cells(5, i), Cells(sonsat, i)).ClearContents
    Next
    
    Range("D5:F" & sonsat).ClearContents
    
End If

End Sub