Sayfa başlığı atama

[cemşir79]

Ekte gönderdiğim dosyada üç sabit dosyam var makro yardımı ile sayfa açılıyor fakat açılan sayfalara başlık yerleştiremedim satı yüksekliğini tam olarak ayarlayamadım yardımcı olcak lara şimdiden teşekkür ederim

 

[dEdE]

Merhaba,
Örnek dosyanızdaki kodun aşağıdaki kısmına iki satır ekleyerek dener misiniz?

    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa
        sg.Range("A1:G4").Copy ActiveSheet.Range("A1") '---- EKLENECEK SATIR ----
        ActiveSheet.Rows("1:4").RowHeight = 28.875     '-----EKLENECEK SATIR ----
        sg.Select
        Range("A5:G5").Copy Sheets(Sayfa).[A5]
    End If

 

[cemşir79]

Merhaba,
Örnek dosyanızdaki kodun aşağıdaki kısmına iki satır ekleyerek dener misiniz?

    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa
        sg.Range("A1:G4").Copy ActiveSheet.Range("A1") '---- EKLENECEK SATIR ----
        ActiveSheet.Rows("1:4").RowHeight = 28.875     '-----EKLENECEK SATIR ----
        sg.Select
        Range("A5:G5").Copy Sheets(Sayfa).[A5]
    End If

Çok teşekkür ederim tam istediğim gibi olmuş fakat sayfa açıldığı zaman açılan sayfalarda 6. 7. 8. ... satırları daraltıyor onu istediğimiz genişliğe nasıl ayaralayabiliriz

 

[dEdE]

... fakat sayfa açıldığı zaman açılan sayfalarda 6. 7. 8. ... satırları daraltıyor...

Merhaba,
Aslında daraltmıyor, daha doğrusu ilk dört satır hariç satır yüksekliklerine müdahale etmiyor. Bu Excel'in standart satır yüksekliği. Boş brr Excel sayfası açarsanız bu durumu görebilirsiniz.
Kod ile oluşturduğunuz sayfaların satır yüksekliklerinin "FATMA" isimli sayfa ile aynı olmasını istiyorsanız, benim eklediğim iki kod satırının arasına aşağıdaki satırı eklemeniz yeterli olacaktır.
ActiveSheet.Cells.RowHeight = 24.75

 

[cemşir79]

çoook teşekkür ederim eline sağlık şimdi çok güzel oldu