Başka bilgisayarda açtığımda hata veriyor

[imdatsaral]

Selam Arkadaşlar,
Aşağıdaki makroda " Set s1 = Sheets("Kesim_Adetleri") " satırı başka bilgisayarda açtığımda hata veriyor nedeni ne olabilir?

Ekte dosyamı gönderdim.
yaradımcı olursanız sevinirim.


Sub listele()
ActiveSheet.Unprotect ""
Set s1 = Sheets("Kesim_Adetleri")
Set s2 = Sheets("PartiKesim")
s2.[D11:L15].ClearContents
s2.[O11:O15].ClearContents
If [F2] = "" Then
Exit Sub
End If
For a = 6 To s1.[B65536].End(3).Row
If s1.Cells(a, "A") = s2.[F2] Then
C = C + 1
s2.Cells(C + 10, "D") = s1.Cells(a, "F")
s2.Cells(C + 10, "E") = s1.Cells(a, "G")
s2.Cells(C + 10, "F") = s1.Cells(a, "H")
s2.Cells(C + 10, "G") = s1.Cells(a, "I")
s2.Cells(C + 10, "H") = s1.Cells(a, "J")
s2.Cells(C + 10, "I") = s1.Cells(a, "K")
s2.Cells(C + 10, "J") = s1.Cells(a, "L")
s2.Cells(C + 10, "K") = s1.Cells(a, "M")
s2.Cells(C + 10, "L") = s1.Cells(a, "N")
s2.Cells(C + 10, "O") = s1.Cells(a, "P")



End If
Next


ActiveSheet.Protect ""
End Sub

 

[Mx@Raid]

Diğer bilgisayarın makro ayarlarında farklılık olabilir mi? Ben dosyayı açtım herhangi bir hata vermedi.

 

[imdatsaral]

verdiği hata

 

[Mx@Raid]

Kullandığınız dosyanızı açtığınız da mı? yoksa bir işlem yaptığınız da mı? hata veriyor. Hangi işlemi yapmaya çalıştığınızda hata veriyor? Ben tekrar dosyanızı denedim bende sorun çıkmadı. Diğer Kullandığınız bilgisayardaki excel makro/güvenlik ayarlarını gözden geçirin. Daha önce ben de benzer sıkıntıları yaşadığım için; kontrol ettiğimde güvenlik ayarları ya yüksek ya da en yüksekte olduğu için hata verebiliyordu.

 

[Mx@Raid]

Bir diğer nokta PartiKesim sayfasını Korumalı yapmışsınız oradan da sıkıntı verebilir.

 

[imdatsaral]

PartiKesim sayfasında F2 hücresi değiştiğinde hata veriyor

 

[Mx@Raid]

Sn. imdatsaral emin olun 4 kez denedim çalışma dosyanızı ama bir kez olsun hatayla karşılaşmadım.
f2 hücresi seçime göre değişti ancak hata vermedi. diğer bilgisayardaki ofis programının sürümü de belki hataya neden oluyor olabilir. ofis 2003 kullanıyorum ve sorun çıkarmadı çalışmanız.

 

[Merhum İdris SERDAR]

verdiği hata

Kod sayfasında refereranslara girin. Missing ile başlıyan bir yer varsa kutusundaki çentiği kaldırın.

.

 

[imdatsaral]

bilgisayara güncelleme yaptırdım düzeldi. ilginiz için teşekkür ederim.