Makroyu Başka Bir Dosyamda Çalıştıramıyorum

[Wolvarinne]

Merhabalar,
Bir tabloda hazırladığım makroyu aşağıda göreceğiniz gibi kaydettim ve çalışıyor. Fakat başka bir dosyamı açtığımda dosya adının farklı olmasından dolayı makroyu çalıştırdığımda hata mesajı alıyorum. Tüm excel dosyalarımda kullanabilmek için makroda dosya adının yazdığı satırları nasıl düzeltebilirim.

__________________________________________________________
Sub Bakım_Saatleri()
'
' Bakım_Saatleri Macro
'

'
Columns("L:L").Select
Selection.Insert Shift:=xlToRight
Columns("K:K").Select
Selection.TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Cells.Select
ActiveWorkbook.Worksheets("Bakım Saatleri").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Bakım Saatleri").Sort.SortFields.Add Key:=Range( _
"K1:K27989"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Bakım Saatleri").Sort.SortFields.Add Key:=Range( _
"M1:M27989"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Bakım Saatleri").Sort.SortFields.Add Key:=Range( _
"A1:A27989"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Bakım Saatleri").Sort
.SetRange Range("A1:Q27989")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub

 

[Mehmet Şahin]

Merhaba,

ActiveWorkbook.Worksheets("Bakım Saatleri")

yerine

ThisWorkbook.Sheets("Bakım Saatleri")

yazarak deneyiniz. İyi çalışmalar.

 

[Wolvarinne]

Merhaba Dentex,

Denedim, fakat aynı hatayı yine veriyor.

 

[Mehmet Şahin]

dosya ekleme şansınız varmı?

 

[Emir Hüseyin Çoban]

Merhaba, makro kaydetme de karşılaşılan sorunlardan biriside.
2007 versiyonlarında kaydedilen bazı çalışmalar, daha eski sürüm olan 2003 lerde çalışmaya bilir.
Sizde 2007 de kaydedip, 2003 sürümünde çalıştırdığınızda hata alıyor olabilir misiniz.

 

[Wolvarinne]

Merhabalar,

Cevabınız için teşekkürler. Çözümü şöyle bulduk :

ActiveWorkbook.Worksheets("Bakım Saatleri").Sort.SortFields.Clear

ActiveWorkbook.Worksheets(1).Sort.SortFields.Clear

Yukarıda gördüğünüz gibi ("Bakım Saatleri") yazan yere (1) yazınca hata çözüldü.
Herkese teşekürler.