Kategori Makrosu

[excelraf]

https://www.hizliresim.com/djt2tj5 resimde de görüldüğü üzere sağ tarafta view izmir ksk hotelse bastığımda solda sadece şehir olarak İzmir’de bulunan otelleri göstermesi gerekiyor makrosunu nasıl yapabilirim. Şimdiden teşekkürler.

 

[Cengiz Demir]

İzmir için örnek kod.
Diğer şehirler için de makroları oluşturup, düğmelerinize atayabilirsiniz.

Sub izmir()

    ActiveSheet.Range("$B$3:$H$3").AutoFilter Field:=5, Criteria1:="İzmir"

End Sub

 

[uzmanamele]

Merhaba

Data sayfasında tüm otel bilgilerinin olduğunu farzedelim;
AnaSayfa da çalışma sayfanız olsun.

Bunu deneyiniz

Private Sub CommandButton1_Click()
Rem İzmir otel listesi
Range("A1:E100").ClearContents
    Application.CutCopyMode = False
Sheets("Data").Range("A1:E5").Copy Range("A1")
    Application.CutCopyMode = True
End Sub

Private Sub CommandButton2_Click()
Rem Antalya otel listesi
Range("A1:E100").ClearContents
    Application.CutCopyMode = False
Sheets("Data").Range("A6:E14").Copy Range("A1")
    Application.CutCopyMode = True
End Sub

Private Sub CommandButton3_Click()
Rem İstanbul otel listesi
Range("A1:E100").ClearContents
    Application.CutCopyMode = False
Sheets("Data").Range("A15:E35").Copy Range("A1")
    Application.CutCopyMode = True
End Sub

Private Sub CommandButton4_Click()
Rem Türkiye otel listesi
Range("A1:E100").ClearContents
    Application.CutCopyMode = False
Sheets("Data").Range("A1:E100").Copy Range("A1")
    Application.CutCopyMode = True
End Sub