Sayfa Adını İstenen Şekilde Sabitleme

[keremd]

Excel Versiyonu

Excel 2021

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Sn. Arkadaşlar hayırlı işler. aşağıda yazılı olan kodu sayfa ismina bağlı olmadan şuan FATURA sayafası yazıyor. O an sayfa ismi ne ise değişebiliyor onu PDF YE DÖNÜŞTÜR diye nasıl revize edebiliriz. yardımlarınız için şimdiden teşekkürler.

Görüntülemek için giriş yapmanız gerekmektedir.
(17 satır)

 

Harf Sayı Çiftlerini Kullanarak Değer Oluşturma

KDV Tutarlarını TextBox Nesnesine Yazdırma

[AhmetRasim]

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

 

[keremd]

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

 

[AhmetRasim]

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.

 

[keremd]

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.

 

[AhmetRasim]

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

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

 

[keremd]

Sn. Ahmet Bey hata kodu resmini ekte sunuyorum

 

[AhmetRasim]

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

 

[keremd]

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

 

[keremd]

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

 

[AhmetRasim]

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.