نقل بعض الحقول من ورقة إلى أخرى

[Alsalim1]

مرحبا شباب

كيف يمكن أن أنقل بعض الحقول من ورقة عمل بها حقول كثيرة إلى ورقة أخرى هل يوجد طريقة لإختيار بعض الحقول من الورقة الأولى مرفق مثال 

على سبيل المثال بغيت أنقل حقل الرقم الوظيفي والراتب الأساسي ومساهمة التأمين فقط إلى الورقة الثانية

نقل بعض البيانات في ورقة أخرى.rar

[ياسر خليل أبو البراء]

Sub Test()
    Dim arr     As Variant
    Dim i       As Variant
    Dim j       As Long
    
    arr = Sheets("Sheet1").Range("A1").CurrentRegion.Value
    
    For Each i In Array(2, 7, 11)
        j = j + 1
        Sheets("Sheet2").Cells(1, j).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i)
    Next i
End Sub

 

[محمد أبو العنين]

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

ممكن شرح الكود

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

 

[ياسر خليل أبو البراء]

جزاك الله خيراً أخي محمد

ننتظر لحين إتمام الأمر لربما يكون هناك تعديلات مطلوبة ، بعدها يمكن الشروع في شرح الكود إن شاء الله

[Alsalim1]

22 ساعات مضت, ياسر خليل أبو البراء said:

Sub Test()
    Dim arr     As Variant
    Dim i       As Variant
    Dim j       As Long
    
    arr = Sheets("Sheet1").Range("A1").CurrentRegion.Value
    
    For Each i In Array(2, 7, 11)
        j = j + 1
        Sheets("Sheet2").Cells(1, j).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i)
    Next i
End Sub

 

بارك الله تعالى فيك استاذ هو المطلوب

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات ..هذا من فضل ربي

[alshahid]

بسم الله ماشاء الله ... استفدت كثيرا ... جهود تذكر فتشكر ...