Metine göre otomatik satır genişlemesi

[Ergün GÖKER]

Herkese merhaba
Ekli dosyada açıklamaya çalıştım
metin boyutuna göre satır yüksekliği otomatik olarak ilgili alanlara sığsın
bu kod konusunda yardımlarınızı bekliyorum. şimdiden teşekkürler


http://s2.dosya.tc/server5/byz3hj/DENEM.xls.html

 

[Ömer BARAN]

Merhaba.

METNİ KAYDIR özelliği aktif olsa da birleştirilmiş hücrede otomatik satır yüksekliği işi biraz sıkıntılı.

Ben olsam;
-- birleştirilmiş 32 sütunun toplam genişliği kaç ise,
sağda uygun bir sütunun genişliğini bu toplam genişlik kadar açıp,
-- bu hücrenin METNİ KAYDIR özelliğini etkinleştirip,
-- bu hücreye = B33 formülünü uygular,
-- satır numaralarının bulunduğu bölümde ilgili satır arasına fareyle çift tıklayarak otomatik yüksekliği ayarlardım.

Bir deneyin isterseniz.
.

 

[Ergün GÖKER]

Hocam o dediğinizi denedim ama bana mantıklı ve kullanışlı gelmiyor. Makro ile yapılırsa daha kullanışlı olacağını düşünüyorum. o nedenle makro ile yapmayı düşünüyorum.
saygılarımla

 

[Ömer BARAN]

Belgenizdeki ilgili satırlara bu işlemi satır numarası arasına çift tıklama hariç yapıp kaydedin.
Böylece veri kısmı tamam olur ve bir daha uğraşmazsınız.
Verilere göre değişen sayfanızı elle/makro ile oluşturun,
mevcut kodlarınızın End Sub satırından hemen öncesine de
ilgili satırlar için Autofit kod satırı (Rows(15:30).Autofit gibi) ekleyin derim.

Herhangi bir zahmet, zorluk, kullanışlılık sorunu göremiyorum doğrusu.
.

 

[Ergün GÖKER]

Sorun çözülmüştür. Yardımlarından dolayı Ömer BARAN hocama sonsuz teşekkürler

If Target.Column = 2 And Target.Row >= 33 And Target.Row <= 35 Then
Cells(Target.Row, "AW") = Target.Text
With Cells(Target.Row, "AW")
.Font.Size = Target.Font.Size
.WrapText = True
.VerticalAlignment = xlJustify
.EntireRow.AutoFit
End With
yükseklik = Rows(Target.Row).Height
Cells(Target.Row, "AW") = ""
Target.RowHeight = yükseklik
Exit Sub
End If

 

[Ömer BARAN]

Tekrar merhaba Ergün Bey.

Keşke Worksheet_Change kod blokuna eklediğimiz kod satırlarını paylaşsaydınız.

Birilerinin işine mutlaka yarar, zira konu başlığınız üyelerin ARAMAlarda kullanabileceği cinsten.
.

 

[assenucler]

Dosyanın son hali için istek

Sayın Ömer GÖKER,


Değerli üstadımın son iletisinde değindiği gibi, dosyanın en son halini üyelerin yararlanması için ekleyebilir misiniz?

Bu arada, Sayın Ömer BARAN'a verdiği katkı için teşekkürler.

Sevgi ve saygılar.

 

[hakankilic]

Eklemenizi bekliyoruz. Çünkü çalışmadı.