Hücrenin Otomatik olarak Genişlemesi

[xxozixx]

Merhaba Arkadaşlar

B3:B10000 arasında bulunan bazı hücrerler kısa cümleler bazılarınına uzun cümle yazmaktayız. Söz konusu hücreye yazılan cümleler boyutunca satır olarak genişletme sağlayabilirmisiniz.

Ayrıca formu inceledim. Bu konularda bilgiler ama benim acemiliğimden pek bir şey yapamadım.

Bu konuda yarcım olursanız çok sevirinim.

Saygılarım ile

 

[mesuttasar]

Sayın xxozixx , dosyanıza baktım.B sütunundaki verilerinizi tek satır halindemi genişletmek istiyorsunuz yoksa hücre içinde 2 yada 3 satır olacak şekildemi istiorsunuz. Biraz daha açıklarsanız yardımcı olabiliriz sanırım.

 

[dragon44760]

Ekteki dosyayı inceleyiniz.

 

[xxozixx]

Kusura bakmayın Ben satır genişlmesi demişim, aslında benim istediğim Sütunun genişlemesi olarak değil, satırın B3, B4, B5, B6, B7, B8 ve B3 ila B10000 arasında devam hücrelerin herhangi birine yazılan metin kadar aşağıya doğru genişlemesi istemiştim.

 

[omerceri]

Aşağıdaki kodları ilgili sayfanın kod sayfasına yapıştırırsanız.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Uzunluk = Len(Target)
If Uzunluk > 0 Then
If Uzunluk Mod 15 = 0 Then
Satir = 15.75 * Uzunluk \ 85
Else
Satir = 15.75 * ((Uzunluk \ 85) + 1)
End If
Target.RowHeight = Satir
Else
Target.RowHeight = 15.75
End If
End If
End Sub

 

[xxozixx]

Bu kodu nasıl eklecegim, bu konuda da yardımcı olabilimirmisin ?

 

[omerceri]

Örnek ve açıklama ekte

 

[xxozixx]

Çok teşekkür ederim