sıfırdan büyük hücrelerin sütun genişliği

[euphrates55]

merhabalar, N3:ZG28 aralığındaki hücrelerin sütun genişliğini 0,3 yapıp, sonrasında yine aynı aralıkta herhangi bir hücrede değer sıfırdan büyükse o sütunun genişliğini 1,5 olarak değiştirmek için nasıl bir kod olmalı acaba. (not: hücrelerde formüller var.)

 

[excelokyanus500]

Belki bir fikir verir. Kendinize uyarlayın.

Sub Darhücreyigenislet()
Let x = 0
Do While x < 1
Sheets("RAPOR").Select
ActiveSheet.UsedRange.Select
Dim oCell As Range
For Each oCell In Selection
If Left(Trim(oCell.Text), 1) = "#" Then
' If oCell.Value > 0  Then
oCell.ColumnWidth = oCell.ColumnWidth * 1.50
End If
Next oCell
x = x + 1
Loop
Range("A3").Select

End Sub

 

[Ziynettin]

Sub test()
a = [N3:ZG28].Value
    For j = 1 To UBound(a, 2)
        If Application.Max(Application.Index(a, , j)) > 0 Then
            Columns(j + 13).ColumnWidth = 1.5
        Else
            Columns(j + 13).ColumnWidth = 0.3
        End If
    Next j
End Sub

 

[euphrates55]

ikinize de teşekkürler.