ComboBox ile sayfada arama

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki kod ile 2011_BÜTÇESİ isimli sayfadan ComboBox1 ile istenilen bütçe koduna karşılık gelen kalan ödenek tutarını buluyorum, fakat şöyle bir sıkıntı var;2011_BÜTÇESİ!M10:M aralığındaki kalan ödenek tutararından herhangi birisinin tutarında kuruş varsa TextBox5 te bu tutar gösterilirken binle çarpılmış gibi gösteriyor. Eğer kalan ödenek tutarı kuruşlu değilse doğru sonuç veriyor.
Hatanın kaynağını bulamıyorum.

Private Sub ComboBox1_Change()
    Dim Bul As Range, Sayfa As String
    Sayfa = Left(Sheets("Sabit").Range("F1"), 4)
    For Each Bul In Sheets(Sayfa & "_BÜTÇESİ").Range("B2:m" & Sheets(Sayfa & "_BÜTÇESİ").Range("B65536").End(3).Row)
       If Bul.Value = ComboBox1.Value Then
          TextBox5.Value = Bul.Offset(0, 11).Value
        End If
    Next Bul
End Sub

Örnek1:
740-01 bütçe kodunun kalan ödeneği 505.032,40 olarak gösterilmsi gerekirken 5.050.324,00 olarak gösteriliyor.
Örnek2:
740-02 bütçe kodunun kalan ödeneği 17.024,40 olarak gösterilmsi gerekirken bu da 170.244,00 olarak gösteriliyor.

 

[s.savas]

Aşağıdaki kod ile sorun giderilmiştir.

Private Sub ComboBox1_Change()
    Dim Bul As Range, Sayfa As String
    Sayfa = Left(Sheets("Sabit").Range("F1"), 4)
    For Each Bul In Sheets(Sayfa & "_BÜTÇESİ").Range("B10:m" & Sheets(Sayfa & "_BÜTÇESİ").Range("B65536").End(3).Row)
       If Bul.Value = ComboBox1.Value Then
          TextBox5.Value = FormatCurrency(Bul.Offset(0, 11).Value, 2)
        End If
    Next Bul
End Sub