• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Object doesn't support this property or metheod HATASI

  • Konbuyu başlatan Konbuyu başlatan quesh
  • Başlangıç tarihi Başlangıç tarihi
Q

quesh

Katılım
25 Mart 2010
Mesajlar
340
Excel Vers. ve Dili
2007,2010
Merhabalar Arkadaşlar

Excel 2007' de aşağıdaki şekilde kaydettiğim makro; Excel 2003 yüklü bir bilgisayarda Object doesn't support this property or method hatası veriyor şu satırda:
Kod: 
ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
Makronun Excel 2003te de çalışabilmesi için aşağıdaki kodda hangi değişikliği veya eklemeyi yapmam gerekli?
Teşekkürler.

Kodun Tamamı

Kod: 
Private Sub CommandButton8_Click()
Unload Me
Sheets("ENYUKSEK").Select
UserForm1.Hide
Dim soru
soru = MsgBox("Bu Tabloyu Etkin Şekilde Görüntüleyebilmek için Önce Büyükten Küçüğe Sıralama İşlemi Yapmanız Gerekiyor. Bu İşlem Bayileri Karlılıklarına Göre Büyükten Küçüğe Sıralar.  İşlemi Başlatmak İçin Lütfen ''TAMAM''ı Tıklayınız.", vbOKOnly, "M  U  R  A  T    H.")
If soru = vbOK Then
Range("C3:F3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-108
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "C3:C200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("C3:F200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("G3:J3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "G3:G200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("G3:J200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C3:F3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "C3:C200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("C3:F200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("K3:N3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "K3:K200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("K3:N200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("O3:R3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "O3:O200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("O3:R200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("S3:V3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "S3:S200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("S3:V200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("W3:Z3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "W3:W200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("W3:Z200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AA3:AD3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "AA3:AA200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("AA3:AD200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AE3:AH3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "AE3:AE200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("AE3:AH200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AI3:AL3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "AI3:AI200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("AI3:AL200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AM3:AP3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "AM3:AM200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("AM3:AP200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AQ3:AT3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range("AQ3"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("AQ3:AT200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "AQ3:AQ200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("AQ3:AT200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AU3:AX3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "AU3:AU200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("AU3:AX200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("AY3:BB3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "AY3:AY200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("AY3:BB200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("BC3:BF3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "BC3:BC200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("BC3:BF200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("BG3:BJ3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ENYUKSEK").Sort.SortFields.Add Key:=Range( _
        "BG3:BG200"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ENYUKSEK").Sort
        .SetRange Range("BG3:BJ200")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 1
    MsgBox "BÜYÜKTEN KÜÇÜĞE SIRALAMA İŞLEMİ TAMAMLANDI.", vbInformation, "M  U  R  A  T   H."
     
End If

End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst