hücreye yazdığımda farklı bir değer

[serkanyesill]

merhaba arkadaşlar,

sayfa 2 de bir hücreye bir emekli sicili yazıyorum, sayfa 1 e gidip oradan kurum sicilini bulup emekli sicili yazdığım hücreye kurum sicilini yazdırabilirmiyim ? karışık olmadı umarım...

bu peşi sıra aşağıya doğru tüm hücreler için geçerli...

örnek dosyam ekledir.

 

[Necdet]

Merhaba,

Sayfa2 nin kod bölümüne aşağıdaki kodları kopyalanız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Set s1 = Sheets("Sayfa1")
Sat = 0
Sat = s1.[a1:a65536].Find(Target.Value).Row
If Sat > 0 Then
    Target.Value = s1.Cells(Sat, "B")
    Target.NumberFormat = 0
End If
Son:
End Sub

 

[mami68]

Kardeş bu işini görürmü?

 

[serkanyesill]

arkadaşlar istediğim bunlar değil,sayfa 2 de e3 hücresine emekli sicilini yazıp enterlediğimde e3 hücresine kurum sicili yazsın....

 

[serkanyesill]

arkadaşlar istediğim bunlar değil,sayfa 2 de e3 hücresine emekli sicilini yazıp enterlediğimde e3 hücresine kurum sicili yazsın....

dosyayı yeniden ekledim...

resimle anlatmak istersem;

[img=http://img228.imageshack.us/img228/6933/sayfa1ap3.th.jpg]

[img=http://img255.imageshack.us/img255/678/sayfa2fs9.th.jpg]

 

[Necdet]

arkadaşlar istediğim bunlar değil,sayfa 2 de e3 hücresine emekli sicilini yazıp enterlediğimde e3 hücresine kurum sicili yazsın....

Sorunuzu yanıtladım ama anlamamışsınız. Dosyayı ekleyim bari.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
Set s1 = Sheets("Sayfa1")
Sat = 0
Sat = s1.[a1:a65536].Find(Target.Value).Row
If Sat > 0 Then
    Target.Value = s1.Cells(Sat, "B")
    Target.NumberFormat = 0
End If
Son:
End Sub