• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İKİ TARİH ARASINDA DEĞERLERİ BULMA

Dosyanız ektedir, Dizi Formül kullanılmıştır.....

.
 

Ekli dosyalar

Son düzenleme:
peki bu tarihlere arası sütunları göstersek diğerlerini gizleyebilirmiyiz
 
Arkadaşlar cıtır yolladığı formulde iki tarih arasındaki değerleri buluyor ben bu iki değer arasını gösterip diğer tarihleri gizlemesini istiyorum varmı böyle bir imkan
 
Hangi satıra göre sütunlar gizlenecek?
 
abim önce yukarıdaki tarihi secip enküçük ve en büyük sütunlarındaki bölüme verilerin gelmesini istiyorum
 
Bir deneyiniz.Sonuç vereçek mi?Sütunları gizleme
Kod:
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
Sütunları göster
Kod:
Sub Sütungöster()
Application.ScreenUpdating = False
   Columns.EntireColumn.Hidden = False
    Application.ScreenUpdating = True
End Sub
Dosyanız;
 

Ekli dosyalar

Son düzenleme:
1)Aşağıda sayfa adlarının yazılı olduğu menüde fare sağ tuş yapınız.
2)Kod görüntüle seçeneğini seçiniz.
3)Açılan pençereden Insert seçiniz.,
4)Modüle tıklayınız.
5)Siteye gönderdiğim kodu kopyalayınız ve buraya yapıştırınız.
6)Sayfaya geliniz. Geliştirici sekmesine geçiniz.
7)Ekleyi açarak.En başdaki Düğme(Form denetimleri)tıklayınız.
8)Fare sol tuşa basılı tutarak çekiniz.Bir düğme oluşur ve makro ata pençeresi çıkar.
9)Gizle yi tıklayınız ve tamam diyerek kapatınız.
10) Veya Tasarım modu kapalı olsun.Düğme üzerinde fare sağ tuş tıkla makro ata ile makroyu seçerek ata
11)Dosyanızı Makro içerebilen çalışma kitabı olarak kaydediniz.
12)Düğmeye tıklayarak sonuçları gözlemle
 
Son düzenleme:
Geri
Üst