Vlookup ile gelişmiş veri arama

[sldrkyurdal]

Sub ara()
Dim s1 As Worksheet, s2 As Worksheet, veri As Variant
Set s1 = Sheets("Sheet1")
Set s2 = Sheets(sheer2")
On Error Resume Next
For x = 1 To s1.Cells(Rows.Count, 1).End(xlUp).Row
Err.Clear
If s1.Cells(x, 10) <> " " Then
veri = Application.WorksheetFunction.VLookup(s1.Cells(x, 7), s2.Range("a:b"), 2, 0)
If Err.Number = 0 Then
s1.Cells(x, 11) = "Tamam"
Else
s1.Cells(x, 11) = "kontrol edilecek "
End If
End If
Next
Set s1 = Nothing
Set s2 = Nothin
End


Merhaba makro ile vlookup karşılaştırması yapmak istiyorum kodum da yukarıdaki sayfa 1 de bakacak sayfa 2 den getircek veri uzunlukları aynı olmadığı için bazılarını getirmiyor bu koda ilk 10 harfi uyuşuyorsa bile gelsin komutu ekleyebilir miyiz
Teşekkürler

 

[Orion1]

VBA nın find komutunu deneyiniz.
Forumda find diye ararsanız bir çok kod bulabilirsiniz.

 

[sldrkyurdal]

VBA nın find komutunu deneyiniz.
Forumda find diye ararsanız bir çok kod bulabilirsiniz.

Teşekkürler.