Diğer sayfadaki veriyi çağırmak

[doritos2]

Arkadaşlar Merhaba,

Aşağıdaki resimde sorunumu anlatmaya çalıştım umarım başarabilirim.

Stok takip sayfasına stok kodu ve malzeme cinsini tanıtıyorum.
Depo giriş sayfasında ise stok kodunu girdiğimde otomatik olarak malzeme cinsinin gelmesini istiyorum. Düşeyara kodunu muhtemelen yanlış yazıyorum fakat aynı mantıkta başka bir excelde bir işlem yaptığımda çalışıyor.

Bu konuda yardımcı olabilirseniz çok sevinirim.

Şimdiden teşekkür ederim.

 

[kiziloguz]

Aşağıdaki kodu Depogiriş D4 hücresine yapıştırırsan işini görecektir.

İyi Çalışmalar,

=EĞER(C4="";"";(DÜŞEYARA(C4;StokTakip!B4:D83;2;0)))

 

[vardar07]

Sizdeki formul
=DÜŞEYARA(C4;StokTakip!B4:B24;2)
Olması gereken.
=DÜŞEYARA(C4;StokTakip!B4:C24;2)

 

[tahsinanarat]

Kodlarla yapmak isterseniz, Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
Set s1 = Sheets("StokTakip")
If Target.Column = 3 Then
sat = s1.[B2:B65536].Find(Target).Row
Cells(Target.Row, "d") = s1.Cells(sat, "c")
Cells(Target.Row, "e") = s1.Cells(sat, "e")
Target.Offset(0, 3).Select
End If
End Sub

 

[doritos2]

Hepinize çok teşekkür ederim ilgi ve alakanız için.
kiziloguz'un yazdığı kodu kopyalıyınca oldu.Vardar07'ninkide oldu.tahsinanarat'ın yazdığını uygulamam için biraz daha zaman var

Şimdi şu sorunla karşılaşıyorum. Ben formülü aşağıdaki hücrelere tutup süreklediğimde

=EĞER(C4="";"";(DÜŞEYARA(C4;StokTakip!B483;2;0)))


=EĞER(C4="";"";(DÜŞEYARA(C4;StokTakip!B583;2;0)))

şeklinde ilerliyor. ve doğal olarak malzeme cinsleri gelmiyor yada yanlış geliyor.
Bunun önüne nasıl geçebilirim ?

Aşağıdaki kodu Depogiriş D4 hücresine yapıştırırsan işini görecektir.

İyi Çalışmalar,

=EĞER(C4="";"";(DÜŞEYARA(C4;StokTakip!B4:D83;2;0)))

 

[tahsinanarat]

Bu şekilde deneyin

=EĞER(C4="";"";(DÜŞEYARA(C4;StokTakip!$B$4:$D$83;2;0)))

 

[doritos2]

Çok teşekkür ederim hocam. İşe yaradı. Emeğinize sağlık