- Katılım
- 12 Nisan 2012
- Mesajlar
- 533
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
Aşağıdaki kod da comboboxların ve textboxın önüne sayfa adı yazılacaktır.Sayfanın adı "Anasayfa" dır.İlgilenecek arkadaşa teşekkür ederim.
TextBox17.Value = Application.WorksheetFunction.SumIfs(Sheets("Anasayfa").Range("G:G"), Sheets("Anasayfa").Range("C:C"), "=" & CDbl(CDate(TextBox14.Value)), Sheets("Anasayfa").Range("K:K"), "=" & (ComboBox1.Value), Sheets("Anasayfa").Range("J:J"), "=" & (ComboBox2.Value))
TextBox17.Value = Application.WorksheetFunction.SumIfs(Sheets("Anasayfa").Range("G:G"), Sheets("Anasayfa").Range("C:C"), "=" & CDbl(CDate(TextBox14.Value)), Sheets("Anasayfa").Range("K:K"), "=" & (ComboBox1.Value), Sheets("Anasayfa").Range("J:J"), "=" & (ComboBox2.Value))