Excel'de Baskı Önizlemeye göre Satır Yüksekliği ayarlama

[akmlyx]

Değerli Üstatlar Merhaba, sorumu forumda araştırdım ancak baskı önizlemeye göre satır yüksekliğini ayarlama makrosu bulamadığım için yardımınıza ihtiyacım bulunmaktadır.
Sorum: Uzun bir listem var fakat kişilerin bilgileri burada görünmesin diye küçük bir örnek hazırlayarak ekte sundum. Ekteki Deneme isimli Excel çalışma kitabında da görüleceği üzere örneğin B3 hücresindeki metin baskı önizlemede tek satıra sığabiliyorken Excel bu metni iki satır gibi algıladığı için, fare ile toplu seçim yaparak çift tıkladığın zaman çift satır (40 piksel) yüksekliği ayarlıyor.
Benim istediğim yazılacak kodlar ile, hücrenin sütun genişliği sabit kalarak B3, C3, D3, E3, H3, I3, J3 ve K3 hücrelerindeki bütün metinler baskı önizlemede tek satır ise hücrenin satır yüksekliği 25 piksel olacak, yok eğer B3, C3, D3, E3, H3, I3, J3 ve K3 hücrelerindeki herhangi bir metin en fazla çift satır ise hücrenin yüksekliğini 42 piksel olacak, yine aynı hücrelerdeki metinlerin herhangi biri 3 satır ise satır yüksekliğini 55 piksel olacak.
Kısaca Makro, Excel hücrenin sütun genişliğini değiştirmeden hücredeki metnin baskı önizlemesine bakacak ona göre metin bulunan tüm satırları topluca satır yüksekliği ayarı yapacak. Bu şekilde bir kod yazılabilir mi acaba? İlginize şimdiden teşekkür ederim.

 

[akmlyx]

pitchoute hocam merhaba, öncelikle sorunumla ilgilendiğiniz için çok teşekkür ederim, ancak maalesef olmuyor.

 

[akmlyx]

pitchoute hocam, yazdığınız kodu gerçek Excel kitabında bir butona atayarak tıkladığım zaman ilk önce satırları genişletiyor, sonra tekrar ikinci tıklamamda bu sefer birçok satırları istenildiği satır sayısına bağlı olarak daraltıyor ancak, örneğin C23 hücresindeki metin tek satır olmasına karşın çift satır gibi satır yüksekliğini geniş veriyor, yine aynı şekilde I32, H33, B34, B40 hücrelerinde tek satırlı metinler(baskı önizlemede) olmasına rağmen çift satırlı metin varmış gibi yüksekliği fazla ayarlıyor.

 

[akmlyx]

Hocam bu hiç olmadı. Satırların yüksekliğini alakasız şekilde yükseltiyor.

 

[akmlyx]

Pitchoute hocam, emeğiniz için çok teşekkür ederim ancak yazdığınız kod bir türlü işlev görmüyor, bunun için gerçeğine yakın bir Excel kitabı hazırlayarak ekte sunuyorum. Yardımcı olabilecek arkadaşlardan ricam yazılacak kod Excel kitabında denenirse çok güzel olur.
Not: konuyu biraz daha sadeleştirdim.

Yazılacak kod ile, hücrenin sütun genişliği sabit kalarak B3, C3, H3 ve I3 hücreleri;
Eğer hücrelerdeki bütün metinler baskı önizlemede tek satır ise hücrenin satır yüksekliği 22 piksel olmalı,
Eğer hücrelerdeki herhangi bir metin baskı önizlemede 2 satır ise hücrenin satır yüksekliğini 40 piksel olmalı,
Eğer hücrelerdeki herhangi bir metin baskı önizlemede 3 satır ise hücrenin satır yüksekliğini 52 piksel olmalı.
bu işlem 3 üncü satırdan 102 inci satıra kadar döngü şekilde devam etmeli.
Bu şekilde bir kod yazılabilir mi acaba? İlginize şimdiden teşekkür ederim.