Yazılan Değere Ait Tüm Kayıtları Listeleme

[muhoa]

Arkadaşlar Merhaba

Sayfa1'de sipariş numaralarım ve bunlara ait barkod numaralarım var. Sayfa2'de sipariş numarasını yazdığımda Sayfa1'de bu sipariş numarasına ait tüm barkodları Sayfa2'de listelemek istiyorum. Düşeyara denedim ancak sadece ilk kaydı buluyor. Nasıl yapabilirim?

 

[sakman26]

selam
eki inceleyiniz.
kolay gelsin..

 

[Erdem Akdemir]

Merhaba makro ile yapmak isterseniz,

Sayfa2 olaylarına kodu yapıştırın, b3 hücresi değiştikçe kayıtlar güncellenecektir.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) <> "B3" Then Exit Sub
Range("c3:c1000000").Clear
Set con = VBA.CreateObject("adodb.Connection")
Set rs = VBA.CreateObject("adodb.Recordset")

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

sorgu = "select BARKODNO from [sayfa1$]  where SIPNO='" & Target.Value & "' "
rs.Open sorgu, con, 1, 1
Range("c3").CopyFromRecordset rs

End Sub

 

[Erdem Akdemir]

Formül için alternatif,c3 hücresine yapıştırın.

=EĞERHATA(İNDİS(Sayfa1!$B$1:$B$704;TOPLAMA(15;6;(SATIR($1:$704)/(Sayfa1!$A$1:$A$704=$B$3));SATIR(A1)));"")

 

[muhoa]

Sayın sakman26 ve kuvari

Yardımlarınız için çok teşekkür ederim. Uyguladım, iyi çalışmalar