Sütun genişliği ayarlama

[kmlblgn]

merhaba
bir ödev dosyası hazırlıyorum bu dosyamda;
ilk satırda her bir hücrenin içine formülle bir değer bulduruyorum.
sizlerden ricam ilk satırdaki hücrelerde bir değer varsa sütun genişliğini bu değere göre belirleyebilecek bir makro yapılabilir mi?
Birde bazen birleştirilmiş hücreler oluyor onlar içinde geçerli olur mu

ÖRNEĞİN:
A1 de 5 yazıyorsa A sütununun genişliğini 5
B1 de 2 yazıyorsa B sütununun genişliğini 2
C1 de 4,6 yazıyorsa C sütununun genişliğini 4,6
...
Şeklinde

 

[Mustafa MUTLU]

Kodu sayfanızın kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
For yy = 1 To 26
If Cells(1, yy) > 1 Then
If Cells(1, yy) < 150 Then
Columns(yy).ColumnWidth = Cells(1, yy)
End If
End If
Next
End Sub

 

[kmlblgn]

Teşekkürler

Elinize sağlık çok teşekkür ederim.
Tam istediğim gibi