Excelde sayfa açıldığında makro çalışsın

[Equque]

Merhaba,
Makrolar hakkında pek bir bilgim yok, "FIYAT URUN LISTESI" adında excel sayfam var bu sayfaya girdiğimde otomatik olarak aşağıdaki makro çalışsın istiyorum aşağıdaki oluşturduğum makro tüm hücreleri A dan Z ye sıralıyor

Sub Makro1()
'
' Makro1 Makro
'
' Klavye Kısayolu: Ctrl+q
'
ActiveWorkbook.Worksheets("FIYAT URUN LISTESI").AutoFilter.Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("FIYAT URUN LISTESI").AutoFilter.Sort.SortFields. _
Add Key:=Range("A1:A7"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("FIYAT URUN LISTESI").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Muzaffer Ali]

Merhaba
"FIYAT URUN LISTESI" sayfasının sayfa adını sağ tıklatın "Kod Görüntüle" Seçin.
Aşağıdaki kodları açılan kod editörüne yapıştırın.

Private Sub Worksheet_Activate()
    AutoFilter.Sort.SortFields.Clear
    AutoFilter.Sort.SortFields.Add Key:=Range("A1:A7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[Equque]

Teşekkür ederim ilginize fakat hata verdi aşağıdaki gibi,

Compile Error : Invalid use of property hatası alıyorum AutoFilter.Sort komutunda .Sort seçili kalıyor

 

[Muzaffer Ali]

Önce sayfanın filtre özelliğini aktif etmelisin.

Şöyle yapmalısın.
"FIYAT URUN LISTESI" adlı sayfayı aç
Yukarıdaki menüden "Veri" tabını aç
"Filtre" tıkla.

 

[Equque]

Hocam filtre aktif yinede aynı hatayı alıyorum

 

[Muzaffer Ali]

AutoFilter.Sort

satırını aşağıdaki ile değiştirin

With AutoFilter.Sort

 

[Equque]

Hocam çok teşekkür ederim harika oldu sağolun