Formüldeki değişken ismini değiştirmek istiyorum..

[facenoise]

İyi akşamlar arkadaşlar..
For a = 0 To ListBox1.ListCount - 1
If ListBox1.List(a, 7) = Sheets("Sayfa1").[H2].Value Then TextBox15.Text = TextBox15.Text + 1
Next

gibi bir döngüde H2 ile yazılan yerde KIZ kelimesi var ve kız öğrencilerin sayısını buluyor ben bunu H2 tarzında değilde H2 nin olduğu yere Kız yazmak istiyorum, (bekli bir değişkenle ve yazıyla "Kız " gibi ) belki ilerde H2 yazan yer Erkek olursa sıkıntı çıkabilir.Bu yüzden bu durumu nasıl düzeltecem..
2) Ayrıca Kız ve KIZ gibi yazılan kelimelerde sonuçlar farklı çıkıyor bunuda nasıl düzeltebilirim..
Yardımınız için şimdiden teşekkürler..

 

[Korhan Ayhan]

Merhaba,

"I-İ-ı-i" harfleri vba tarafında sorun çıkarmaktadır. Bu sebeple metin sorgularında her iki alanıda büyük harfe çevirirseniz rahatlıkla sorgulama yapabilirsiniz. Aşağıdaki kod ile bu işlemi yapabilirsiniz.

Private Sub CommandButton1_Click()
    Dim a, veri
    TextBox15 = ""
    For a = 0 To ListBox1.ListCount - 1
    veri = UCase(Replace(Replace(ListBox1.List(a, 7), "ı", "I"), "i", "İ"))
    If veri = "KIZ" Then TextBox15 = Val(TextBox15) + 1
    Next
End Sub

 

[facenoise]

Çok teşekkür ederim..