iki dosya arasındaki verileri süzerek gösterme

[galips26]

Arkadaşlar
2 dosya mevcut
1. dosyada tıkladığım hücre içindeki veriye göre
2. dosyayı süzerek user form içinde göstermesini istiyorum

örnek1 dosyası ve örnek 2 dosyası size bir fikir verebilir

yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim conn As Object, rs As Object
TextBox1.Text = ActiveCell.Value
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & _
        ThisWorkbook.Path & "\örnek2.xls;extended properties=""excel 8.0;hdr=no;imex=1"";"
rs.Open "select * from [Sayfa1$] where F1 ='" & _
        TextBox1.Text & "';", conn, 1, 1
If rs.RecordCount > 0 Then ListBox1.Column = rs.GetRows
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
End Sub

 

[galips26]

sayın Orion1

kod istediğim gibi çalışıyor ama text box açılınca sadece isimler geliyor ben isimlerin yanında yanındaki kolonlarındaki bilgilerinde textbox içinde görünmesini istiyorum .

birde bu iki dosya aynı klasör içinde olması çalışması için yeterli mi?

ilginiz için çok teşekkürler

 

[Orion1]

Propertiesten Listbox'ın columncount özelliğine 12 girin.
Zira bende çalışıyor.

 

[galips26]

çoook teşekkürle şuan çalışıyor.

 

[kaya41]

Mükemmel olmuş geliştirilebilir mi ?

Ya ilk başta aklımda küçük bir şey vardı ama bi başlayınca çok oldu biliyorum.
Ama olursa gerçekten benim için harika olacak. umarım yapılabilirliği vardır.

sayfaları kendi yapıma göre güncelledim ve ekledim. malesef bir çok soruda var içinde

Lütfen ,,,,,,,,,,,,,,

 

[Orion1]

Ya ilk başta aklımda küçük bir şey vardı ama bi başlayınca çok oldu biliyorum.
Ama olursa gerçekten benim için harika olacak. umarım yapılabilirliği vardır.

sayfaları kendi yapıma göre güncelledim ve ekledim. malesef bir çok soruda var içinde

Lütfen ,,,,,,,,,,,,,,

Dosyanız ektedir.

 

[kaya41]

çok hızlısınız.

ya gerçekten çok teşekkür ederim .
Ama tam olmamış herhalde.

1-sadece 1 kritere göre süzüyor kalite ve çapı otomatik olarak süzmüyor
nasıl menşei otomatık kendi getirip süzüyorsa kalite ve çapıda süzsün

2-ve nedense büyük küçük harfe duyarlı elle yazsanda süzmüyor. mümkünse büyük küçük harfe duyarlı olmasın.

3-birde formdan doküm numaralarını kapyalayabilmem lazım bu da çok önemli asıl gayem o otomatik olarak süzecek ben uygun malzemenin dökümünü kopyalayıp başka bir sayfaya yapıştırcam.

tabi olursa bu kadarı için bile çok teşekkür ederim.

 

[Orion1]

Böylemi.
Dosyanız ektedir.

ya gerçekten çok teşekkür ederim .
Ama tam olmamış herhalde.

1-sadece 1 kritere göre süzüyor kalite ve çapı otomatik olarak süzmüyor
nasıl menşei otomatık kendi getirip süzüyorsa kalite ve çapıda süzsün

2-ve nedense büyük küçük harfe duyarlı elle yazsanda süzmüyor. mümkünse büyük küçük harfe duyarlı olmasın.

3-birde formdan doküm numaralarını kapyalayabilmem lazım bu da çok önemli asıl gayem o otomatik olarak süzecek ben uygun malzemenin dökümünü kopyalayıp başka bir sayfaya yapıştırcam.

tabi olursa bu kadarı için bile çok teşekkür ederim.

 

[kaya41]

çok sağ olun keşke userform üzerinden döküm no kopyalana bilseydi büyük küçük harf olayıda olmamış

ama bu kadarı bile yeter.


tekrar tekrar çok teşekkür ederim

 

[kaya41]

hubs

ThisWorkbook.Path & "\örnek2.xls;extended properties=""excel 8.0;hdr=no;imex=1"";"

bu kısımda önek2.xls yerine kendi dosyamın yolunu yazıyorum stok.xls diye

şöyle bir hata veriyor

error 3001
yanlış türdeki değişkenler kabul edilebilir aralık dışında veya bir başkasıyla çakışan bağımsız değişkenler kullanılıyor.

şunu da belirteyim benim stok sayfam netsis den veri çekiyor ondan olabilir mi nasıl düzelir ????

 

[Orion1]

çok sağ olun keşke userform üzerinden döküm no kopyalana bilseydi büyük küçük harf olayıda olmamış

ama bu kadarı bile yeter.


tekrar tekrar çok teşekkür ederim

Döküm no nasıl kopyalanacak nereye kopyalanacak açıklarsanız onuda yaparım.
Küçük büyük harfa olayı ise oldu.
Resmini aşağıda ekledim.Orada olduğu gözüküyor.

 

[Orion1]

ThisWorkbook.Path & "\örnek2.xls;extended properties=""excel 8.0;hdr=no;imex=1"";"

bu kısımda önek2.xls yerine kendi dosyamın yolunu yazıyorum stok.xls diye

şöyle bir hata veriyor

error 3001
yanlış türdeki değişkenler kabul edilebilir aralık dışında veya bir başkasıyla çakışan bağımsız değişkenler kullanılıyor.

şunu da belirteyim benim stok sayfam netsis den veri çekiyor ondan olabilir mi nasıl düzelir ????

Sayfa ismide örnek dosyadaki sayfa ismi ile ayni olmalı.