تکمیل یک جستجو با استفاده از vba

[khorasan66]

با سلام
در فایل پیوست دو شیت داریم که در شیت دوم مشخصات کالاها وجود دارد
در شیت اول فقط کد کالا داریم می خواهم فقط با استفاده از vba نام کالا و فی آن از شیت دوم استخراج و در شیت اول درج گردد .
با استفاده از فرمول در ردیف اول نمایش داده می شود لذا نیاز دارم با استفاده از کد های vba این جستجو انجام شود
اگر دستور هایی که در ماکرو نوشته شده است را تکمیل و تصحیح فرمایید ممنون می شوم

[iranweld]

با سلام


کد ذیل را تست کنید

Sub FIND_KALA()

z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

z2 = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

For i = 2 To z1
For j = 2 To z2

If Sheet1.Range("b" & i) = Sheet2.Range("A" & j) Then

Sheet1.Range("c" & i) = Sheet2.Range("B" & j)
Sheet1.Range("d" & i) = Sheet2.Range("c" & j)

Exit For

End If

Next: Next

     
End Sub