DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Goster()
If Range("E5").Value = 5 Then
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
Else
Columns("B:B").Select
Selection.EntireColumn.Hidden = False
End If
End Sub
Sizin örneğinize göre "E5" yazan yeri "E1" olarak değiştiriniz.sergions' Alıntı:Kod:If Range("E5").Value = 5 Then