- Katılım
- 1 Ocak 2012
- Mesajlar
- 75
- Excel Vers. ve Dili
- vba
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub aylar_yillar_59()
Dim kucuk_tar As Date, bucuk_tar As Date
Dim yil As Integer
Set col = New Collection
kucuk_tar = Range("A3").Value
buyuk_tar = DateSerial(Year(kucuk_tar), Month(buyuk_tar) + 1, 0)
Application.ScreenUpdating = False
Range("A3").AutoFilter
Range("A3").AutoFilter field:=1, Criteria1:=">=" & CLng(kucuk_tar), _
Operator:=xlAnd, Criteria2:="<=" & CLng(buyuk_tar)
Application.ScreenUpdating = True
End Sub
Zaten öyle yapıyor.Hocam emeğin için teşekkür ederim yanlız değiştirdiğimde o tablolar olduğu gibi o yıla ve o aya ait olarak kalmalı...
Filtrenin kaldırılmasınımı istiyorsunuz?hocam tamam yıllar olmasada olur ama 2012 sabit aylar değişenilirmi olduğu gibi..
Kusura bakmayın maalesef ne istediğinizi anlayamadım.hocam aslında istediğim şey şu mevcut çizmiş olduğum tabloyu sadece istenilen ayda görmek bunu anasayfa oluşturup ordanda istemiş olduğumuz ayı seçip çağırabilirsenizde olur ama anasayfa dışındaki diğer sayfalar gizli kalmalı..