anket

[excelmeraklisi]

Herkese merhaba,
UserForm üzerine 10 soruluk bir anket oluşturdum.
Anket sorularının değişik sayıda şıkları var. öRNEĞİN;
TAHSİL GRUBUNUZ NEDİR?
OKUR-YAZAR
İLKOKUL MEZUNU
ORTAOKUL MEZUNU
LİSE VE DENGİ OKUL MEZUNU
2-3 YILLIK YÜKSEK OKUL MEZUNU
FAKÜLTE VE YÜKSEK OKUL TERK
4 YILLIK FAKÜLTE MEZUNU gibi

Şıkları OptionButton ile oluşturdum. Ben bu anketi bin kişiye yapacağım bu yüzden 1000 kişinin seçmiş olduğu şıkları cinsine göre sayacak ve kaç kişinin hangi şıkka cevap verdiğini şıkkın karşısına yazacak bir anket oluşturmak istiyorun. Saygılar cevaplarınızı bekliyorum .

 

[emrexcel123]

dosyanızı ekleyebilir misiniz ?

 

[excelmeraklisi]

dosya ektedir
vatandaş anketi olacak

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub OptionButton1_Click()
For b = 2 To 7
TextBox7 = WorksheetFunction.Sum([b2:b7])
If TextBox7.Value > 999 Then
MsgBox "Anket 1000 kişiyi tamamlamıştır."
Exit Sub
End If
Next
For i = 2 To 7
If Range("a" & i) = "OKUR-YAZAR" Then
Range("a" & i).Offset(0, 1) = 1 + Range("a" & i).Offset(0, 1)
TextBox1 = Range("a" & i).Offset(0, 1).Value
End If
Next
End Sub