verilen bazı şartları sağlıyorsa başka sayfa ya hızlı kopyalama yöntemi var mı ?

[bülent123456bülent]

Arkadaşlar ekteki dosyada "SAYFA 2" deki "3. kopyalayapıştır"' a basınca "SAYTFA 2 deki B2 hücresindeki" tarihi alıyor. "VERİ DEPOSU" sayfasındaki veriler arasında tarıyor. Bununla eşit veriler varsa o satırdaki verileri olduğu gibi "Sayfa1 " e yapıştırıyor.


Ama bu işlem uzun sürüyor. Bunun daha kısa yolu yokmu acaba burada veriler karışık değil tarih sırasına göre dizili olduğu için bunun bir kısa yolu vardır diye düşünüyorum. veriler sabit sayıda olsa ben kendim yaparım ama burada her tarihte toplam satır sayısı değişiyor. Bazen 20-30 satır oluyor ama genelde 288 satır oluyor.

Yardım edeceklere şimdiden çok teşekür ederim....

 

[Zeki Gürsoy]

Örnek dosya eklemenizde fayda var.

 

[bülent123456bülent]

örnek dosya

 

[bülent123456bülent]

40 dakikadır örnek dosya eklemek için uğraşıyorum küçülte küçülte sonunda yaptım...

 

[Zeki Gürsoy]

Sub FilterX()
Dim cn As Object, rs As Object

Set cn = CreateObject("ADODB.Connection")

cn.Open _
    "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & _
        ThisWorkbook.FullName

Set rs = cn.Execute( _
    "select * " & _
    "from [VERİ DEPOSU$a4:e65000] " & _
    "where [TARİH]='" & CDate(Sheets("sayfa 2").[b2]) & "'")

Sheets("Sayfa1").[a3].CopyFromRecordset rs
    
rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing

End Sub

 

[bülent123456bülent]

Zeki bey çok teşekkür ederim istediğim tamda buydu.......

 

[bülent123456bülent]

Birazda kodların ne işler yaptıkları konusunda ayrıntılı bilgi verirsen çok sevinirim çünkü ben aynı yöntemle aynı (tarih) olan satırları bir seferse silmeye çalışacağım....

 

[Zeki Gürsoy]

"Excel tablosu" ndan ADO ile toplu kayıt silinemiyor ne yazık ki.

 

[bülent123456bülent]

Olsun onu öğrenmiş olduk çok teşekkür ederim....