userformda hesaplama hatası

[emrebengul]

merhabalar;
useformda yapmış olduğum tasarımda bütçe için toplam aldığımda hatalı gelmiyor fakat sipariş için aldığım zaman toplamları uyuşmuyor destek olur musunuz? Makro ile yazabildiğimi yazdım ama galiba bir yerde yanlışlık yapıyorum destek olur musunuz? Şimdiden çok teşekkür ediyorum

Link aşağıdaki gibidir.

İndir USERFORM xlsm

Dosyayı indir USERFORM xlsm

dosya.co

 

[Korhan Ayhan]

Merhaba,

AY numarasını bulan fonksiyon ay isimlerini büyük harf yaparken hatalı dönüşüm yapıyor. Bundan dolayı hatalı toplamlar oluşmuş.

Bu şekilde deneyiniz..

Private Function AyNoBul(ayAdi As String) As Integer
    Dim aylar As Variant
    aylar = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", _
                  "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
   
    Dim i As Integer
    Dim ayUpper As String
    ayUpper = UCase(Trim(Replace(Replace(ayAdi, "ı", "I"), "i", "İ")))
   
    For i = LBound(aylar) To UBound(aylar)
        If aylar(i) = ayUpper Then
            AyNoBul = i + 1
            Exit Function
        End If
    Next i
   
    AyNoBul = 0
End Function