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

محمد لؤي · أكتوبر 1, 2016

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

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

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

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

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

**ابراهيم الحداد** · أكتوبر 1, 2016

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

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

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

**أبو حنــــين** · أكتوبر 1, 2016

السلام عليكم

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

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