Başka bilgisayarda kod hata veriyor

[ASLAN7410]

Merhaba hayırlı sabahlar.

Çalışmış olduğum makrolu bir excel dosyam var, bu dosya çalışmış olduğum Windows 7 bilgisayarında hatasız çalışıyor, bu dosyayı başka bir bilgisayar olan Windows 10 bilgisayarına kopyalayıp çalıştırdığımda aşağıdaki kodda hep hata veriyor.

Sheets("ASLAN").Activate

Her iki bilgisayarda da ofis 2013 Türkçe yüklü olmasına rağmen hata veriyor, bu hata neden olabilir, yardımcı olur musunuz?

 

[BedriA]

Merhaba hayırlı sabahlar.

Çalışmış olduğum makrolu bir excel dosyam var, bu dosya çalışmış olduğum Windows 7 bilgisayarında hatasız çalışıyor, bu dosyayı başka bir bilgisayar olan Windows 10 bilgisayarına kopyalayıp çalıştırdığımda aşağıdaki kodda hep hata veriyor.

Sheets("ASLAN").Activate

Her iki bilgisayarda da ofis 2013 Türkçe yüklü olmasına rağmen hata veriyor, bu hata neden olabilir, yardımcı olur musunuz?

Çalışmayan bilgisayarda şunu deneyin:

Tools/Referanslar dedikten sonra "Missing" ile başlayan referansı pasifleştirip "Ok" deyin ve çalışma kitabınızı kaydedin.

 

[ASLAN7410]

Sayın BedriA ilginiz için çok teşekkür ediyorum.

Sizin dediğiniz yeri kontrol ettim, dediğiniz gibi bir yazı bulamadım?

 

[ASLAN7410]

Merhaba ekran görüntüsü.

 

[BedriA]

Özel değilse dosyanızın örneğini paylaşabilir misiniz?
Bir de hata kodu nedir? End-Debug ekranı mı çıkıyor yoksa?

 

[ASLAN7410]

Merhaba.
Akşamdan beri End-Debug hatası veriyordu, şimdi kontrol ettim, hata vermiyor, akşamdan beri neden böyle yaptı bir türlü çözemedim.

Hata kodunuda almamıştım.

 

[BedriA]

Sheets("ASLAN").Activate

Yukarıdaki kodun bulunduğu kodun tamamını paylaşabilir misiniz?

 

[ASLAN7410]

End-Debug ekranı çıktığında, debug butonuna bastığımda Sheets("ASLAN").Activate bu satırı sarıya boyuyordu, bilgisayar internete bağlı idi, ofisin bir eksikliğinimi güncelledi bilmiyorum.


Kodlar arasında Sheets("ASLAN").Activate bu koddan birden fazla var, sarıya boyadığını kaldırıyorum, bu sefer aynı kodun öbürünü sarıya boyuyordu.

Kodun bir tanesi aşağıda.

Sub Temizlik()
    Application.Calculation = xlAutomatic
    'Application.ScreenUpdating = False
    Sheets("ASLAN").Activate
    On Error Resume Next
    Range("E11") = Sheets("ARŞİV").Cells(Rows.Count, "B").End(xlUp) + 1
    Range("E12") = Format(Now, "dd.mm.yyyy")
    Range("E13:E14") = ClearContents
    Range("E16:E21") = ClearContents
    Range("E22") = "---"
    Sheets("ASLAN").Activate
    Range("E11").Activate
    'ActiveWorkbook.Save
End Sub

 

[BedriA]

Şu an sorunsuz çalışıyor mu iki bilgisayarda da?

Hala sorun varsa paylaştığınız kodu silip şu kodu deneyin:

Sub Temizlik()
    Application.Calculation = xlAutomatic
  'Application.ScreenUpdating = False
    Sheets("ASLAN").Select
    On Error Resume Next
    Range("E11") = Sheets("ARŞİV").Cells(Rows.Count, "B").End(xlUp) + 1
    Range("E12") = Format(Now, "dd.mm.yyyy")
    Range("E13:E14") = ClearContents
    Range("E16:E21") = ClearContents
    Range("E22") = "---"
    [COLOR="Red"]Sheets("ASLAN").Select[/COLOR]
    [COLOR="red"]Range("E11").Select[/COLOR]
  [COLOR="seagreen"]  'ActiveWorkbook.Save[/COLOR]
End Sub

Kırmızı kısımlar kod içinde gereksiz görünüyor, silinebilir.
Yeşil kısmın başındaki kesme işareti kaldırılırsa çalışma kitabını mevcut haliyle kaydeder.

 

[ASLAN7410]

Şuan sorunsuzca çalışıyor.

Sheets("ASLAN").Activate bu isimle geçen bütün kodların hepsini sizin ayarladığınız Sheets("ASLAN").Select şeklindede yapmıştım olmamıştı.

 

[BedriA]

Şuan sorunsuzca çalışıyor.

Sheets("ASLAN").Activate bu isimle geçen bütün kodların hepsini sizin ayarladığınız Sheets("ASLAN").Select şeklindede yapmıştım olmamıştı.

Projedeki kodlar arasında sayfaları gizleyen-gösteren kodlar var mı?
"Range yöntemi başarısız" gibi bir hataysa sayfayı bulamıyordur, yani sayfa gizlenmiştir bu kod çalıştığında.

Bir diğer seçenek eğer tekrar aynı hata olursa;

Sub Temizlik()
    Application.Calculation = xlAutomatic
    'Application.ScreenUpdating = False
    On Error Resume Next
    Sheets("ASLAN").Range("E11") = Sheets("ARŞİV").Cells(Rows.Count, "B").End(xlUp) + 1
    Sheets("ASLAN").Range("E12") = Format(Now, "dd.mm.yyyy")
    Sheets("ASLAN").Range("E13:E14") = ClearContents
    Sheets("ASLAN").Range("E16:E21") = ClearContents
    Sheets("ASLAN").Range("E22") = "---"
    'ThisWorkbook.Save
End Sub

şeklinde deneyebilirsiniz .

 

[ASLAN7410]

Kaydetmeyi kaldırmıştım zaten.

Dediğiniz gibi Kırmızı ile belirtmiş olduğunuz yer fazlalık olarak görünüyor, bu kırmızı ile belirtilen yeri sarıya boyamadan önce kodun ilk başındaki Sheets("ASLAN").Activate kısmı sarıya boyuyordu, bu kodu kaldırıyorum, butona bastığımda bu seferde kırmızı ile belirttiğiniz yerdeki Sheets("ASLAN").Activate kısmı sarıya boyuyordu, bunuda kaldırıyorum, diğer kodlardaki Sheets("ASLAN").Activate kısmı sarıya boyuyordu, bu şekilde hepsini kaldırdım, bu seferde kodlar bozulmuştu.

 

[ASLAN7410]

Gizli sayfalarım yok. ASLAN sayfası zaten ana sayfa.

 

[BedriA]

Gizli sayfalarım yok. ASLAN sayfası zaten ana sayfa.

Neyse ki sorun çözülmüş.
İyi günler.

 

[ASLAN7410]

Sayın BedriA anladım dediğinizi, hata verirse bu şekilde deneyeceğim.

İlginiz için çok teşekkür ediyorum, hayırlı sabahlar.