hücre satır genişliği hk

[metinozlu]

merhaba
hücreye girilen verinin uzunluğuna göre hücre satır aralığının otomatik artması veya azalması mümkün mü? nasıl?

 

[mehmett]

Sn metinozlu

Biçim > Hücreler > Hizalama > Metni Kaydır

seçeneği işinizi görebilir.

 

[metinozlu]

yanlız burada satır aralığını el ile ayarlamak gerekiyor.

 

[mehmett]

Excel 2002'de dediğiniz gibi olabilir.

Ben Excel 2003'te bazı hücrelere Metni kaydır özelliği verdim, o hücrelere girdiğim metne göre satır yüksekliği azalıp çoğalıyor.

 

[metinozlu]

tek hücrede haklısınız. birleştirilmiş hücrede veri girildiği halde hücre genişlemiyor

 

[Ali]

Birleştirme yaptığınız hücredede Biçim > Hücreler > Hizalama > Metni Kaydır seçeneğini seçerseniz hücreniz genişler

 

[metinozlu]

deniyorum birleştirilmiş hücrede olmuyor

 

[Ali]

Birleştirmek istediğiniz hücrelerden biri sadece rakam mı içeriyor aslında onuda denedim sorun yok bende birleştiriyor

 

[metinozlu]

hayır 2 boş hücreyi birleştiriyorum yan yana sonra buna veri aktarıyorum.ver bazen uzun bazen kısa metin olabiliyor.

 

[Ali]

A1 ve B1 verilerini birleştirmek istiyorsunuz diyelim
C1 hücresine =A1&""&B1 yazıp bir deneyin sonra birleştirme yaptığınız hücredede Biçim > Hücreler > Hizalama > Metni Kaydır seçeneğini seçin.

 

[metinozlu]

sayın fuructose,
ilginize teşekkür ancak bir yanlış anlama var sanırım.ilk mesajımı okurmusunuz

 

[Ali]

Bu kodu deneyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

 

[Ali]

Otomatik sığdır istiyorsanız onunla ilgilide kod yazilabilir

 

[Ali]

merhaba
hücreye girilen verinin uzunluğuna göre hücre satır aralığının otomatik artması veya azalması mümkün mü? nasıl?

A ile K sütunu aralığı için yazdım. Verinin uzunluğuna göre artar azalır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("A1:K65536").EntireColumn.AutoFit
End Sub

 

[milhanalp]

Sayfanın tamamı için,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.CurrentRegion.EntireColumn.AutoFit
End Sub

şeklide de kod yazılabilir.

 

[metinozlu]

problemim çözülmedi.dosyayı ekliyor yardımınızı bekliyorum

 

[Ali]

Alt+F11 ile Visual Basic Düzenleyiciyi açın ve sol taraftaki VBA Project alrındaki Sayfa1'in içine şu kodları kopyalayıp öyle deneyin.Otomatik olarak aşağı doğru yazacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

 

[metinozlu]

kod ile birleştirilmiş hücre tek hücre haline getirilip tek hücre aşağı dogru açılıyor. bu durum çalıştığım formun şeklini bozuyor.
başka bir kod gerekiyor sanırım.

 

[Ali]

Eklediğiniz örnekteki açıklamanın içine metne göre hücrenin aşağı doğru genişlemesini istiyorum demişsiniz.

 

[serbestmali]

ARKADAÞLAR BEN YENİ ÜYEYİM
KODU KULLANDIM
YARDIMLARINIZ İÇİNTEÞEKKÜRLER