Sayfa Adını İstenen Şekilde Sabitleme

  • Konuyu başlatan Konuyu başlatan keremd
  • Başlangıç tarihi Başlangıç tarihi

keremd

Katılım
10 Nis 2023
Mesajlar
27
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.
VBA: 
Private Sub CommandButton1_Click()
    Dim sh As Worksheet
    Dim isim As String
    Dim tarihSaat As String
    Dim dosyaAdi As String
    Dim yol As String
    Set sh = Worksheets("FATURA")
    isim = sh.Range("D13").Value
    tarihSaat = Format(Now, "dd-mm-yyyy_hhmmss")
    dosyaAdi = isim & "-" & tarihSaat
    yol = "D:\YEDEKLER"
    sh.Select
    sh.Range("B6:H74").Select
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol & "\" & dosyaAdi & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub
 
Harf Sayı Çiftlerini Kullanarak Değer Oluşturma
KDV Tutarlarını TextBox Nesnesine Yazdırma
Tarihe göre sırala Oylamaya göre sırala
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
 
Oyla 0 Olumsuz oyla
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.
1703770614570.webp


-- VBA Penceresini açın.
1703770568895.webp

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.
1703770788524.webp


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

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.
 
Oyla 0 Olumsuz oyla
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.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
1703830606291.webp

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.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt