Liste karşılaştır veri aktar.

[vardar07]

Sayfa1 deki ürünlerin fiyatlarını Sayfa2 "A" Sütundaki ürün adlarını Sayfa1 "A" Sütununda bulup "B"sütununa getirmek için mantık kuramadım.

 

[Saban Sertkaya]

Alternatif link alabilir miyiz ?

 

[Saban Sertkaya]

Veya örneği inceleyiniz.

Link : http://s8.dosya.tc/server2/qe3s6m/Bul.rar.html

 

[vardar07]

Veya örneği inceleyiniz.

Emeğiniz için teşekkürler. Lakin Sayfa2 deki veriler de ürün adları resimdeki gibi farklılık gösteriyor. Diğer türlü olsa dediğiniz gibi olur.

 

[asi_kral]

Merhaba
Kodunuzu bununla değiştirip dener misiniz ?
Umarım istediğiniz gibi olmuştur.

Option Explicit
Sub getir()
Dim S1 As Worksheet, S2 As Worksheet, STR As Long
Dim BUL As Range, SBT As Variant
Set S1 = Sheets("Sayfa1"): Set S2 = Sheets("Sayfa2")
For STR = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
Set BUL = S2.Range("A:A").Find(S1.Cells(STR, "A"), , xlFormulas, xlPart)
If Not BUL Is Nothing Then
SBT = BUL.Address
Do
S2.Cells(BUL.Row, "B") = S1.Cells(STR, "B")
Set BUL = S2.Range("A:A").FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> SBT
End If
Next
End Sub

 

[vardar07]

Çok teşekkürler elinize beyninize sağlık.

 

[asi_kral]

Çok teşekkürler elinize beyninize sağlık.

Kolay Gelsin.