hücre değerine göre sütun genişliğini ayarlama

[yusuf09]

Herkese selamlar. Çalıştığım dosyada takılı kaldım yardımlarınızı bekliyorum.

Sayfadaki H3 hücresinde formül sonucu "" (boş değer) verdiğinde H sütununun genişliğinin 3 olmasını istiyorum.

Ne yapmam gerek.

 

[systran]

aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Calculate()
If (Range("H3").Value) = "" Then
    Columns("H:H").ColumnWidth = 3
Else
    Columns("H:H").ColumnWidth = 10
End If
End Sub

 

[yusuf09]

teşekkür ederim sanırım kod işe yaradı şuan için aksama yok görünüyor.

 

[systran]

güle güle kullanın.