kardelen79
Altın Üye
- Katılım
- 18 Mayıs 2018
- Mesajlar
- 490
- Excel Vers. ve Dili
- 2007
- Altın Üyelik Bitiş Tarihi
- 11-06-2025
FORMULLE yapılırsa daha iyi olur
Ekli dosyalar
-
22.2 KB Görüntüleme: 20
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Gizleyebilirsiniz.Gizliyerek deneyin.peki bu tarihlere arası sütunları göstersek diğerlerini gizleyebilirmiyiz
Sub gizle()
Application.ScreenUpdating = False
son = Cells(5, 5000).End(1).Column
For i = 1 To son
If CDbl(CDate(Cells(5, i))) <= CDbl(CDate(Range("AGA3"))) Or CDbl(CDate(Cells(5, i))) >= CDbl(CDate(Range("AGI3"))) Then
Cells(1, i).EntireColumn.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Sütungöster()
Application.ScreenUpdating = False
Columns.EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub
Menü Çubuğunuzda geliştirici sekmesi var mı?inan ben sace formulle yapabiliyorum o veriyi yükleyemem ben
1)Aşağıda sayfa adlarının yazılı olduğu menüde fare sağ tuş yapınız.
Makrosuz sütun nasıl gizlenir bilmiyorum.Neden büyük harf kullandığınızı sorabilir miyim?MAKROSUZ YAZABİLİR MİSİNİZ