• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
30 Kasım 2006
Mesajlar
625
Excel Vers. ve Dili
OFFICE 2003 Türkçe
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
 

Ekli dosyalar

Çok zor bir şeymi istedim acaba, yoksa ne istediğimi anlatamadımmı
 
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ı)
Kod:
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
 
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
 
Geri
Üst