Userform da bir button ile makro calistirmak

[Yakut]

merhaba,

Sub Filter()
ActiveSheet.Range("A4:AV154").AutoFilter _
Field:=38, _
Criteria1:="A"
Range("A4:AV154").Select

Selection.Copy
Sheets("Sayfa1").Select
Range("A4").Select
ActiveSheet.Paste
Range("A2").Select
Sheets("Sayfa2").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("B2").Select
Sheets("Sayfa1").Select
End Sub

sayfa button ile calisiyor, fakat benim istedigim bunu userform da herhangi bir buttona baglayip,calistirmak....


saygilar

 

[Levent Menteşoğlu]

Aynı kodları userformdaki butonun click olayınada yazabilirsiniz. Yada aşağıdaki gibide makroyu çağırabilirsiniz.

private sub commandbutton1_click()
filter
end sub

 

[Yakut]

sayin ,Levent Mentesoglu

cevabiniz icin tesekkürler, bunu bende denemistim böyle yapmaya, daha önce hata vermisti,
userformdayken ben aktiv olan sayfa degil(filter olacak sayfa ) baska sayfada iken bunu yaptigim zaman hata veriyor. bunu anlamis degilim.

 

[Levent Menteşoğlu]

ActiveSheet.Range("A4:AV154").AutoFilter Field:=38, Criteria1:="A"

Yukarıdaki satırdaki ActiveSheet yerine sayfa adını yazın. Örneğin Sheets("sayfa1") gibi. Ancak aktif sayfada değilseniz select gibi komutlarda hata verecektir. Ne yapmak istediğinizi belirtirseniz ona göre kod düzenlenebilir.

 

[Yakut]

verdiginiz örnek kod calisti,
Sub Filter2()
ActiveSheet.Range("A4:AV154").AutoFilter _
Field:=38, _
Criteria1:="B"
Range("A4:AV154").Select

Selection.Copy
Sheets("Sayfa").Select
Range("A4").Select
ActiveSheet.Paste
Range("A2").Select
Sheets("Sayfa2").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("B2").Select
Sheets("Sayfa4").Select
End Sub

bu koda da butona bagladim , ama hata verdi.

yapmak istedigim su bu makrolar süzmeler, süzülmesi gereken saydayken cok güzel calisiyor, am bunu userform üzerinde calistirdigim zaman bir birisi hata veriyor. activ sayfada olmadigim icin hata verdigini düsünüyorum, ...

 

[Yakut]

ActiveSheet.Range("A4:AV154").AutoFilter Field:=38, Criteria1:="A"

Yukarıdaki satırdaki ActiveSheet yerine sayfa adını yazın. Örneğin Sheets("sayfa1") gibi. Ancak aktif sayfada değilseniz select gibi komutlarda hata verecektir. Ne yapmak istediğinizi belirtirseniz ona göre kod düzenlenebilir.

ustadim,

sheets ettikten sonra hepsi su gibi akti gitti, süper harika, bir kelime nelere mal ediyor.

kodlarim yazik olmadi, calisti,....
tekrar sizlere tesekkürler

saygilar