Yazdığım yazı hücreye sığmıyorsa satırı otomatik yükseltme

[Civan Jack]

Selamlar, F15 ile F25 arasındaki satırlarda, yazdığım yazı sütun genişliğine sığmıyorsa satır yüksekliğini kendisi ayarlayabilir mi ?
Sütun genişliği her zaman sabit, sadece metnin uzunluğuna göre satırı yükseltecek bir çözüm gerekiyor.
Site içinde arama yaptım fakat bulduğum çalışmaları indiremedim, galiba linkleri silinmiş.

Bu konuda yardımlarınızı bekliyorum.
Teşekkür ederim.

 

[uzmanamele]

merhaba

bunları deneyiniz.

satır yüksekliği için:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireRow.AutoFit
End Sub

sütun genişliği için:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireColumn.AutoFit
End Sub

 

[Civan Jack]

Teşekkür ederim Süleyman bey, sütun genişliği güzel çalışıyor ama satır yüksekliği olmadı.
F15 hücresinin genişliği 13,71 - satır yüksekliği de 15,75
Genişlik hep sabit, bu genişliği geçen bir yazı yazdığımda, satır yüksekliğinin artması gerekiyor, 20,10 gibi.
Verdiğiniz bu kodla;

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireRow.AutoFit
End Sub

Yapmak istediğimi gerçekleştiremedim, başka bir çözümü var mıdır ? Yoksa; ben mi hata yapıyorum.

Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Satır yüksekliği 15,75 olan bir hücreye nasıl bir giriş yapıyorsunuz ki yazdığınız veri hücreye sığmıyor. Örnekler misiniz?

Ayrıca hücreye sığmayan uzun bir veri girişi yaptığınızda sütun kenar çizgisine çift tıklayıp hücre sütun genişliğini ayarlayabilirsiniz. Satır kenar çizgisine ise ancak yazı puntosu büyükse tıkladığınızda bahsettiğiniz genişleme sözkonusu olabilir. Sanıyorum sizin istediğiniz komut "Metni Kaydır" komutudur.

 

[Civan Jack]

Ekliyorum Korhan bey.
Aslında hizalamadaki, metni kaydır işlemini yaptırmak istiyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("F15:F25")) Is Nothing Then Exit Sub
    With Target
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .EntireRow.AutoFit
    End With
Son:
End Sub

 

[Civan Jack]

Tamamdır Korhan bey, vaktinizi aldım, hakkınızı helal edin.

 

[Korhan Ayhan]

Selamlar,

Rica ederim. Hakkımız varsa helal olsun.

 

[Civan Jack]

Allah razı olsun.
Çalışmalarınızda başarılar dilerim.

 

[Civan Jack]

Günaydın.

Korhan bey, dün gece sizden aşağıdaki iki kodu almıştım.
Yalnız şirketteki dökümanda biraz değişiklik olmuş, şöyleki;
yeni dökümanda bazı hücreler birleştirilmiş, mesela; F15 ile J15 birleşmiş, aşağıya doğru 5 satırda daha birleştirme işlemi yapılmış.

"$F$15:$J$15"
"$F$16:$J$16"
"$F$17:$J$17"
"$F$18:$J$18"
"$F$19:$J$19"

bu şeklide, aşağıdaki kodları birleştirilmiş hücreler için revize edebilir miyiz ?
İki kodu da aynı döküman içerisinde kullanacağıım.

Teşekkür ederim.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("F15:F25")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = WorksheetFunction.Proper(Target)
Son: Application.EnableEvents = True
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("F15:F25")) Is Nothing Then Exit Sub
With Target
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.EntireRow.AutoFit
End With
Son:
End Sub

 

[Civan Jack]

Birleştirilmiş hücreler için metni kaydır özelliğini nasıl kullanabiliriz..

 

[Korhan Ayhan]

Selamlar,

Eğer yanlış hatırlamıyorsam bu excel için sorun teşkil ediyor. Mümkün olduğunca birleştirilmiş hücre kullanmamak lazım.

 

[Civan Jack]

Anladım Korhan bey, maalesef birleştirilmiş hücrelerde olması gerekiyor, eğer yapılamıyorsa çok ta sorun teşkil etmez, manuel olarak satırı açarım.
Yardımlarınız için çok teşekkür ederim.