Hücrenin karşısındaki veriyi getirme

[ASLAN7410]

Merhaba, hayırlı Cumalar.

Ekte gönderdiğim excel dosyamın Sayfa2'de B sütununda şahısların sicilleri ve C sütununda adresleri mevcut.

Yapmak istediğim Sayfa1'de B sütununda şahısların sicillerini yazdığım zaman C sütununa Sayfa2'de C sütunundaki ev adreslerinin gelmesini istiyorum.
Düşeyara formülü ile bilgileri getiriyorum, ama bu seferde şahsın ev adresi değişince, önceki verilerde değişiyor.

Yardımcı olur musunuz?

 

[Orion1]

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, sh As Worksheet
If Not Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then
    Set sh = Sheets("Sayfa2")
    Set k = sh.Range("B:B").Find(Target.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then Target.Offset(0, 1).Value = k.Offset(0, 1).Value

End If
End Sub

 

[Ahmet ÖZGÜR]

Mehaba,

Sayfa1 C1 hücresini ekleyip deneyiniz

=DÜŞEYARA(B1;Sayfa2!B1:C1;2;)

 

[ASLAN7410]

Sayın Evren Bey, ilginiz için çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Veriyi bulamadığı zamanda Aradığınız yok diye bir mesaj verebilir mi?

 

[ASLAN7410]

Sayın Ahmet Bey, sizin de ilginiz için çok teşekkür ediyorum.

Çözümü makro ile istemiştim.

 

[Orion1]

Sayın Evren Bey, ilginiz için çok teşekkür ediyorum, tam istediğim gibi çalışıyor.

Veriyi bulamadığı zamanda Aradığınız yok diye bir mesaj verebilir mi?

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, sh As Worksheet
If Not Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then
    Set sh = Sheets("Sayfa2")
    Set k = sh.Range("B:B").Find(Target.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Target.Offset(0, 1).Value = k.Offset(0, 1).Value
    Else
        MsgBox "aradığınız veri yok!", vbCritical, "UYARI"
    End If
End If
End Sub

 

[ASLAN7410]

Sayın Evren Bey, ellerinize sağlık, tam istediğim gibi oldu, Allah (C.C.) razı olsun.

Hayırlı günler diliyorum.

 

[Orion1]

İyi günler.