ضبط كود ترحيل البيانات من صفحة الفاتورة الى صفحة أخرى

[marwa41]

يجب عليك توضيح المطلوب بكل دقة بلغة ومسميات الإكســيل.... كما ترى

عمل كود ترحيل فاتورة من صفحة INV الى صفحة  SLS وذلك بمديول اسمه essa , أريد التعديل عليه بحيث

 عند ترحيل الفاتورة لايتم ترحيل البيانات كلها فأريد ترحيل جزء الاصناف فقط 

جديد محمد مسموع_2.xlsm

ضبط الكود على ترحيل البيانات فقط لا اريد بيانات فى المبيعات ظللتها باللون الاصفر وعدم تكرارها

[Ali Mohamed Ali]

يمكنك استخدام هذا الكود -فقد تم ضبط الملف و عمل قائمة منسدلة ديناميكية وبدون فراغات لأسماء العملاء ... كما تم ادخال معادلة أيضاً لمعرفة طبيعة كل صنف هل بالكيلو ام بالحبة

Sub TARHEEL()
If IsEmpty(Cells(5, 2)) Then
 MsgBox "يــرجــى إدخــال رقــم الفــاتــورة"
Exit Sub
End If
Dim R As Integer
Dim xNewR As Integer
For R = 14 To 23
If IsEmpty(Cells(R, 2)) Then Exit Sub
xNewR = Sheets("SLS").Cells(1, 1).CurrentRegion.Rows.Count + 1
Sheets("SLS").Cells(xNewR, 1) = Cells(5, 2)
Sheets("SLS").Cells(xNewR, 2) = Cells(5, 6)
Sheets("SLS").Cells(xNewR, 3) = Cells(7, 3)
Sheets("SLS").Cells(xNewR, 4) = Cells(8, 3)
Sheets("SLS").Cells(xNewR, 5) = Cells(R, 1)
Sheets("SLS").Cells(xNewR, 6) = Cells(R, 2)
Sheets("SLS").Cells(xNewR, 7) = Cells(R, 3)
Sheets("SLS").Cells(xNewR, 8) = Cells(R, 4)
Sheets("SLS").Cells(xNewR, 9) = Cells(R, 5)
Sheets("SLS").Cells(xNewR, 10) = Cells(R, 6)
Cells(R, 2) = ""
Cells(R, 4) = ""
Cells(R, 5) = ""
Next
Do
Loop
Cells(5, 2) = ""
End Sub

كود ترحيل الفاتورة.xlsm