Form Kapanınca Süzme İptal Olsun

[girdap]

Sayın Forum üyeleri
Merhaba.

Herekese kolay gelsin dileklerimi iletmek istiyorum öncelikle.

Benim sorum şu:

Bir UserForm üzerinde, ComboBox vasıtası ile Sayfa1 de L Sütununu süzdürmekteyim. Süzülen veriler, Buton 1 yardımı ile sayfa 2 ye aktarılıyor.
UserForm 1 kapatıldığında Safa1 deki L sütununun süzmesinin kaldırılmasını istiyorum.
Bunun yolu nedir? Dosyam ektedir.
Saygılarımla

 

[Skorpiyon]

Sayın girdap,

Aktar butonunuz altındaki kodları aşağıdaki 2 satırı ekleyin.

Private Sub CommandButton1_Click()
Sheets("Sayfa2").[A2:L1000].Clear
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sayfa2").[A2].PasteSpecial
Application.CutCopyMode = False
Range("A2").Select
Selection.AutoFilter
MsgBox "Rapor oluşturuldu."
End Sub

Sanırım istediğiniz olacaktır.

 

[girdap]

Sayın Sertkaya Merhaba,

Çok teşekkür ediyorum yardımınız için.

İyi çalışmalar