Aktarma makrosundaki Set s2 hatası

[aydgur]

Sub sayfalaraaktar09()
Sheets("SATIŞ").Select
For X = 2 To [A65536].End(3).Row
Set s2 = Sheets(Cells(X, 1).Text)
sira = s2.[A65536].End(3).Row + 1
For y = 1 To 14
s2.Cells(sira, y) = Cells(X, y + 1)

Next y
Next X
Sheets("SATIŞ").Select
Range("A2:I100").ClearContents
Range("M2:U100").ClearContents
Range("W2:Z100").ClearContents
Range("B2:B100").Value = CDate(FORMAT((Date + 1), "dd.mm.yyyy"))


10 MsgBox "CARİLERE AKTARILDI"
End Sub
Bu makroda şu satır hata veriyor
,,,,Set s2 = Sheets(Cells(X, 1).Text),,, daha evvel hiç sorunsuz çalışıyordu,acaba ne olabilir.
Dünkü hesapları aktaramadım acaba yardım edebilirmisiniz?

 

[Orion1]

A sütunundan 2nci satırdan itibaren sayfa isimleri alınıyor.
Buradaki yazılanlarda bir tane sayfa ismi yok.Veya değişik veya vardıda sildiniz.
Hata buradan kaynaklanıyor.Olmayan bir sayfayı set etmeye çalışıyorsunuz.

 

[aydgur]

teşekkür ederim farkında olmadan bir veri girilmiş

 

[Orion1]

teşekkür ederim farkında olmadan bir veri girilmiş

Rica ederim.
İyi çalışmalar.

 

[aydgur]

Aynı sayfada köprü oluşturuyorum fakat tıkladığımda " İşlem , bu bilgisayardaki kısıtlamalar nedeyiyle iptal edildi. Lütfen sistem yöneticinize danışın " diyor ne yapabilirim.
Excel 2003 kullanıyorum..
__________________
Birde şu sorunumu halletsem ,sitedeki çözümlerle yapamadım

 

[zafer]

Merhaba

1 -Kullanıcı olarak administrator yetkisine sahip olup olamadığınıza bakınız(administrator olacak)
2- Excel'de makro güvenlik seviyesine bakınız. (orta olabilir)
3- Virüsle alakalı olabilir,bilgisayarı taratınız ve çalıştır kutusuna gpedit.msc yazın çalışıyormu bakınız.ayrıca CTRL+Alt+DEL tuş kombinasyonu çalışıyormu bakın(çalışmazsa virüs var demektir.)

Bunlarla sorun çözülmezse

registry ayarlarına bakılması gerekiyor.Biraz bilgisayar için tehlikeli
ben bakabilirim diyorsanız Registry ayarları ile ilgili dosyayı ekleyebilirim.