Private Sub liste_topla()
Dim SW, SQ As Long, Sonuc(1 To 5) As Double
For SQ = 1 To 5
        For SW = 1 To Me.Liste25.ListCount - 1
                Sonuc(SQ) = Sonuc(SQ) + IIf(Me.Liste25.Column((10 + SQ), SW) = "", 0, Me.Liste25.Column((10 + SQ), SW))
        Next SW
        SW = 1
Next SQ
Me.SIPADET = Sonuc(1)
Me.BOYAGIDENKG = Sonuc(2)
Me.BOYAGIDENAD = Sonuc(3)
Me.BOYAGELENKG = Sonuc(4)
Me.BOYAGELENAD = Sonuc(5)
        '11.SIPARIS_KAYIT.ADET AS                                                           Ýst_Adet,
        '12.Sum(BOYAHANE_SEVK_LISTESI.KG) AS                                 [Giden Kg],
        '13.Sum(BOYAHANE_SEVK_LISTESI.ADET_METRE) AS              [Gid_Ad-Mt],
        '14.Sum(BOYADAN_GELEN_URUN.GELEN_KG) AS                     [Boy Gelen Kg],
        '15.Sum(BOYADAN_GELEN_URUN.GELEN_AD_MT) AS              [Boy_Gel_Ad-Mt],
End Sub