karışık olan verileri eşleştirmek

[martax410]

http://www.dosya.tc/server10/j0jazh/Kitap1.xlsx.html

 

[çıtır]

Aşağıdaki formülü Sayfa2 B3 kopyalayarak D3 e kadar sağa ve yeterinçe aşağı çekerek çoğaltınız.Kolay gelsin.

=EĞERHATA(DÜŞEYARA($A3;Sayfa1!$A$2:$D$2000;SÜTUN(B$1);0);"")

veya excel versiyonunuza göre

=EĞER(EHATALIYSA(DÜŞEYARA($A3;Sayfa1!$A$2:$D$2000;SÜTUN(B$1);0));"";DÜŞEYARA($A3;Sayfa1!$A$2:$D$2000;SÜTUN(B$1);0))

 

[TanerSaydam]

Çalışma kitabını makroyla uyumlu şekilde kaydet (97-2003 çalışma kitabı ya da makrolu çalışma kitabı). Sonrasında sayfa 2 deyken Alt+F11 yap ve aşağıdaki kodu yapıştır. Başka bir şey yapmana gerek yok. Eğer tablon tam olarak bu şekildeyse, her satır eklediğinde ya da değiştirdiğinde otomatik arama yapıp eşleşen satırları C-D'ye aktaracak

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim ilk As Integer, son As Integer
Dim S1_ilk As Integer, S1_son As Integer
Dim v As Integer, yer As Integer
On Error Resume Next
ilk = 3
son = Sayfa2.Range("A" & Rows.Count).End(xlUp).Row
S1_ilk = 3
S1_son = Sayfa1.Range("A" & Rows.Count).End(xlUp).Row

yer = ilk
For v = ilk To son
If Not Sayfa2.Range("C" & yer) = "" Then GoTo vatla
Sayfa2.Range("C" & yer).Value = Application.WorksheetFunction.VLookup(Sayfa2.Range("A" & yer).Value, Sayfa1.Range("A:D"), 3, 0)
Sayfa2.Range("D" & yer).Value = Application.WorksheetFunction.VLookup(Sayfa2.Range("A" & yer).Value, Sayfa1.Range("A:D"), 4, 0)
vatla:
yer = yer + 1
Next v
End Sub