Başka bir çalışma sayfasından kod karşılığı metin ?

[sofuayyas]

Merhabalar.

Forumda ve internette aradım ama bulamadım.

Bir sütuna rakam girdiğimde başka bir çalışma sayfasından girilen rakamın bulunduğu kutucuğun yanındaki kutucukta yazan metini ilk sayfadaki kutucuğa nasıl eklenmesini sağlarız. Bilmem anlatabildim mi :???::redface:

Örneğin;
Çalışma sayfası 1;
[1][ABC]
[2][DEF]
[3][XYZ]
Çalışma sayfası 2;'ye belirlenmiş sütunda bir kutucuğa 3 yazdığımda yanındaki kutucuğa XYZ gelsin.



Şimdiden teşekkürler...

 

[YUSUF44]

Aşağıdaki kodları Çalışma sayfası 2 isimli sayfanın kod bölümüne yapıştırırsanız, Çalışma sayfası 2 isimli sayfanın A1:A100 hücrelerine yazdığınız veri eğer Çalışma sayfası 1 isimli sayfanın A1:A100 aralığında varsa, karşısındaki veriyi Çalışma sayfası 2 isimli sayfanın B sütununa getirir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Sheets("Çalışma sayfası 1").[A1:B100], Target) > 0 Then
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, Sheets("Çalışma sayfası 1").[A1:B100], 2, 0)
End If
End Sub