Ofis 2016'da Çalışan VBA Kodunun Ofis 2012'de Çalışmaması

[baydeniro]

Merhaba Arkadaşlar,
Ofis 2016da normal çalışan kod Ofis2012 de çalışmadı. Dosya ektedir :



Sub SIRALA()
SATIR1 = Sayfa1.Range("A" & Rows.Count).End(xlUp).Row
myVar3 = Application.WorksheetFunction.Match([I1], Worksheets("KAYIT").Range("A1:F1"), 0)
Range(Cells(2, 1), Cells(SATIR1, 6)).Sort Key1:=Cells(1, myVar3), Order1:=xlDescending
End Sub

 

[Korhan Ayhan]

"Ofis 2012" sürümü var mı?

Kod nerede hata veriyor?

 

[baydeniro]

"Ofis 2012" sürümü var mı?

Kod nerede hata veriyor?

Teşekkürler üstad
Sub SIRALA()
SATIR1 hata işaretlemesi burada

 

[Korhan Ayhan]

Bu hatayı bende aldım.

VBA ekranında Tools-References bölümündeki "Missing" ile başlayan seçenekleri pasif hale getirin. Düzelecektir.

 

[baydeniro]

Bu hatayı bende aldım.

VBA ekranında Tools-References bölümündeki "Missing" ile başlayan seçenekleri pasif hale getirin. Düzelecektir.

Üstad çok teşekkür ederim, Her zaman olduğu üzere Hızır gibi yetiştiniz. Sağlıcakla kalın