Tarihe göre başka sayfaya veri aktarmak

can3558

Altın Üye
Katılım
15 Nisan 2009
Mesajlar
4
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
02-11-2025
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.
 

Ekli dosyalar

montani

Altın Üye
Katılım
11 Haziran 2010
Mesajlar
34
Excel Vers. ve Dili
2016, Türkçe
Altın Üyelik Bitiş Tarihi
21-12-2027
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,371
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,
ADO ile çözüm aşağıdadır.
VBA penceresi Referanslardan Microsoft Aktives Data Objecs'in son sürümünü seçiniz.

Kod:
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

Altın Üye
Katılım
15 Nisan 2009
Mesajlar
4
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
02-11-2025
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

Altın Üye
Katılım
15 Nisan 2009
Mesajlar
4
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
02-11-2025
Merhaba,
ADO ile çözüm aşağıdadır.
VBA penceresi Referanslardan Microsoft Aktives Data Objecs'in son sürümünü seçiniz.

Kod:
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,371
Excel Vers. ve Dili
Ofis 365 Türkçe
Buyrunuz.
İki ayrı kod yazdım, hangisini isterseniz onu kullanabilirsiniz.
 

Ekli dosyalar

can3558

Altın Üye
Katılım
15 Nisan 2009
Mesajlar
4
Excel Vers. ve Dili
2007
Altın Üyelik Bitiş Tarihi
02-11-2025
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,371
Excel Vers. ve Dili
Ofis 365 Türkçe
Güle güle kullanınız.
 
Üst