DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
TextBox3 = WorksheetFunction.SumIf([c:c], ComboBox1, [i:i])
TextBox3 = WorksheetFunction.SumIf([c:c], ComboBox1, [I:I])
aşağıdaki satırıocamsul' Alıntı:Arkadaşlar aşağıdaki satırda veri görüntüle işleminde bu satırda hata veriyor!!!
Kod:Private Sub CommandButton1_Click() Set DATA = Sayfa1 'TextBox1.Value = "" Worksheets("Rapor").Range("A2").CurrentRegion.ClearContents Sayfa1.Select [u][b]Selection.AutoFilter Field:=3, Criteria1:=ComboBox1.Value[/b][/u] 'DATA.AutoFilter Field:=5, Criteria1:=ComboBox2 Worksheets("Sayfa1").Range("A1").CurrentRegion.Copy Worksheets End Sub
Sayfa1.Select
Sayfa1.Range("a1").Select