Tarihe göre başka sayfaya veri aktarmak

[can3558]

Merhaba,

Bir sayfadan diğerine, istenilen tarihdeki verileri makro ile aktarmak istiyorum. İki sayfam var, biri ÖZET diğeri VERİ. Veri sayfasından ÖZET sayfasına veri aktarmak istiyorum. Bu veriler ÖZET sayfasındaki A1 hücresindeki tarih ile aynı olan VERİ sayfasındaki veriler olacak Örnek tablo ilişikte. Yardımlarınız için sonsuz teşekkürler.

 

[montani]

merhabalar, elbette makro ile özet tabloya mevcut verileri aktarmayı istemenizin bir sebebi vardır ama mevcut veri tablosunda neden filtreleme kullanarak sadece görmek istediğiniz tarihe ilişkin veriler kalacak şekilde işlem yapmadığınızı merak ettim doğrusu.

 

[Necdet]

Merhaba,
ADO ile çözüm aşağıdadır.
VBA penceresi Referanslardan Microsoft Aktives Data Objecs'in son sürümünü seçiniz.

Sub ADOB_ILE_AKTAR()

'Tolls/Referans/Microsoft Aktives Data Objecs x.x Library

    Dim connection As New ADODB.connection
    Dim DosyaAdı As String
    Dim query As String
    Dim rs As New ADODB.Recordset
   
    Sheets("ÖZET").Range("A3").CurrentRegion.Offset(1).ClearComments
   
    query = "SELECT * FROM [VERİ$] WHERE [Tarih] = " & CDbl(Sheets("ÖZET").Range("A1"))
   
    DosyaAdı = ThisWorkbook.FullName
   
    connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DosyaAdı & _
                ";Extended Properties=""Excel 12.0;HDR=Yes;"";"
               
    rs.Open query, connection
   
    Sheets("ÖZET").Range("A4").CopyFromRecordset rs
   
    connection.Close
   
End Sub

 

[can3558]

merhabalar, elbette makro ile özet tabloya mevcut verileri aktarmayı istemenizin bir sebebi vardır ama mevcut veri tablosunda neden filtreleme kullanarak sadece görmek istediğiniz tarihe ilişkin veriler kalacak şekilde işlem yapmadığınızı merak ettim doğrusu.
[/
Yapmaya çalıştığım şey bir kasa defteri. Veri sayfasına binlerce satır veri giriliyor. Özet sayfasına ilgili tarihin verilerini alarak bir kasa defteri görünümü yaratmak istiyorum. İyi akşamlar diliyorum.

 

[can3558]

Merhaba,
ADO ile çözüm aşağıdadır.
VBA penceresi Referanslardan Microsoft Aktives Data Objecs'in son sürümünü seçiniz.

Sub ADOB_ILE_AKTAR()

'Tolls/Referans/Microsoft Aktives Data Objecs x.x Library

    Dim connection As New ADODB.connection
    Dim DosyaAdı As String
    Dim query As String
    Dim rs As New ADODB.Recordset
  
    Sheets("ÖZET").Range("A3").CurrentRegion.Offset(1).ClearComments
  
    query = "SELECT * FROM [VERİ$] WHERE [Tarih] = " & CDbl(Sheets("ÖZET").Range("A1"))
  
    DosyaAdı = ThisWorkbook.FullName
  
    connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DosyaAdı & _
                ";Extended Properties=""Excel 12.0;HDR=Yes;"";"
              
    rs.Open query, connection
  
    Sheets("ÖZET").Range("A4").CopyFromRecordset rs
  
    connection.Close
  
End Sub

Öncelikle iyi akşamlar diliyorum. Hocam henüz çok acemiyim makrolar konusunda. Acaba örnek çalışmaya uyarlamanız mümkün mü bu çalışmayı. Saygılar sunuyorum.

 

[Necdet]

Buyrunuz.
İki ayrı kod yazdım, hangisini isterseniz onu kullanabilirsiniz.

 

[can3558]

Buyrunuz.
İki ayrı kod yazdım, hangisini isterseniz onu kullanabilirsiniz.

Hocam çok teşekkür ediyorum, elinize emeğinize sağlık, bana çok büyük yardımda bulundunuz, sonsuz teşekkürler, saygılar...

 

[Necdet]

Güle güle kullanınız.