Makrodaki Hata

[kemalist]

Aşağıdaki makro hata veriyor.Dosya bağlantı yollarını değiştirmeden nasıl yapabiliriz? Örnek dosya ektedir.Yardımlarınız için şimdiden teşekkür ederim.


Sub Filtre()

'
' FİLTRE Makro
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+A
'

Workbooks("ALERTER V1.0.xlsm").Sheets("SONS").Range("A4:AH403").Select

Workbooks("ALERTER V1.0.xlsm").Sheets("SONS").Sort.SortFields.Clear
Workbooks("ALERTER V1.0.xlsm").Sheets("SONS").Sort.SortFields.Add Key:=Range("A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Workbooks("ALERTER V1.0.xlsm").Sheets("SONS").Sort
.SetRangeWorkbooks("ALERTER V1.0.xlsm").Sheets("SONS").Range ("A4:AH403")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[kemalist]

cevap verecek kimse yok mu?

 

[hımmmmmmmm]

hatalı dediğin macro sıralama yapar
yalnız burdaki sayfa ve dosya bilgileri senin yolladığın dosyayla uzakdan yakından bir tutarlılığı yok..

ekdeki dosya son sayfasını sıralar

 

[kemalist]

hatalı dediğin macro sıralama yapar
yalnız burdaki sayfa ve dosya bilgileri senin yolladığın dosyayla uzakdan yakından bir tutarlılığı yok..

ekdeki dosya son sayfasını sıralar

başka bir sayfadan makro düğmesiyle başka sayfalarda sıralama yatırmak istiyorum.