ارجو المساعده مع كود الترحيل

[eltelt]

ارجو المساعده مع كود الترحيل هذا اريد نقل البيانات من الفاتوره  invoice الي الجدول في شيت list بالترتيب و يقوم بالانتقال الي الصفحه التاليه للتسجيل بين الصفحات كلما اكتملت صفحه و جزاكم الله خيرا مع الشرح 

رنين منتفعين.xlsm

[احمدزمان]

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

اخي الفاضل

نحن في هذه الحالة يجب ان نحدد قيمة الصف الهدف بحسب الشروط الموجودة امامنا في ورقة list

كما يلي

نبدء من الصف رقم 1 الى اخر الورقة

وتكون الشروط هي

اذاكانت قيمة الخلية A لا تساوي فراغ و القيمة الموجودة في الخلية A رقم اكبر من الصفر و الخلية B فارغة لا يوجد بها اي قيمة

اذا هذا هو الصف المطلوب

===========

تمام كدة

 

[احمدزمان]

Sub MoveData()
Dim EndRow As Long
Dim TR, TR1
If Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("F8").Value = "" Or Sheets("Invoice").Range("B11").Value = "" Or Sheets("Invoice").Range("B13").Value = "" Then
MsgBox prompt:="ÊÃßÏ ãä ÅÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ"
Else
For TR1 = 1 To 9999
If Sheets("List").Cells(TR1, 1) <> "" _
And Val(Sheets("List").Cells(TR1, 1)) > 0 _
And Sheets("List").Cells(TR1, 2) = "" Then
TR = TR1
GoTo 7
End If
Next
7

Sheets("List").Cells(TR, 2).Value = Sheets("Invoice").Range("B8").Value
Sheets("List").Cells(TR, 3).Value = Sheets("Invoice").Range("F8").Value
Sheets("List").Cells(TR, 4).Value = Sheets("Invoice").Range("B11").Value
Sheets("List").Cells(TR, 5).Value = Sheets("Invoice").Range("B13").Value
Sheets("List").Cells(TR, 6).Value = Sheets("Invoice").Range("F13").Value
Sheets("Invoice").Range("B8,F8,B11,B13,F13").ClearContents
MsgBox prompt:="Êã ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ"
End If

End Sub

 

[eltelt]

اخي الفاضل أ/ احمد 

السلام عليكم 

اولا احب اشكر حضرتك علي اهتمامك و سرعه ردك 

ثانيا للاسف الكود اللي حضرتك ادخلته تعديل علي الكود الاصلي لم يقم بتغير اي شيئ مازال يتم الترحيل في الخانات الفارغه خارج الجدول المستهدف

جزاك الله خيرا

[احمدزمان]

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

اخي الفاضل

انا جربت الملف وشغال حسب ما فهمت

بدأ الكتابة من الصف 6 الى الصف 42

ثم بعد ذلك بدأ الكتابةمن صف 56

كما في المرفق

 

رنين منتفعين.xls

[Ali Mohamed Ali]

بارك الله فيك استاذ أحمد

الكود فعلا انا جربته يعمل تمام جدا

جعله الله فى ميزان حسناتك وجزاك الله كل خير وعود حميدا وحشتنا

[احمدزمان]

وجزاك الله خيرا اخي علي

وبارك الله فيك

و شكرا لك على كلماتك الرقيقة

 

[eltelt]

بارك الله فيك اخي الكريم 

جزاء الله خيرا 

الكود شغال تمام

بس كن محتاج اضيف كود طباعه كمان مع الكود ده بنفس ضغطه الزر