Otomatik hücre boyutu

[iucfatih]

Merhabalar. Gireceğim değişkenler sonucunda bir hücreye veri gelecek, o hücrenin metnin uzunluğuna göre boyutunun büyümesini istiyorum baskı alırken işimi kolaylaştırması için. Nasıl yapabilirim?

 

[oucakkaya]

Bunu bende merak ediyorum

 

[hamitcan]

İlgili sayfanın kod kısmına ekleyin.

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

 

[spacebar]

mükemmel. yeni bir şey daha öğrenmiş oldum.

 

[iucfatih]

İlgili sayfanın kod kısmına ekleyin.

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

Teşekkürler hocam

 

[uguraslanoglu]

Teşekkürler fakat Geri Al fonksiyonunu bozuyor bu durum. Ctrl+Z çalışmıyor. Nasıl çözebiliriz?

 

[hamitcan]

Makrolar ile çalıştığınızda, Geri Alma işlemi deaktif hale gelir.

 

[denese]

İlgili sayfanın kod kısmına ekleyin.

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

Sayfada birleştirilmiş hücre var ise çözüm nasıl olmalı? Örneğin; A1 ve B1 hücrelerini birleştirdiğimizde ve birleştirdiğimiz bu hücreye bir metin girdiğimizde, hücrenin aşağıya doğru otomatik genişlemesini sağlayabilir miyiz.

 

[hamitcan]

Öncelikle belirteyim birleştirilmiş hücrelerde bu özellik maalesef işe yaramıyor. Aşağıdaki makaleden bunu anlayabilirsiniz.
https://support.microsoft.com/tr-tr/help/212010.
Ama ben yine de biraz kandırmaca yaptım, umarım işinize yarar.

Private Sub Worksheet_Change(ByVal Target As Range)
    'Hamitcan, 13/11/2018
    Range(Target.Address, Target.Next.Address).Select
    With Selection
    .UnMerge
     Cells.EntireColumn.AutoFit
     .Merge
    End With
End Sub

 

[denese]

Yapmak istediğim şey maalesef mümkün değilmiş. Bilgilendirmeniz için ayrıca teşekkür ederim.