بـرجـاء المساعـدة فـى عمليـه الترحيـل

[أبــو حبيبـــة]

السـلام عليكم

1 - برجاء المساعدة فى ترحيل كل لون مشابه بالشيت رقم واحد الى العمود المشابه له فى شيت الشاشه 3003 مع الاخذ فى الاعتبار إنه يتم الترحيل بناء على رقم البند فقط وليس العنوان كما هو موضح بالمثال المرفق بند رقم (1 )
2 - ترحيل المواصفة بالعمود باللون الازرق حتى اذا كانت تتكون من عدة اسطر كما هو موضح بالمثال المرفق بند رقم(2)
3 - عند انتهاء الجدول بالشيت الاول يتم الترحيل من الشيت الثانى ثم الثالث و هكذا

و جـزاكـــم الله خيـــرا

1.rar

تم تعديل أبريل 24, 2014 بواسطه أبــو حبيبـــة

[شوقي ربيع]

السلام عليكم

Sub test()
Dim Wsh As Worksheet, Wsh2 As Worksheet
Dim Lrw As Long, Lr As Long
Dim i As Integer, ii As Integer, iii As Integer

Set Wsh2 = ThisWorkbook.Sheets("شاشة 3003")
    For i = 1 To Worksheets.Count
    If Worksheets(i).Name <> Wsh2.Name Then Set Wsh = Worksheets(i) Else GoTo 1
        Lrw = Wsh.Cells(Wsh.Rows.Count, "P").End(xlUp).Row
        For ii = 11 To Lrw
            If Wsh.Range("T" & ii) <> "" Then
                Lr = Wsh2.Cells(Wsh2.Rows.Count, "C").End(xlUp).Row + 1
                Wsh2.Range("A" & Lr) = Wsh.Range("T" & ii)
                Wsh2.Range("B" & Lr) = Wsh.Range("R" & ii)
                Wsh2.Range("F" & Lr) = Wsh.Range("F" & ii)
                Wsh2.Range("C" & Lr) = Wsh.Range("P" & ii)
                
                For iii = 1 To 5
                If Wsh.Range("T" & ii + iii) = "" Then Wsh2.Range("C" & Lr + iii) = Wsh.Range("P" & ii + iii) Else GoTo 2
                Next iii
            End If
2   Next ii
1 Next i
End Sub

Rabie Chaouki.rar

[أبــو حبيبـــة]

السـلام عليكــم استـاذ / شــوقـى

اشكر لك حسن الاهتمام و الحلول الرائع و اسف عن طول فترة الرد للانشغال

و تكمله لهذا الموضوع

1 - برجاء توضيح الخطوات المتبعة لعمل زرار " نفذ "

2 - على فرض انه تم الترحيل للشاشه 3003 و حدث تعديل فى البيانات الاصليه بعد ذلك . عند الضغط  على زر " نفذ " مرة اخرى يتم الترحيل فى الصفوف التاليه و ليس الترحيل على نفس الصفوف , فهل من حل لهذا

و اشكر لك سعه صدرك و جزاك الله خيرا

[أبــو حبيبـــة]

السـلام عليكــم استـاذ / شــوقـى

اشكر لك حسن الاهتمام و الحلول الرائع و اسف عن طول فترة الرد للانشغال

و تكمله لهذا الموضوع

1 - برجاء توضيح الخطوات المتبعة لعمل زرار " نفذ "

2 - على فرض انه تم الترحيل للشاشه 3003 و حدث تعديل فى البيانات الاصليه بعد ذلك . عند الضغط  على زر " نفذ " مرة اخرى يتم الترحيل فى الصفوف التاليه و ليس الترحيل على نفس الصفوف , فهل من حل لهذا

و اشكر لك سعه صدرك و جزاك الله خيرا