Excel Veriyi Sağındaki Bilgilerle Getirmek

[_CoNqU3RoR_]

Merhaba, data ve çağır adında 2 sayfamız var. Data sayfasına satır satır barkod ,ürün kodu ve ürün açıklamaları var ve o veriler sabit kalacak daha sonra yeni gelen ürünlere göre ekleme yapılacak. Çağır sayfasından ise ürünün barkodu okuyucu ile okutularak yazdırılacak sistem otomatik yazdırılan barkodun karşılığındaki ürün kodunu ve açıklamasını getirecek.

Bu işlemi yapma konusunda arkadaşlar yardımınızı bekliyorum. Aşağıdaki linkten örnek uygulamaya bakabilirsiniz.

http://s9.dosya.tc/server2/xtoan9/Veri.xlsx.html

 

[_CoNqU3RoR_]

Arkadaşlar bir fikri olan yok mu aranızda. En azından hangi formül ile yapabilirim fikir verseniz çok memnun olurum.

 

[vardar07]

ÇAĞIR sayfası kod bölümüne ekleyin.A sütununa veri girince çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
Set sd = Sheets("DATA")
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
aranan = Target
Set bul = sd.Range("A:A").Find(aranan, , xlValues, xlWhole)
If Not bul Is Nothing Then
a = Target.Row
b = bul.Row
Cells(a, 2) = sd.Cells(b, 2)
Cells(a, 3) = sd.Cells(b, 3)
End If
End Sub

 

[_CoNqU3RoR_]

ÇAĞIR sayfası kod bölümüne ekleyin.A sütununa veri girince çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
Set sd = Sheets("DATA")
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
aranan = Target
Set bul = sd.Range("A:A").Find(aranan, , xlValues, xlWhole)
If Not bul Is Nothing Then
a = Target.Row
b = bul.Row
Cells(a, 2) = sd.Cells(b, 2)
Cells(a, 3) = sd.Cells(b, 3)
End If
End Sub

Çok güzel oldu teşekkür ederim yardımın için. Bunun formulle yapılma imkanı yok mudur? vb bilgim hiç yok. Eğer formule dayalı bir yöntem varsa söylerseniz çok makbule geçer.

 

[baydeniro]

Teşekkürler paylaşım için.

 

[vardar07]

Çok güzel oldu teşekkür ederim yardımın için. Bunun formulle yapılma imkanı yok mudur? vb bilgim hiç yok. Eğer formule dayalı bir yöntem varsa söylerseniz çok makbule geçer.

Formül ile de yapabilirsiniz. Lakin veri sayısı arttıkça veri alış verişi zorlaşacak dosya boyutu yükselecek. İllaki formül derseniz düşey ara formülü ile yapabilirsiniz. B2hücresine:

=DÜŞEYARA($A2;DATA!$A:$C;2)

C2 hücresine

=DÜŞEYARA($A2;DATA!$A:$C;3)

yazarak aşağı doğru çoğaltabilirsiniz.

 

[_CoNqU3RoR_]

Formül ile de yapabilirsiniz. Lakin veri sayısı arttıkça veri alış verişi zorlaşacak dosya boyutu yükselecek. İllaki formül derseniz düşey ara formülü ile yapabilirsiniz. B2hücresine:

=DÜŞEYARA($A2;DATA!$A:$C;2)

C2 hücresine

=DÜŞEYARA($A2;DATA!$A:$C;3)

yazarak aşağı doğru çoğaltabilirsiniz.

Çok teşekkürler bilgi için. Sanıyorum hız ve veri trafiği açısından formül tercih edilmiyor. En azından küçük işler için bu formülden yararlanabilirim. Çok sağolun.