run time error 438

[anilkurt]

Merhaba arkadaşlar excel bir makro yazdım bu maro bazı pc lerde çalışıyor bazı pc lerde çalışmıyor acil yardıma ihtiyacım var.

Kod Bu:

Sub SIRALA()
ActiveWorkbook.Worksheets("Siparişler").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Siparişler").Sort.SortFields.Add Key:=Range("h5:h1200") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Siparişler").Sort
.SetRange Range("a5:ah1200")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[abonem]

Sn. @anilkurt,

Siparişler sheet adını Siparisler olarak değiştirip, kodu da derledikten sonra 2 bilgisayarda tekrardan deneyebilir misiniz.

İyi Çalışmalar.

 

[abonem]

Sn. @anilkurt,

Siparişler sheet adını "siparisler" olarak değiştirip, kodu da derledikten sonra 2 farklı bilgisayarda tekrardan deneyebilir misiniz.

İyi Çalışmalar.