مساعدة فى جلب بيانات صفوف بناءً على شرطين

[MMElmasry]

السلام عليكم ورحمة الله

 

طالب مساعدة فى :

1- جلب بيانات صفوف من Sheet اسمه مدرج فى خليه شيت أخر وهذا الشرط الأول والبيانات يتم جلبها بناءً على شرط أخر وهو رقم الفاتورة

ملحوظة : اسم الشيت و خلية الفاتورة قيمتهم متغيرة بتغير و اذدياد عدد الشيتات والفواتير

صورة مدرجة لشرح المطلوب و  ملف العمل

ارجو المساعدة العاجلة وأكون شاكر 

Elmasry1.xlsm

[أبوأحـمـد]

وعليكم السلام

هذا الموضوع يمكن يفيدك

 

[احمدزمان]

السلام عليكم و رحمة الله

جرب المرفق 

 

Sub Import_Invoice()
Dim FS As Worksheet, TS As Worksheet
Dim FR, TR, Q1, Q2, Q3
Set TS = Sheets("Invoice1")
Q1 = TS.Range("A9")
Q2 = TS.Range("F4")
TR = 15
Set FS = Sheets(Q1)
For FR = 6 To 333
If FS.Cells(FR, 3) = Q2 Then
TR = TR + 1
TS.Cells(TR, 1) = FS.Cells(FR, 2)
TS.Cells(TR, 3) = FS.Cells(FR, 4)
TS.Cells(TR, 4) = FS.Cells(FR, 5)
TS.Cells(TR, 5) = FS.Cells(FR, 6)
TS.Cells(TR, 6) = FS.Cells(FR, 4)
End If
Next
MsgBox "ÇáÍãÏááå" & "  " & Q1 & "  " & Q2, , "Êã"
End Sub

 

AZ_المسري1.xls

[MMElmasry]

وعليكم السلام

كتر الف خيرك على تعبك ا/ احمد زمان و مساعدتك وكود جميل ومنظم 

التعديل اللى عملته بس TR = 14

[احمدزمان]

آمين واياك

تعديل ممتاز و في مكانه