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

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,304
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Dosyanız ektedir, Dizi Formül kullanılmıştır.....

.
 

Ekli dosyalar

Son düzenleme:

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
peki bu tarihlere arası sütunları göstersek diğerlerini gizleyebilirmiyiz
 

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
tarikleri yazdıktan sonra sadece o tarih arası gözüksü istiyorum
 

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
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
 

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
para isteyenler bakmasın programa gerek yok
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,519
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Hangi satıra göre sütunlar gizlenecek?
 

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
abim önce yukarıdaki tarihi secip enküçük ve en büyük sütunlarındaki bölüme verilerin gelmesini istiyorum
 

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
seçtiğimiz tarihe göre sutunlar gizlenecek
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
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:

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
inan ben sace formulle yapabiliyorum o veriyi yükleyemem ben
 
Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
22/12/2022
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:

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
MAKROSUZ YAZABİLİR MİSİNİZ
 
Üst