Soru Sayfa adını makroda kullanma

[sirkülasyon]

son = Sheets("Deneme").Cells(Rows.Count, "B").End(3).Row + 1

Üstadım;
"Deneme" ismi sayfa adı. Sayfayı kopyalama yapıp adını değiştirince kod da da değiştirmek zorunda kalınıyor.
Bu işlemi Sayfa kopyalama yaptıktan sonra sayfa ismi değiştiğinde kodda ki isimde sayfa adı ile birlikte değişebilir mi?
Eğer öyle bir imkan var ise rica etsem yardımcı olabilir misiniz?
Saygılarımla

 

[YUSUF44]

Öyle olur mu bilmiyorum ancak şu yöntemler aklıma geliyor.
1 - Eğer ilgili sayfa her zaman belirli bir sıradaysa (örneğin 1. sayfa) Sheets("Deneme") yerine Sheets(1) kullanabilirsiniz.

2 - O sayfanın belirli bir hücresine belirleyici bir ifade yazarsınız. Örneğin A1 hücresi "Ana Sayfa" olsun. Sonra makroda bu satırdan önce aşağıdaki gibi bir kod kullanırsınız:

For i = 1 to sheets.count
    if sheets(i).[A1] = "Ana Sayfa" then
        set s1 = sheets(i)
    end if
next

Kod satırını da

son = s1.Cells(Rows.Count, "B").End(3).Row + 1

olarak değiştirirsiniz.

 

[sirkülasyon]

Yusuf Abi
çok çok teşekkür ederim. Sorunum çözüldü.
Sağ ol