انتقال داده ها با کدهای مشابه در اکسل

[savco]

با سلام
لطفا اساتید محترم در صورت امکان مشکل فایل پیوستی را ممنون میشم توضیحی بدهند . توضیح داخل فایل

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام
با ماکرو زیر موارد خواسته شده در شیت بعدی وارد میشود

Sub TEST1()

Y = Sheet15.Cells(Sheet15.Rows.Count, "B").End(xlUp).Row
Range("B7:C" & Y).Select
    Selection.ClearContents
    Range("B7:C7").Select
z = Sheet34.Cells(Sheet34.Rows.Count, "A").End(xlUp).Row
J = 7
For i = 6 To z
If Sheet15.Range("C1").Value = Sheet34.Range("B" & i).Value Then
Sheet15.Range("B" & J).Value = Sheet34.Range("F" & i).Value
J = J + 1
End If
Next i

End Sub 

[savco]

درود فراوان به استاد عزیز . ممنون

[savco]

سلام استاد شما لطف کردید جواب مشکل منو (invoice01) برام ارسال نمودید متاسفانه من نتونستم فرمولها را داخل فایل اصلی جایگزین کنم امکانش هست من فایل اصلی را براتون ارسال کنم شما مجددا زحمت اصلاحشو بکشید . قبلا از شما کمال تشکر و قدردانی را دارم