İki Tarih Arası Veri Alma

[Ponki]

Geçenlerde almıştım bu dosyayı, süper makrolar yazılmış içerisine, ben de bir iki ekleme çıkartma yaptım, fakat veri sayfasındaki başlangıç ve bitiş tarihlerine iki farklı tarih yazdığımda tarih sayfasında veri sayfasına yazılan iki tarih arasındaki satışları görmek için kodları bir türlü yaamıyorum, başka dosyalardan kodları değiştirmeye çalıştım fakat yapamadım. yardımcı olursanız çok sevinirim. iyi çalışmalar!

 

[halit3]

Geçenlerde almıştım bu dosyayı, süper makrolar yazılmış içerisine, ben de bir iki ekleme çıkartma yaptım, fakat veri sayfasındaki başlangıç ve bitiş tarihlerine iki farklı tarih yazdığımda tarih sayfasında veri sayfasına yazılan iki tarih arasındaki satışları görmek için kodları bir türlü yaamıyorum, başka dosyalardan kodları değiştirmeye çalıştım fakat yapamadım. yardımcı olursanız çok sevinirim. iyi çalışmalar!

Bu kodu denermisiniz.

Sub AKTAR()
Sheets("TARİH").Range("A2:H1048576").ClearContents
sat = 2
Application.ScreenUpdating = False
ilk_tarih = CDate(Sheets("VERİ").Range("J17").Value)
son_tarih = CDate(Sheets("VERİ").Range("L17").Value)
For i = 2 To Sheets("VERİ").Cells(1048576, "A").End(xlUp).Row
aranan = CDate(Sheets("VERİ").Cells(i, "A").Value)
If aranan >= ilk_tarih And aranan <= son_tarih Then
Sheets("TARİH").Cells(sat, "A").Value = Sheets("VERİ").Cells(i, "A").Value
Sheets("TARİH").Cells(sat, "B").Value = Sheets("VERİ").Cells(i, "B").Value
Sheets("TARİH").Cells(sat, "C").Value = Sheets("VERİ").Cells(i, "C").Value
Sheets("TARİH").Cells(sat, "D").Value = Sheets("VERİ").Cells(i, "D").Value
Sheets("TARİH").Cells(sat, "E").Value = Sheets("VERİ").Cells(i, "E").Value
Sheets("TARİH").Cells(sat, "F").Value = Sheets("VERİ").Cells(i, "F").Value
Sheets("TARİH").Cells(sat, "G").Value = Sheets("VERİ").Cells(i, "G").Value
Sheets("TARİH").Cells(sat, "H").Value = Sheets("VERİ").Cells(i, "H").Value
sat = sat + 1
End If
Next
Application.ScreenUpdating = True
MsgBox "İki tarih arası TARİH çıkarıldı.!", vbOKOnly + vbInformation
Application.CutCopyMode = False
End Sub

 

[Ponki]

halit bey ellerinize sağlık, çok güzel olmuş, bu kodları sizlerin yaptığı örneklerden anlamaya çalışıyorum. ancak henüz işin daha çok başındayım, çok teşekkür ederim. sizleri takip etmeye devam edeceğim. saygılar.

 

[Ponki]

halit bey bu kodların anlamlarını nereden öğreneceğiz?