Otomatik hücre genişlemesi

[scooby]

Herkese merhaba,
Textbox tan buton ile hücreye veri kaydediyorum. Bu veri uzun oldugunda hucrenin de bu uzunluk oranında otomatik genişlemesi lazım cunku yazicidan cikti aliyorum, görünmüyor. Yardımcı olabilir misiniz? Teşekkürler

 

[ÖmerFaruk]

Hücre tek başına genişlemez. Bulunduğu sütun genişler. Bu sizin için uygunsa ChatGPT şöyle çözmüş

Private Sub TextBox1_Change()
    Dim ws As Worksheet
    Dim hedefHücre As Range
    Dim metinUzunlugu As Integer
    Dim yeniGenislik As Double
    
    Set ws = ThisWorkbook.Sheets("Sayfa1")   ' Hücreyi yazacağınız sayfa adı
    Set hedefHücre = ws.Range("A1")           ' Veri yazılacak hücre adresi
    
    ' TextBox içeriğini hücreye yaz
    hedefHücre.Value = Me.TextBox1.Value
    
    ' Metin uzunluğunu hesapla (karakter sayısı)
    metinUzunlugu = Len(Me.TextBox1.Value)
    
    ' Yeni sütun genişliğini hesapla
    ' Burada yaklaşık bir katsayı kullandım, karakter sayısı * 1.2 gibi
    yeniGenislik = metinUzunlugu * 1.2
    
    ' Minimum ve maksimum genişlik sınırı koymak iyi olur
    If yeniGenislik < 3 Then yeniGenislik = 3
    If yeniGenislik > 50 Then yeniGenislik = 50
    
    ' Sütun genişliğini değiştir
    hedefHücre.EntireColumn.ColumnWidth = yeniGenislik
End Sub

 

[scooby]

Teşekkürler. Evet eksik ifade ettim. Sütun aslinda. Deneyecegim. Bit hayli acil ve biraz da acemiyiz tabii.

 

[Muzaffer Ali]

Merhaba.
Alternatif

Kolon belirterek yapmak için

    Columns("D:D").AutoFit

Hücre belirterek yapmak için.

    Range("D2").EntireColumn.AutoFit

İkisi de D sütunu genişliğini en uzun metne göre otomatik ayarlar