Sütunları Gizleme

[airborne]

s.a.

Aşağıdaki kod da nasıl bir düzenleme ile boş sütunlar gizlenebilir.


Sub bos_sütunlari_gizle()
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
If Cells(i, "A").Value = "" Then Rows(i).Hidden = True
Next i
End Sub