Sayfalardaki Satır Yüksekliklerini Aynı Yapma.

[pisagor26]

Değerli Üstadlar; yaklaşık 150 sayfadan oluşacak bir çalışmada her sayfada (sayfa B1) aynı tablolar yer almakta olup, bu tabloların satır yükseklikleri birbirinden farklılık göstermektedir. Yazıcıdan çıktı almak için;İlk sayfada düzenlemiş olduğum satır yüksekliklerini (satır2=22 piksel, satır3=30 piksel, satır4=29 piksel, satır 5=23 piksel gibi) diğer tüm sayfalarda da aynı olacak şekilde kısa yoldan yapabilir miyim...Teşekkür ettim...

 

[Korhan Ayhan]

Tüm sayfaları seçip satır yüksekliklerini ayarlamayı denediniz mi?

 

[Muzaffer Ali]

Merhaba.

Sayın Korhan Ayhan'ın dediği gibi yapabilirsiniz. Şöyle ki;
En soldaki sayfa seçili iken "Shift" tuşuna basılı tutup en sağdaki sayfayı seçin.
Bu şekilde bütün sayfaları seçmiş oldunuz.

Şu anda aktif olan sayfada yapacağınız değişikliklerin hepsi bütün sayfalarda geçerli olacaktır.
İşinizi bitirdikten sonra herhangi bir sayfayı seçin.

Eğer bu işlemi kod kullanarak yapmak isterseniz dosyanız yeni bir Module ekleyin aşağıdaki kodu kopyalayın ve çalıştırın.

Sub SatirBoyutu()
    Dim syf As Worksheet
    Dim Bak As Variant
    Dim BuSayfalarHaric() As Variant
    BuSayfalarHaric = Array("A", "Test") 'Satır yüksekliğini değiştirmek istemediğiniz sayfa adlarını buraya yazın.
    For Each syf In ThisWorkbook.Worksheets
        Bak = Application.Match(syf.Name, BuSayfalarHaric, False)
        If IsError(Bak) Then
            syf.Rows(2).RowHeight = 22
            syf.Rows(3).RowHeight = 30
            syf.Rows(4).RowHeight = 29
            syf.Rows(5).RowHeight = 23
        End If
    Next
End Sub

 

[pisagor26]

Teşekkür ediyorum degerli arkadaşlar...

 

[pisagor26]

Tüm sayfaları seçip satır yüksekliklerini ayarlamayı denediniz mi?

Tüm satırlari seçtigimde bütun satir yuksekliklerini ayni deger yapiyor...

 

[Korhan Ayhan]

Sayfaları seçtikten sonra sırayla satırları seçip ayarlayın.