ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Cengizhantr]

merhaba combobox4 kodda arıyor ama o isimle başlayan hepsini buluyor sadece o isimi bulsun
yani denizbank arıyorum ama listedeki denizbank üretici kart bunuda buluyor

Sub ototopla()
On Error Resume Next
Dim S1 As Worksheet, Toplam As Double
Set S1 = Sheets("girisler")
Toplam = Application.WorksheetFunction.SumIfs(S1.Range("K:K"), S1.Range("C:C"), ComboBox6, S1.Range("B:B"), ">=" & CLng(CDate(TextBox55)), S1.Range("B:B"), "<=" & CLng(CDate(TextBox56)))
TextBox61.Value = Toplam