listbox veri süzme kodu hız.

[desk]

Private Sub TextBox1_Change()
On Error Resume Next
METİN2 = TextBox1.Value
Set FC2 = Range("A3:A65000").Find(What:=METİN2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
If METİN2 = "" Then
Selection.AutoFilter Field:=1
End If
Sheets(ActiveSheet.Name).Cells(1, 13).Value = Format(WorksheetFunction.Sum(Range("M3:M" & Cells(65536, "M") _
.End(xlUp).Row).SpecialCells(xlCellTypeVisible)), "#,##0.00")

Sheets(ActiveSheet.Name).Cells(1, 14).Value = Format(WorksheetFunction.Sum(Range("N1:N" & Cells(65536, "N") _
.End(xlUp).Row).SpecialCells(xlCellTypeVisible)), "#,##0.00")

Sheets(ActiveSheet.Name).Cells(1, 15).Value = Format(WorksheetFunction.Sum(Range("M3:M" & Cells(65536, "M") _
.End(xlUp).Row).SpecialCells(xlCellTypeVisible)), "#,##0.00") - Format(WorksheetFunction.Sum(Range("N1:N" & Cells(65536, "N") _
.End(xlUp).Row).SpecialCells(xlCellTypeVisible)), "#,##0.00")
End Sub


Arkadaşlar istediğimi yaptım fakat bir sorunum var 5000 10000 satırda baya bir kasıyor. Ne yapabiliriz.

 

[Orion1]

aşağıda yaptığım programa teşekkür etmeyi unuttun sanırım.
ona teşekkür almadan buna bakmam.

http://www.excel.web.tr/showthread.php?goto=newpost&t=84191