Aynı Veriyi İçeren Satırlardan Veri Çekip Listeleme

[Kaan Can]

Merhaba,

Bir konuda desteğe ihtiyacım var. Sayfa 1 'de B sütununa iş emri numaralarını C sütununa ise makine numaralarını girdim. Sayfa iki 'de ise makine numaralarının altına ilgili iş emirlerini alt alta listelemek istiyorum.

İlgilenenlere şimdiden teşekkür ederim.

 

[YUSUF44]

Örnek dosya paylaşın lütfen.

 

[Kaan Can]

Dosya eklemeyi bulamamıştım. Şimdi Google Drive ile deniyorum.

Book-KCB.xlsx

drive.google.com

 

[S.Yiğit]

Merhaba,

B2 hücresine bu formülü yazarak sağ tarafa uzatınız.

=EĞERHATA(İNDİS(Sheet1!$B$2:$B$21;KAÇINCI(Sheet2!B1;Sheet1!$C$2:$C$21;0));"")

 

[Kaan Can]

Merhaba,
İngilizce kullanıyorum formulü şu şekilde revize ederek denedim ancak hata aldım.

=IFERROR(INDEX(Sheet1!$B$2:$B$21;MATCH(Sheet2!B1;Sheet1!$C$2:$C$21;0));"")

 

[YUSUF44]

Aşağıdaki makroyu deneyin:

Sub aktar()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
son1 = s1.Cells(Rows.Count, "C").End(3).Row
sonsut = s2.Cells(1, Columns.Count).End(xlToLeft).Column
Set con = VBA.CreateObject("adodb.Connection")

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

For sut = 2 To sonsut
    sorgu = "select [İş Emri No] from[Sheet1$] where [Tezgah] = '" & s2.Cells(1, sut) & "'"
      
    Set rs = con.Execute(sorgu)
    s2.Cells(2, sut).CopyFromRecordset rs
Next
End Sub

 

[Kaan Can]

Yusuf bey elinize sağlık.

Yazdığınız makro kodu sheet2 ' ye kod görüntüle deyip yapıştırdım. Makro içerebilen çalışma sayfası olarak kaydettim. Başka ne yapmam gerekiyor?

 

[Kaan Can]

Yusuf bey çok çok teşekkür ediyorum. Kodu yapıştırınca ingilizce-türkçe karakter uyumsuzluğu oluşmuş. onları düzelttim ve çalıştı

 

[S.Yiğit]

Formülde ; noktalı virgül yerine , virgül yaparak dener misiniz?