Sayfa Adını İstenen Şekilde Sabitleme

Merhaba,
Örnek ile açıklar mısınız?

Sn. [B]AhmetRasim[/B] Bey iyi günler
kod şuan sayfa ismi FATURA olursa Set sh = Worksheets("FATURA") seçili alanları pdf dönüştürüyor.
Ben de diyorum ki sayfa ismine bağlı kalmasın sürekli değişir bugün FATURA olur yarın başka bir şey. umarım anlatabilmişimdir. Saygılarımla. iyi çalışmalar

Bu kodu, sayfa üzerinde bulunan CommandButton1 den çalıştırıyorsanız,
Set sh = Worksheets("FATURA") satırını Set sh = ActiveSheet olarak değiştirmeniz yeterli.

Ancak UserForm'dan çalıştırıyorsanız, şu şekilde yapabilirsiniz.
-- Örnek olarak 2. sekmeye Fatura yazdım.


-- VBA Penceresini açın.

Burada parantez içerisinde yazanlar sekme üzerinde görünen ismidir.
Kod içerisinde Set sh = Sayfa2 olarak kullanabilirsiniz.

Daha sonradan sekme üzerindeki ismi değiştirdiniz diyelim.
Örnek Fatura123 yazdım.


Tekrar VBA ekranını açalım.

Gördüğünüz gibi Sayfa2 sabit, parantez içerisindeki yazan isim değişti ama sh değişkenine yapılan tanımlama yine Sayfa2 olarak devam eder.

Sn. Ahmet Bey tekrar hayırlı işler
kod hata verdi ilgili dosyamı ekliyorum size zahmet düzenlemeyi yapıp deneyebilirmisiniz nerde hata yaptım. İlginiz için şimdiden teşekkürler.

CommandButton1_Click kodları çalıştırdım hata vermedi.
Sizde çıkan hata resmini de ekler misiniz.

Örnek sonuç görüntüsü

Sn. Ahmet Bey hata kodu resmini ekte sunuyorum

Seçilen satır için bir hata mesajı çıkması gerekiyor, çıkan hata mesajı nedir?

Sn. Ahmet Bey hakkınızı helal edin hatamın nedenini buldum. İlgi ve alakanız için çok teşekkür ederim

Sn. Ahmet Bey son kez rahatsız ediyorum. Kapatırken yedek alması içinde bir kod var içinde ama çalışmadı neden acaba.

Resimde belirttiğim Sayfa3 ün kod bölümünde bulunan Private Sub Workbook_BeforeClose(Cancel As Boolean) kodlarını ThisWorkbook bölümüne taşıyın.