Userform kapandığında işlem yapıyor!

[elvis]

Arkadaşlar, eklediğim dosyada verilerin silme işlemi ancak userform kapandığı zaman gerçekleşiyor. Silme işleminin userformu kapatmadan aynı anda gerçekleşmesi için ne yapılması gerekir. Bu konuda yardımınızı bekliyorum.

 

[hamitcan]

Aşağıda renkli olan satırı ekledim.Galiba sorun düzeldi.

Private Sub ComboBox1_Change()
On Error Resume Next
Application.ScreenUpdating = False
    Range("A1").Select
    Selection.AutoFilter Field:=3, Criteria1:=ComboBox1.Value
    Sheets("Sayfa2").Cells.ClearContents
    Range("A1").CurrentRegion.Copy Sheets("Sayfa2").Range("A1")
    Sheets("Sayfa2").Cells.EntireColumn.AutoFit
    Selection.AutoFilter
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "60;60;0"
    ListBox1.RowSource = "a2:c65500"
    say = WorksheetFunction.CountA(Worksheets("Sayfa2").Range("A:A"))
    ListBox1.RowSource = "Sayfa2!" & "A2" & ":" & "C" & say
[b][color=blue]Application.ScreenUpdating = True[/color][/b]
End Sub

 

[elvis]

Çok teşekkür ediyorum. Sorun düzeldi. Sağolun. İyi çalışmalar.