Gelısmıs fıltre

[49610]

Merhaba Arkadaşlar,

Sayfamda Gelişmiş Filtre özelliği kullanacağım, 3 adet filtre yapıyorum. Bunlardan 2 tanesinde sorunum yok fakat sonuncusunda TARIH ARALIĞI na göre filtre yapmam gerekiyor ve ben yapamadım, yardımlarınızı bekliyorum.

Şimdiden teşekkürler.

 

[Merhum İdris SERDAR]

.

Creteria alanınız aşağıdaki gibi olmalı:

TARİH	                TARİH	         
>=05.01.2012	      <=01.03.2012

.

 

[49610]

Yapamadım üstadım.

 

[byysmn]

üstadadım özet tabloyu kullansanız olur sanırım

 

[byysmn]

Bunu bir deneyin isterseniz

Hocam bu daha iyi olur sanırım

 

[asi_kral]

Merhaba Arkadaşlar,

Sayfamda Gelişmiş Filtre özelliği kullanacağım, 3 adet filtre yapıyorum. Bunlardan 2 tanesinde sorunum yok fakat sonuncusunda TARIH ARALIĞI na göre filtre yapmam gerekiyor ve ben yapamadım, yardımlarınızı bekliyorum.

Şimdiden teşekkürler.

Merhaba
Boş bir module bu kodu kopyalayın ve deneyin.
D6 hücresine hangi ayın dökümünü almak istiyorsanız o aya ait herhangi bir tarih giriniz.

Option Explicit
Sub süzdür_1967()
'Konu       :   Yazılan Tarihe Göre Döküm
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
Application.ScreenUpdating = False
asi = Range("D" & Rows.Count).End(xlUp).Row
Range("D10:H" & asi).AutoFilter field:=1, Criteria1:=">=" & _
CLng(DateSerial(Year(Range("D6")), Month(Range("D6")), 1)), _
Operator:=xlAnd, Criteria2:="<=" & CLng(DateSerial(Year(Range("D6")), _
Month(Range("D6")) + 1, 0))
Range("D10:H" & asi).AutoFilter field:=2, Criteria1:=Range("E6")
Range("D10:H" & asi).AutoFilter field:=3, Criteria1:=Range("F6")
If WorksheetFunction.Subtotal(3, Range("D11:D" & asi)) > 0 Then
Range("G11:H" & asi).Copy Destination:=Range("G6")
End If
Range("D10:H" & asi).AutoFilter
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[Merhum İdris SERDAR]

Merhaba Arkadaşlar,

Sayfamda Gelişmiş Filtre özelliği kullanacağım, 3 adet filtre yapıyorum. Bunlardan 2 tanesinde sorunum yok fakat sonuncusunda TARIH ARALIĞI na göre filtre yapmam gerekiyor ve ben yapamadım, yardımlarınızı bekliyorum.

Şimdiden teşekkürler.

.

Dosyanız ekte.

.

 

[49610]

Saolun arkadaşlar,
Ben bunu nasıl düşünemedim, ona şaşıyorum. Tabiki bir başlangıç tarihi, bir de bitiş tarihi olacaktı.
Emeğinize sağlık, teşekkür ederim.