Seçilen iki tarih aralığını Arşiv sayfasına aktarmak

[sdegirmenci]

Merhaba;

"B6" satırından başlayarak Form üzerinde tarih Hücresine yazdığım tarih aralığını "Çizelge" sayfasından "Arşiv" sayfasında ilk boş satıra aktarmak istiyorum. Kendim yapmak için uğraştım ancak başaramadım.Bu konuda yardımcı olabilirseniz çok sevinirim. Saygılarımla

 

[sdegirmenci]

Çok zor bir şeymi istedim acaba, yoksa ne istediğimi anlatamadımmı

 

[sdegirmenci]

.

 

[PLİNT]

Merhaba
Dosyanızı görme imkanım yok ama aşağıdaki gibi bir filtreleme işinize yararmı?
(kodlardaki s1.Range("$A$6:$G$" & x) ve CLng(CDate([A1].Text)), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate([A2].Text)) sütun , kriterler ayarlanmalı)

Dim s1 As Worksheet, s2 As Worksheet, x As Long, i As Long
Set s1 = Sheets("Çizelge")
Set s2 = Sheets("Arşiv")

s1.AutoFilterMode = False
x = s1.Cells(Rows.Count, "B").End(3).Row

s1.Range("$A$6:$G$" & x).AutoFilter Field:=2, Operator:= _
xlFilterValues, Criteria1:=">=" & CLng(CDate([A1].Text)), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate([A2].Text))
i = s2.Cells(Rows.Count, "A").End(3).Row + 1
s1.Range("$A$6:$G$" & x).SpecialCells(xlCellTypeVisible).Copy
s2.Cells(i, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
s1.AutoFilterMode = False

 

[sdegirmenci]

Sayın PLİNT ilginize çok teşekkür ederim. Filtreleme olayı olmuyor çünkü çalışma sistemi değişikliğinde Çizelge sayfası silinip yeni duruma göre yeniden çalışma sıralaması yapılıyor, Önceki çalışılan sistemi Arşiv sayfasına aktarmamız gerekiyor