- Katılım
- 24 Şubat 2009
- Mesajlar
- 1,077
- Excel Vers. ve Dili
- 2016
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Dim ay As Byte, ilk As Date, son As Date
ay = ComboBox1.ListIndex + 1
ilk = DateSerial(ComboBox2.Value, ay, 1)
son = DateSerial(ComboBox2.Value, ay + 1, 0)
Range("A1").AutoFilter
Range("A1").AutoFilter field:=5, Criteria1:=">=" & CDbl(ilk)
Range("A1").AutoFilter field:=7, Criteria1:="<=" & CDbl(son)
End Sub
Private Sub Label2_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim ay(), i As Integer
ay = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", _
"TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
For i = 1 To 12
ComboBox1.AddItem ay(i)
Next
ComboBox1.ListIndex = Month(Date) - 1
For i = Year(Date) - 20 To Year(Date) + 20
ComboBox2.AddItem i
Next i
ComboBox2.Value = Year(Date)
End Sub
Siz her iki sütununda ayni ay olma şartını istemiştiniz.Bu durumda mayıs 2009 seçerseniz.İki sütunda 5nci ayı gösterecek şartı gerçekleşmesi gerekir.Sayın Evren hocam; sizin formülde mayıs ayı süzüldüğünde 47 personel süzüyor, oysaki benim dosyamın yanındaki örnekte olduğu gibi E ve G sütunlarındaki 5. ayda personelin verilerinin süzülmesi gerekiyor, bu şekilde bir bakarmısınız. Yani kısacası E ve G Sütunundaki 5. ayları bulunup süzülecek yani buda 5. ay için 63 kişi olacak