veri karşılaştırma

[selcuk_c]

Arkadaşlar forumda aradığım dosyaya benzer bir kaç örnek buldum fakat benim istediğim 1.sheet teki listede bulunan yazıların karşısına 2.sheet teki yazılarla karşılaştırıp, 2 nci sheet te b sütününda yer alan değerleri karşılığına yazmaktır. Ama malesef 2 verim tam karşılaşmamaktadır. istediğim 2.sheet teki verinin mesela 5 karakteri aynıysa yanındaki veriyi 1.sheet teki karşılığının yanına yazmak. Örnek ektedir. mesela;; abcdefghıijkl ----- defghı ok..

yardımcı olan arkadaşlara teşekkürler,, iyi akşamlar

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub bul()
On Error Resume Next
For a = 1 To [sheet2!a65536].End(3).Row
aranan = "*" & Sheets(2).Cells(a, "a") & "*"
sat = WorksheetFunction.Match(aranan, [sheet1!a:a], 0)
Sheets("sheet2").Cells(a, "b") = Sheets("sheet1").Cells(sat, "a")
Next
End Sub

 

[selcuk_c]

yanlız aradığım bu diil di

örnek dosyada verdiğimden sadece,, aynı olmasalarda karşılaştırılan hücreler mesela ilk 5 karakter hariç diğerleri aynıysa aynı işlemi yine yap demek istiyordum teşekkürler ilginiz için.