Listview'da etopla sorunu

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki kod ile listview'da etopla işlemini yapmaya çalışıyorum fakat netice alamadım. Sanırım userform_initalize kısmında tanımlanan kodlar ile ComboBox4 te tanımlanan kodlar birbiri ile iletişim kuramıyor.
Yapmak istediğim ComboBox4 te gösterilen Bütçe Koduna ait toplam tenkis edilen tutarı TextBox13 de göstermek, toplam karara bağlanan tutarı ise TextBox14 te göstermek.

Yardımcı olacak arkadaşlara teşekkür ederim.

Private Sub combobox4_Change()
Dim ketopla As Double
Dim i As Integer

With ListView1

For i = 1 To ListView1.ListItems.Count
Select Case ListView1.ListItems(i).ListSubItems(1).Text
Case Is = ComboBox4.Text
ketopla = ketopla + CDbl(ListView1.ListItems(i).ListSubItems(7).Text)
End Select
Next i
End With

TextBox13.Value = FormatCurrency(ketopla, 2)

For i = 1 To ListView1.ListItems.Count
Select Case ListView1.ListItems(i).Text
    Case Is = ComboBox1.Text
        ketopla = ketopla + CDbl(ListView1.ListItems(i).ListSubItems(8).Text)
  
End Select
Next i

TextBox14.Value = FormatCurrency(ketopla, 2)

Call RAPOR
End Sub

Private Sub UserForm_Initialize()
Sheets("Onay Defteri " & Left(Sheets("BÜTÇE_KODU").Range("D1"), 4)).Select

Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000

On Error Resume Next
Set s1 = Sheets("Onay Defteri " & Left(Sheets("BÜTÇE_KODU").Range("D1"), 4))
ListView1.View = lvwReport
With Me.ListView1
  .Gridlines = True
  .FullRowSelect = True
  .View = lvwReport
  .ListItems.Clear
  .ColumnHeaders.Clear
End With
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "no ", 0
.ColumnHeaders.Add , , "Onay No ", 45, lvwColumnCenter
.ColumnHeaders.Add , , "Onay Tarihi", 60, lvwColumnLeft
.ColumnHeaders.Add , , "Mal veya Hizmetin Adı", 130, lvwColumnLeft
.ColumnHeaders.Add , , "Bütçe Kodu / Hesap Adı", 130, lvwColumnLeft
.ColumnHeaders.Add , , "Alım Yöntemi", 70, lvwColumnLeft
.ColumnHeaders.Add , , "Kullanılabilir Bütçe", 80, lvwColumnRight
.ColumnHeaders.Add , , "Tenkis Edilen", 80, lvwColumnRight
.ColumnHeaders.Add , , "Gerçekleşen", 80, lvwColumnRight
.ColumnHeaders.Add , , "Tarihi", 70, lvwColumnCenter
.ColumnHeaders.Add , , "Açıklama", 70, lvwColumnLeft
.ColumnHeaders.Add , , "Kullanıcı", 70, lvwColumnLeft

.FullRowSelect = True
.Gridlines = True
End With

Set sh = Sheets("Onay Defteri " & Left(Sheets("BÜTÇE_KODU").Range("D1"), 4))
son = sh.Cells(65536, 1).End(xlUp).Row

For i = 2 To son
If sh.Cells(i, 2) <> "" Then
Set l = ListView1.ListItems.Add

l.Text = i
l.SubItems(1) = sh.Cells(i, 1) 'Onay No
l.SubItems(2) = FormatDateTime(sh.Cells(i, 2), vbGeneralDate) 'Onay Tarihi
l.SubItems(3) = sh.Cells(i, 3) 'Malzemenin / Hizmetin Adı
l.SubItems(4) = sh.Cells(i, 4) 'BÜTÇE_KODU
l.SubItems(5) = sh.Cells(i, 5) 'Alım Yöntemi
l.SubItems(6) = FormatCurrency(sh.Cells(i, 6)) 'Kalan Ödenek
l.SubItems(7) = FormatCurrency(sh.Cells(i, 7)) 'Yaklaşık Maliyet
l.SubItems(8) = FormatCurrency(sh.Cells(i, 8)) 'Karara Bağlanan
l.SubItems(9) = sh.Cells(i, 10) 'Gerçekleşme Tarihi
l.SubItems(10) = sh.Cells(i, 11) 'Açıklama
l.SubItems(11) = sh.Cells(i, 12) 'Kullanıcı

If l.SubItems(8) = "0" Or l.SubItems(8) = "" Then
l.ForeColor = vbBlue
l.Bold = True
For z = 1 To l.ListSubItems.Count
  l.ListSubItems(z).ForeColor = vbBlue
  l.ListSubItems(z).Bold = True
Next z
End If
End If
Next i

ListView1.FullRowSelect = True
ListView1.Gridlines = True

ComboBox1.RowSource = "BÜTÇE_KODU!B2:B" & Sheets("BÜTÇE_KODU").Range("B65536").End(3).Row
ComboBox2.RowSource = "ALIM_YÖNTEMİ!B2:B" & Sheets("ALIM_YÖNTEMİ").Range("B65536").End(3).Row
ComboBox3.Value = Sheets("KULLANICI").Range("IV65536")
ComboBox4.RowSource = "BÜTÇE_KODU!B2:B" & Sheets("BÜTÇE_KODU").Range("B65536").End(3).Row
ComboBox5.RowSource = "ALIM_YÖNTEMİ!B2:B" & Sheets("ALIM_YÖNTEMİ").Range("B65536").End(3).Row
ComboBox6.RowSource = "KULLANICI!B2:B" & Sheets("KULLANICI").Range("B65536").End(3).Row
ComboBox7.AddItem "Mal Alımı"
ComboBox7.AddItem "Hizmet Alımı"
ComboBox7.AddItem "Yapım İşi"

ComboBox8.AddItem "%10'Tabii Olan Alımlar"
ComboBox8.AddItem "%10'Tabii Olmayan Alımlar"
TextBox1.Text = Date

CommandButton9.Visible = False
CheckBox1.Value = True
CheckBox1.Enabled = False
Toplam
Dim son1 As Integer
son1 = Cells(65536, "a").End(xlUp).Row
TextBox4.Value = son1

End Sub