Otomatik Hücre ve Sütun Genişliği

[CAFERCİFTCİ]

Arkadaşlar,
Bir hücreye girilen verinin boyutu uzadıkça hücre ve dolayısıyla sütun da oa uygun olarak genişlesin istiyorum.Yardımcı olursanız seviirim...Teşekkürler.

 

[pristineli45]

Aşağıdaki kodları Thisworkbook (Bu Çalışma Kitabı) içine atın

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
For Each Value In Target.Columns
Worksheets(Sh.Name).Columns(Value.Column).AutoFit
Next Value
Application.ScreenUpdating = True
End Sub

 

[ÖmerBey]

Aşağıdaki linkte de bir örnek var.
http://www.excel.web.tr/f50/sutunlary-otamatik-buyultme-daraltma-t20580.html