Soru excelde ve kodlarda sayfa isimlerini değiştirince çalışmıyor

[woxow]

Merhaba, ekteki dosyayı kendi projeme uygulamak istediğimde. kodlardaki sayfa ve objelerin isimlerini değiştirdiğimde çalışmıyor.
Projemde en baştan form oluşturup obje isimlerini de buna göre aynı yaptım, yine olmadı. Hata vermiyor, tepkisiz kalıyor.
Bu eklediğim çalışan dosyadaki excel ve kodlarda sadece sayfa isimlerini değiştirip denedim. problemin sayfa isimlerinden kaynaklandığını gördüm. aynı tepkisizlik oluyor.
sayfa1'leri sata1 şeklinde hepsini değiştiriyorum, bul-değiştir deyip değiştirdim, elle değiştirdim mevzuyu bir türlü anlayamadım. Muhakkak bilmediğim öğrenmem gereken bir şey var.
örnek dosya

 

[programer]

Dosyanız ektedir. Form dosyasını açıp içinde Ctrl+H yaptım Sayafa yazan isimlerin hepsini sata olarak değiştirdim çalıştı.

 

[tamer42]

Merhaba, ekteki dosyayı kendi projeme uygulamak istediğimde. kodlardaki sayfa ve objelerin isimlerini değiştirdiğimde çalışmıyor.
Projemde en baştan form oluşturup obje isimlerini de buna göre aynı yaptım, yine olmadı. Hata vermiyor, tepkisiz kalıyor.
Bu eklediğim çalışan dosyadaki excel ve kodlarda sadece sayfa isimlerini değiştirip denedim. problemin sayfa isimlerinden kaynaklandığını gördüm. aynı tepkisizlik oluyor.
sayfa1'leri sata1 şeklinde hepsini değiştiriyorum, bul-değiştir deyip değiştirdim, elle değiştirdim mevzuyu bir türlü anlayamadım. Muhakkak bilmediğim öğrenmem gereken bir şey var.
örnek dosya

If form.alıcı1s1 = True Then
    Set s1 = Sayfa1

bu yazım şekli hatalı; doğrusu aşağıdaki gibi;

If form.alıcı1s1 = True Then
    Set s1 = Sheets("Sayfa1")

 

[woxow]

Sorunu bende buldum az önce.
normalde
Set s1 = sayfa1
şeklinde olduğunda sorun çıkmıyor. ama sayfa ismi değiştirince
Set s1 = ThisWorkbook.Worksheets("sata1") şeklinde yaptığımda oldu. Bu daha kısaymış
Onca saatim boşuna gitti, bununla uğraşıyodum
Öğreniyoruz bakalım, sadece birkaç günde baya bir şey öğrenip yaptım ki excelde fena olmasam da visual basic hiç bilmiyordum.