- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Bir sorguda 3 tabloyu birleştirmem gerekiyordu, bir türlü beceremedim, Ekli dosyada;
1- Ürünler Sayfasında Stok Adı ve Stok Kodu
2- SiparisDetay sayfasında SiparisID ve Stok Kodu
3- Siparisler Sayfasında SiparisID
eşleştirerek,
Stok Adını içeren bir kelimeyi Userform' da TextBox' a girdiğim zaman, bunu içeren stok kodlarını, bu stok kodlarından Siparis numaralarına ulaşmak istiyorum.
Ekli dosyada "zeka" kelimesini yazdığımda Siparisler sayfasında Sarı ile boyalı satırları almam gerekecek
teşekkürler,
iyi çalışmalar.
Bir sorguda 3 tabloyu birleştirmem gerekiyordu, bir türlü beceremedim, Ekli dosyada;
1- Ürünler Sayfasında Stok Adı ve Stok Kodu
2- SiparisDetay sayfasında SiparisID ve Stok Kodu
3- Siparisler Sayfasında SiparisID
eşleştirerek,
Stok Adını içeren bir kelimeyi Userform' da TextBox' a girdiğim zaman, bunu içeren stok kodlarını, bu stok kodlarından Siparis numaralarına ulaşmak istiyorum.
Ekli dosyada "zeka" kelimesini yazdığımda Siparisler sayfasında Sarı ile boyalı satırları almam gerekecek
teşekkürler,
Kod:
Set Conn = CreateObject("ADODB.CONNECTION")
With Conn
.Open "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0;HDR=YES;IMEX=0';Data Source=" & _
ThisWorkbook.FullName
End With
strSql = "Select * From [Siparisler$]"
Set RS = Conn.Execute(strSql)
Sheets("Rapor").Range("A2").CopyFromRecordset RS
Ekli dosyalar
-
21.9 KB Görüntüleme: 11