Düşeyara işlevi ile tablo karşılaştırma

[quixotic79]

[url=http://hizliresim.com/GRZYM2][/URL]

 

[Orion1]

Dosyanız ektedir.
A2 hücresindeki formül;

DOSYAYI İNDİR

=EĞER(EHATALIYSA(KAYDIR($H$1;KAÇINCI($A2;$H$2:$H$20000;0);1));"";KAYDIR($H$1;KAÇINCI($A2;$H$2:$H$20000;0);1))

 

[quixotic79]

çok teşekkürler ilginize ama formül istemiyorum makro kodu lazım sebebi ise şu; bu adımdan önce bir makro kodu çalışıyor ve listeyi tamamen sıfırlıyor bu arada formülde siliniyor bu sebeptendir ki makro kodu lazım...

 

[Orion1]

çok teşekkürler ilginize ama formül istemiyorum makro kodu lazım sebebi ise şu; bu adımdan önce bir makro kodu çalışıyor ve listeyi tamamen sıfırlıyor bu arada formülde siliniyor bu sebeptendir ki makro kodu lazım...

Dosyanız linktedir.

DOSYAYI İNDİR

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.Offset(0, 1).Value = ""
Set k = Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then Target.Offset(0, 1).Value = k.Offset(0, 1).Value
End Sub