Alsalim1 قام بنشر ديسمبر 21, 2016 مشاركة قام بنشر ديسمبر 21, 2016 مرحبا شباب كيف يمكن أن أنقل بعض الحقول من ورقة عمل بها حقول كثيرة إلى ورقة أخرى هل يوجد طريقة لإختيار بعض الحقول من الورقة الأولى مرفق مثال على سبيل المثال بغيت أنقل حقل الرقم الوظيفي والراتب الأساسي ومساهمة التأمين فقط إلى الورقة الثانية نقل بعض البيانات في ورقة أخرى.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 21, 2016 مشاركة قام بنشر ديسمبر 21, 2016 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 رابط هذا التعليق شارك More sharing options...
محمد أبو العنين قام بنشر ديسمبر 21, 2016 مشاركة قام بنشر ديسمبر 21, 2016 بارك الله فيك يا أبو البراء ممكن شرح الكود جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 21, 2016 مشاركة قام بنشر ديسمبر 21, 2016 جزاك الله خيراً أخي محمد ننتظر لحين إتمام الأمر لربما يكون هناك تعديلات مطلوبة ، بعدها يمكن الشروع في شرح الكود إن شاء الله رابط هذا التعليق شارك More sharing options...
Alsalim1 قام بنشر ديسمبر 22, 2016 الكاتب مشاركة قام بنشر ديسمبر 22, 2016 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 بارك الله تعالى فيك استاذ هو المطلوب رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 22, 2016 مشاركة قام بنشر ديسمبر 22, 2016 الحمد لله الذي بنعمته تتم الصالحات ..هذا من فضل ربي رابط هذا التعليق شارك More sharing options...
alshahid قام بنشر أبريل 25, 2017 مشاركة قام بنشر أبريل 25, 2017 بسم الله ماشاء الله ... استفدت كثيرا ... جهود تذكر فتشكر ... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.