Sicili Otomatik yazsın

[beykatip]

Ekte gönderdiğim dosyamın sayfa2 C sütununa ad tanımla ile isimleri liste sayfasından ekledim ancak Sayfa 2 C sütunundan isim seçincesi Liste Sayfasının D sütunundan kişinin sicil numarasının Sayfa2 B sütununa yazsın istiyorum

 

[Huseyinkis]

Ekte gönderdiğim dosyamın sayfa2 C sütununa ad tanımla ile isimleri liste sayfasından ekledim ancak Sayfa 2 C sütunundan isim seçincesi Liste Sayfasının D sütunundan kişinin sicil numarasının Sayfa2 B sütununa yazsın istiyorum

ekteki formulu b11 hücresine yapıştırıp aşağı doğru çekin.

=EĞER(C11="";"";DÜŞEYARA(C11;Liste!$B$2:$D$1006;3;0))

 

[halit3]

Ekte gönderdiğim dosyamın sayfa2 C sütununa ad tanımla ile isimleri liste sayfasından ekledim ancak Sayfa 2 C sütunundan isim seçincesi Liste Sayfasının D sütunundan kişinin sicil numarasının Sayfa2 B sütununa yazsın istiyorum

Alternatif kod
sayfa2 nin modülüne koyun

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c:c")) Is Nothing Then Exit Sub
With Worksheets("Liste").Range("b:b")
Set d = .Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not d Is Nothing Then
FirstAddress = d.Address
Do
Worksheets("Sayfa2").Cells(Target.Row, 2).Value = Worksheets("Liste").Cells(d.Row, 3).Value
Exit Sub
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End With
End Sub

 

[beykatip]

Hüseyinkış ve halit3 bey her ikinizin cevabınıda aldım çok teşekkür ederim