textbox'da değer artışı

[musculus]

ekteki dosyada kodlardaki şartlar oluşunca textbox değerinin 1 artmasını istiyorum ama anlamadığım bir nedenden dolayı kodlar döngüye bile girmiyor ?

 

[Ferhat Pazarçevirdi]

Kodlarınızın döngüye girmemesinin sebebi; sayac üst sınırının 0 değer üretmesinden kaynaklanıyor.

For a = 2 To [aj65535]

Bu yukarıdaki kod, AJ65536 hücresindeki değeri okur. Muhtemelen burada yazılı birşey olmadığından; 0 değerini alır ve döngüye bile girmeden çıkar. Bunun yerine, aşağıdakini kullanabilirsiniz. (-ki listenin son elemanının satır numarasını döndürür)

For a = 2 To [aj65535][COLOR=red].End(xlUp).Row[/COLOR]

Eğer kodlarınız devam edebilseydi, Type Mistmach gibi bir hata daha alacaktınız. Çünkü Textbox'a bu şekilde bir değer ataması yapılamaz.

Tüm kodlarınızın; -isteğiniz doğrultusunda- revize edilmiş hali aşağıdaki gibidir. (Sadece Ocak ayını kapsar)

Private Sub UserForm_Initialize()
Dim condom As Integer, hap As Integer, tüpl As Integer, APkull As Integer, emzirme As Integer
Dim derialtı As Integer, vazek As Integer, emz As Integer, geriç As Integer, takv As Integer
For a = 2 To [aj65535].End(xlUp).Row
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "CONDOM" Then condom = comdom + 1: TextBox7 = condom
        
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "HAP" Then _
                            hap = hap + 1: TextBox8 = hap
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "TÜP LİGASYONU" Then _
                            tüpl = tüpl + 1: TextBox9 = tüpl
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "AP KULLANMIYOR" Then _
                            APkull = APkull + 1: TextBox10 = APkull
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "EMZİRME" Then _
                            emzirme = amzirme + 1: TextBox11 = emzirme
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "DERİ ALTI İMPLANTI" Then _
                            derialtı = derialtı + 1: TextBox12 = derialtı
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "VAZEKTOMİ" Then _
                            vazek = vazek + 1: TextBox13 = vazek
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "EMZİRME" Then _
                            emz = emz + 1: TextBox14 = emz
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "GERİ ÇEKME" Then _
                            geriç = geriç + 1: TextBox15 = geriç
    If Range("aj" & a) = "OCAK" And Range("o" & a) = "TAKVİM YÖNTEMİ" Then _
                            takv = takv + 1: TextBox16 = takv
'    MsgBox "lkjlk"
Next
End Sub

 

[musculus]

teşekkür ederim gözümden kaçmış küçük ama ölümcül bir hata
textbox ataması için teşekkür ederim