Sicil no

[mars2]

İyi Günler;
Çalışma kitabımın 1 sayfasında A sutununda mükellefin adı, B sutununda sicil noları bulunmaktadır.
çalışma sayfasının 2. sayfasında A1 hücresine mükellefin adını yazdığımda, A2 hücresine mükellefin sicil nosunu veren makra nedir.
Teşekkürler.

 

[udentr2002]

ekli dosyayı inceleyiniz

 

[mars2]

Sayın udentr2002;
Cevabınız için teşekkürler,
Bunu makro ile yapamak mümkün değilmidir?

 

[udentr2002]

aşağıdaki kod ile aktif olan hücreye uygulayabilrsiniz istediğiniz böyle bir şeymi bilmiyorum ama ekli bir dosya koyarsanız en azından belki üstatlar daha açıklayıcı bir cevap verebilir

sadece seçili hücreye uygulayacaktır.

sub sicil ()
ActiveCell.FormulaR1C1 = "=INDEX(Sayfa1!C[-1],MATCH(RC[-2],Sayfa1!C[-2],0))"
End Sub

 

[Orion1]

Sayın udentr2002;
Cevabınız için teşekkürler,
Bunu makro ile yapamak mümkün değilmidir?

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Set k = Sheets("Sayfa1").Range("A1:A65536").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Range("B" & Target.Row).Value = Sheets("Sayfa1").Cells(k.Row, "B").Value
End If
End Sub

 

[mars2]

Cevaplarınız için teşekkürler tam istediğim gibi olmuş

 

[mars2]

Sayın Orion2;

Cevaplarınız için teşekkürler tam istediğim gibi olmuş, ancak kod sadece a1 hücresinde çalışmakta, liste ( a2.........a78........a65533)uzadığında da çalışması lazım. teşekkürler.

 

[Orion1]

Sayın Orion2;

Cevaplarınız için teşekkürler tam istediğim gibi olmuş, ancak kod sadece a1 hücresinde çalışmakta, liste ( a2.........a78........a65533)uzadığında da çalışması lazım. teşekkürler.

Dosyayı istediğiniz gibi değiştirdim.
5 numaralı mesajdan indirip deneyebilirsiniz.