Eksi verileri çekme

[magnet2014]

Merhaba,

Ekli dosyada detaylı anlattığım üzere özet sayfasında bir buton oluşturarak diğer sayfalardan şarta bağlı veri çekmek istiyorum. Yardımlarınız için çok teşekkür ederim.

Saygılarımla,

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[Erdem Akdemir]

Merhaba,

Tag'da ki kodu dener misiniz.

Sub getir()

Set con = VBA.CreateObject("adodb.Connection")
Set cat = CreateObject("ADOX.Catalog")
son = Cells(Rows.Count, "a").End(3).Row + 1

Range("A10:N" & son).Clear

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

cat.ActiveConnection = con

For Each tbl In cat.tables
If tbl.Name <> "Sheet1$" Then

sorgu = "select * from [" & tbl.Name & "] where f14<0"

Set rs = con.Execute(sorgu)
son = Cells(Rows.Count, "a").End(3).Row + 1
Range("a" & son).CopyFromRecordset rs

End If

Next

End Sub

 

[magnet2014]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Sayın muygun,

Çok teşekkür ederim bir sorum daha olacak bu tuşa basılınca başka bir pencerede açılarak bu pencere sıralanmasını sağlayabilir miyiz?

Emeğinize sağlık

 

[Erdem Akdemir]

Sayın magnet benim yazdığım kodu sanırım denemediniz.
Başka pencereden kastınız yeni çalışma kitabı'mı, çalışma sayfası mı oluyor?

 

[magnet2014]

Merhaba,

Tag'da ki kodu dener misiniz.

Sub getir()

Set con = VBA.CreateObject("adodb.Connection")
Set cat = CreateObject("ADOX.Catalog")
son = Cells(Rows.Count, "a").End(3).Row + 1

Range("A10:N" & son).Clear

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""

cat.ActiveConnection = con

For Each tbl In cat.tables
If tbl.Name <> "Sheet1$" Then

sorgu = "select * from [" & tbl.Name & "] where f14<0"

Set rs = con.Execute(sorgu)
son = Cells(Rows.Count, "a").End(3).Row + 1
Range("a" & son).CopyFromRecordset rs

End If

Next

End Sub

Sayun Kuvar,

Vermiş olduğunuz kod çalışıyor çok teşekkür ederim. Ancak başta sıra no. lar karışık geliyor Bir de yukarıda sorduğum üzere başka bir pencere de sıralatmamız mümkün olur mu? başlıklar da bu pencere gözükecek şekilde.

Butona basıldığında form gibi açılan birşey olabilir. Butona bastığınız anda ekrana gelecek

Emeğinize teşekkür ederim.

 

[muygun]

Sayın muygun,

Çok teşekkür ederim bir sorum daha olacak bu tuşa basılınca başka bir pencerede açılarak bu pencere sıralanmasını sağlayabilir miyiz?

Emeğinize sağlık

Merhaba;
Başka pencere meselesini pek anlamadım ama eki deneyin. Belki işinizi görür.
İyi çalışmalar.

 

[magnet2014]

Merhaba;
Başka pencere meselesini pek anlamadım ama eki deneyin. Belki işinizi görür.
İyi çalışmalar.

Sayın Muygun,

Sizi yordum dilim döndüğünce anlatmaya çalıştım. Ama son olarak özetlemem gerekirse ilk gönderdiğiniz tablo çok işime yaradı. Tek bir sorunum kaldı sizin gönderdiğiniz örnek sayfada kırmızı renkli tablo başlıkları sayfada sabit olarak duruyor butona basıldığında aşağısına değerleri sıralıyor. Ben butona bastığımızda değerler ile birlikte kırmızı renkli başlıklar gelsin istiyorum. Ayrıca ayrı bir temizle butonuna basıldığında da başlıkl satırı ile birlikte bu veriler temizlensin istiyorum. B15 satırından başlıklar olacak altına sıralama yapılacak. B15 satırı üstünde başka verilerim mevcut Bunu yapmak mümkün mü? Makro konusunda çok bilgisizim kusura bakmayın.

Teşekkür ederim

 

[muygun]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

 

[magnet2014]

Çok teşekkür ederim Sizi de yordum