نقل أو ترحيل بيانات محددة من شيت الى شيت اخر

[محمد لؤي]

السلام عليكم اعزكم الله

نقل بيانات من شيت اعتمادية3 الى شيت تسهيل مهمة

البيانات المحددة باللون الاصفر فقط

جزيتم خير - الموضوع في غاية الاهمية وانتم والنعم منكم سباقون الى الحل والى الخير وتقديم المساعدة

نقل بيانات معينة.rar

[ابراهيم الحداد]

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

الصق هذا الكود فى موديول جديد وخصص له زر

Sub Tarhil()
For R = 2 To 200
If Cells(R, 2) = Sheet3.Cells(R, 6) Then
Cells(R, 9) = Sheet3.Cells(R, 2)
Cells(R, 10) = Sheet3.Cells(R, 4)
Cells(R, 11) = Sheet3.Cells(R, 5)
Cells(R, 12) = Sheet3.Cells(R, 8)
End If
Next
End Sub

 

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

السلام عليكم

هذا ايضا كود آخر يقوم بنفس المهمة

 

Sub iCOPY()

Application.ScreenUpdating = False
        Dim Rng As Range, _
        shs As Worksheet, shd As Worksheet, _
        LastS As Integer, LastD As Integer
        
        Set shs = Sheets("اعتمادية3"): Set shd = Sheets("تسهيل مهمة")
    LastS = shs.Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To LastS
        Set Rng = Union(shs.Range("B2:B" & i), _
            shs.Range("D2:D" & i), shs.Range("E2:E" & i), shs.Range("H2:H" & i))
                Rng.Copy
            Next
        shd.Range("I" & shd.Cells(Rows.Count, 9).End(xlUp).Row + 1).PasteSpecial xlPasteValues
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Êã äÞá  " & Rng.Rows.Count & "  ÕÝæÝ Çáì æÑÞÉ ÊÓåá ãåãÉ", vbInformation + vbMsgBoxRight, "ÊÑÍíá"


End Sub

 

[محمد لؤي]

السلام عليكم - جزيتم خيرا

ظهور رسالة عند الضغط على زر الترحيل

وملاحظة مهمة وهي : البيانات تأتينا  غير مرتبة ( مرة رقم السيارة القديم في شيت تسهيل مهمة يأتي بالتسلسل (3) ويأتي في شيت اعتمادية3 بالتسلسل (5)

فيجب وضع شرط على اساس رقم السيارة القديم وكما موضح بالملف في شيت تسهيل مهمة

 

 

 

نقل بيانات معينة11.rar

تم تعديل أكتوبر 1, 2016 بواسطه محمد لؤي

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

نقل بيانات معينة.rar

Sans titre.rar

في سؤالك الأول لم توضح أي شرط

[محمد لؤي]

السلام عليكم

صحيح لم اوضح (اعتذر)

ممكن عمل الشرط على اساس رقم السيارة _ جزيت خيرا