Soru İnputBox'a Girilecek Oran Altındaki verileri çekmek

[bulentkars]

Arkadaşlar Merhaba,

İnputbox'a gireceğim oranın altındaki verileri Kontrol sayfasına listelemek istiyorum, yardımcı olabilirseniz sevinirm.

Örnek dosya ektedir. Şimdiden Teşekkürler

 

[ÖmerFaruk]

Kodu modüle ekleyip butonunuza bu makroyu atayabilirsiniz.

Sub OranaGöreSüz()
    Dim Oran As Double, Alan As Range, Kriter As String
    Oran = Application.InputBox("Oran giriniz", Type:=1) / 100
    Worksheets("Kontrol").Cells.Clear
    Set Alan = Worksheets("C100").Range("A1").CurrentRegion
    Kriter = Replace("<=" & Oran, ",", ".")
    Alan.AutoFilter Field:=11, Criteria1:=Kriter
    Alan.CurrentRegion.Copy Worksheets("Kontrol").Range("A1")
    Alan.AutoFilter Field:=11
    Set Alan = Nothing: Oran = Empty: Kriter = vbNullString
End Sub

 

[bulentkars]

Ömer Faruk Bey,

Ellerinize sağlık çok çok teşekkür ediyorum.