Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 02 Eylül 2010, 11:48:17

Başlık: Tarih aralığında liste almak
Gönderen: drejan62 - 02 Eylül 2010, 11:48:17

Merhaba arkadaşlar,
Ekteki dosyada "Tüm" sayfasında verilerim var. Bu verilerin satır sayısı değişken.
Yapmak istediğim yazılacak bir makro ile iki tarih dilimi arasındaki verilere ait satırları "özet" sayfasına aktarmak.
Örneğimizde 25.05.2010 (dahil) ile 01.09.2010 (dahil) tarihleri arasındaki verileri "özet" sayfasına aktarmak.
Teşekkür ederim şimdiden.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: Tarih aralığında liste almak
Gönderen: Orion1 - 02 Eylül 2010, 12:13:37

Dosyanız ektedir. :cooll

Kod: [Seç]

Sub suz_aktar_59()
Sheets("Tüm").Select
If Not IsDate(Range("B2").Value) Then
    MsgBox "İlk tarih yanlış girilmiş.", vbCritical, "UYARI"
    Range("B2").Select
    Exit Sub
End If
If Not IsDate(Range("B3").Value) Then
    MsgBox "İlk tarih yanlış girilmiş.", vbCritical, "UYARI"
    Range("B3").Select
    Exit Sub
End If
Sheets("özet").Range("A1:AA65536").ClearContents
Application.ScreenUpdating = False
Range("A7").AutoFilter
Range("A7").AutoFilter field:=18, Criteria1:=">=" & CLng(Range("B2").Value), _
Operator:=xlAnd, Criteria2:="<=" & CLng(Range("B3").Value)
Range("A7").CurrentRegion.Copy Sheets("özet").Range("A7")
Range("A7").AutoFilter
Sheets("özet").Select
Application.ScreenUpdating = True
MsgBox "Filtre çıkarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: Tarih aralığında liste almak
Gönderen: drejan62 - 02 Eylül 2010, 12:22:43

Evren Üstad
Teşekkürler, çok sağolun.
Süper olmuş.  :senin_icin

Başlık: Ynt: Tarih aralığında liste almak
Gönderen: Orion1 - 02 Eylül 2010, 12:42:05

Alıntı yapılan: drejan62 - 02 Eylül 2010, 12:22:43

Evren Üstad
Teşekkürler, çok sağolun.
Süper olmuş.  :senin_icin

Rica ederim.
İyi çalışmalar. :cooll

Başlık: Ynt: Tarih aralığında liste almak
Gönderen: assenucler - 14 Eylül 2010, 08:12:58

Sayın Evren Gizlen;

Günaydın..

Arşivime ekliyorum. Katkılarınız için kendi adıma teşekkürler..