Başka Sayfadan Veri Alma

[vitamin]

Arkadaşlar iyi çalışmalar.

Ek'te sunduğum dosyada, başka bir çalışma sayfasından, Müşteri koduna göre veri almakla ilgili bir sorum olacak.

İlginizi rica ediyorum.

Saygı ve Teşekkürler...

 

[vitamin]

Dosya Ek'tedir.

 

[N.Ziya Hiçdurmaz]

sayfa1 in kod bölümüne yapıştırınız.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b2:b6]) Is Nothing Then Exit Sub
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For Each bak1 In s1.Range("b2:b6")
For Each bak2 In s2.Range("b2:b6")
If bak1 = bak2 Then
bak1.Offset(0, 2) = bak2.Offset(0, 1).Value
End If
Next
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki formülüde kullanabilirsiniz.

=EĞER(EYOKSA(DÜŞEYARA(A2;Sayfa2!A:C;3;0));"";DÜŞEYARA(A2;Sayfa2!A:C;3;0))

 

[vitamin]

Çok teşekkür ediyorum ilginize...