Birleştirilmiş Hücrede Metni Satıra Sığdırma

[KAZIMM]

'Birleştirilmiş Hücrelerdeki veriye göre satır yüksekliğini ayarlamak için aşağıdaki formülü kullanıyordum. ancak metin büyüklüğü artınca birleştirilmiş hücrede yazılan metnin ayarını yapmıyor yardımcı olursanız sevinirim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A44]) Is Nothing Then Exit Sub
deg = [A44].ColumnWidth + [B44].ColumnWidth + [C44].ColumnWidth + [D44].ColumnWidth + _
[E44].ColumnWidth + [F44].ColumnWidth + [G44].ColumnWidth + [H44].ColumnWidth + _
[I44].ColumnWidth + [J44].ColumnWidth + [K44].ColumnWidth + [L44].ColumnWidth + _
[M44].ColumnWidth + [N44].ColumnWidth + [O44].ColumnWidth + [P44].ColumnWidth + _
[Q44].ColumnWidth + [R44].ColumnWidth + [S44].ColumnWidth + [T44].ColumnWidth + _
[U44].ColumnWidth + [V44].ColumnWidth

[hz44].WrapText = True
[hz44].ColumnWidth = deg
Rows(44).EntireRow.AutoFit

 

[KAZIMM]

Daha önceki bu konuda örneklere baktım ancak sınırlı sayıda metni kabul ediyor

 

[KAZIMM]

Benim istediğim A44 satırında birleştirilmiş sütunlarda satır sığdırma değil,
birleştirilmiş A44+ A45 satırı ve sütünlarda satır sığdırmanın nasıl yapılacağı

 

[KAZIMM]

dosyayı ekte gönderilmiştir.

dosyayı ekte gönderilmiştir.
A44 satır yüksekliği 409 takıldığı için bende A44+A45 satırını birleştirirsem bu sorundan kurtulabilirim diye düşündüm

 

[KAZIMM]

arkadaşlar bir haftadan beri cevab bekliyorum.
bütün çalışmalarımı durdurdum.
bu konu diğer çalışmalarımada ışık tutacağı için benim için çok önemli
bu konuda yardımcı olursanız çok iyi olur

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a44]) Is Nothing Then Exit Sub
Set s1 = Sheets("komisyonkararı")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add.Name = "xxxxx"
Sheets("xxxxx").[a1].Font.Size = s1.[a44].Font.Size
Sheets("xxxxx").[a1].Font.Name = s1.[a44].Font.Name
Sheets("xxxxx").[a1] = s1.[a44]
For a = 1 To 22
sutgenisligi = sutgenisligi + s1.Columns(a).ColumnWidth
Next
Sheets("xxxxx").[a1].ColumnWidth = sutgenisligi
Sheets("xxxxx").[a1].EntireRow.AutoFit
s1.[a44:a45].RowHeight = Sheets("xxxxx").[a1].RowHeight / 2
Sheets("xxxxx").Delete
Application.ScreenUpdating = True
End Sub

 

[KAZIMM]

Sayın Levent Bey öncelikle sorunumla ilgilendiğiniz için teşekür ederim.
verdiğiniz örneği sayfaya uyguladım. ancak metin miktarı artınca çalışmıyor

 

[Levent Menteşoğlu]

Dosyanızda A44 hücresindeki metne ilaveler yaparak sonucu gözleyebilirsiniz.

 

[KAZIMM]

A44 hücresinde metne küçük ilaveler yaparak hücre çalışıyor, ancak fazla ilave yapılınca çalışmıyor satırı kısıyor

 

[KAZIMM]

Arkadaşlar İki hafta oldu ancak şu ana kadar bir sonuca varamadık

 

[Korhan Ayhan]

Selamlar,

Çok fazla bilgi girdiğinizde sanıyorumki maksimum satır yüksekliğini aşıyorsunuz. Excelde birleştirilmiş hücreleri kullanmak her zaman sıkıntı yaratır. Eğer mecburiyetiniz yoksa kullanmamaya özen gösterin.

Ben şimdi normal bir excel hücresinde örnek dosyanızda kullandığınız metni (44. - 45. satırlar) denediğimde belli bir karakterden sonra satırın genişlemesi gerekirken aksine daraltıyor.

Size önerim bu tablonuzu word dosyasında hazırlamanız ve kullanmanız yönünde olacaktır. Zaten excel daha çok sayısal tablolamalar üzerine geliştirilmiş bir programdır. Metinsel işlemler için word programını tercih daha doğru olacaktır.

 

[KAZIMM]

Sayın Korhan Aydın, bilgilendirme yaptığınız için teşekür ederim. Satın Alma ile ilgili bir küçük çalışma hazırlıyorum. çalışmamın hepsi excel üzerinde olduğundan bazı bilgileri otomatik olarak diğer sayfalardan alacak , bu probemi excel üzerinde çözmeliyiz diye düşünüyorum.çünkü aynı işlemi bir kaç sayfa üzerinde daha uygulamam gerekecek

 

[KAZIMM]

sayın ustalar bunun excelde çözümü yoksa konuyu kapatayım , en azından çözüm olup olmadığı konusunda bilgilendirirseniz sevinirim.

 

[Levent Menteşoğlu]

Sn Kazım bey

Bu tip konularda maalesef çok fazla alternatif çözümünüz yok. Eğer tek bir hücrede sınır aşılıyorsa metni iki hücreye bölerek işlem yapabilirsiniz. Bunun dışında başka bir çözüm maalesef benim aklıma gelmiyor.

 

[KAZIMM]

Teşekür Ederim Levent Bey