Sayın veyselemre yanıtınız için çok teşekür ederim. Tam düşümdüğüm gibi oldu. Bir de bu kodu sütun gizleme için uygulayabilirsek tam olucak.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Gizle()
Application.ScreenUpdating = False
Columns.Hidden = False
For Each elm In [2:2].SpecialCells(xlCellTypeConstants, 23)
If elm.Value = "g" Then elm.EntireColumn.Hidden = True
Next
Application.ScreenUpdating = True
End Sub
Sub Ac()
Columns.Hidden = False
End Sub