Formüllü sayfada satır yüksekliği

[malinois]

Ekteki dosyada "ana" çalışma sayfasına girilen her veri basit bir eşitlik formülüyle alt çalışma sayfasınada eşitlenmektedir. "ana" çalışma sayfasında örnek olarak A15 hücresindeki veri 2 satır olarak girildiğinden (aynı şekilde e15 de 3 satır olarak) 15 nolu satır tüksekliği otomatik olarak tüm veriler gözükecek şekilde ayarlanmaktadır. Fakat "alt" çalışma sayfasınına bu tip durumlarda (2 yada 3 satırlık veriler) bu eşitlik tek satır olarak gözükmekte ve elle satır ayarı yapmadan durum düzelmemektedir. "ana" çalışma sayfasına devamlı veri işlendiği ve "alt" çalışma sayfasından da filtre özelliğii kullanılıp çıktı alınacağı hesaba katılırsa manuel olarak her çıktı alımından önce satır yüksekliği ayarı yapmak icap etmektedir.

Bu durumdan kurtulmak dolayısıyla satır yüksekliklerininde "ana" çalışma sayfasıyla birebir aynı olması için ne yapmam gerekmektedir.

 

[tahsinanarat]

Kullandığınız makroların sonuna yada ayrıca bu şekilde bir makro kullanabilirsiniz.

Columns("B:B").Select
Selection.Rows.AutoFit

 

[Ömer]

Merhaba,

Bu işlemi makro ile çözebilirsiniz..

Buton ile yapacaksanız. Module kopyalayınız.

Sub SatırBoyu()
    Cells.EntireRow.AutoFit
End Sub

alt adlı sayfa aktif olduğunda olmasını istiyosanız. Aşağıdaki kodu alt sayfanın kod bölümüne kopyalayınız..

Private Sub Worksheet_Activate()
    Cells.EntireRow.AutoFit
End Sub

.

 

[malinois]

Tahsin ve Ömer Bey yardımlarınız için çok teşekkür ederim. Ömer Bey aynı butona bu işlemide tanımlattığınız için ayrıca teşekkür ederim, saygılar