نقل اعمدة من شيت الى شيت اخر

[ehabaf2]

السلام عليكم الاخوة الكرام

كل عام و حضراتكم بالف خير محتاج كود نقل اعمدة معينه من  شيت 1 الى شيت 2

مرفق ملف للتوضيح

الف شكر للاساتذة الافاضل 

تجارب نقل جديد.xlsx

[ehabaf2]

السلام عليكم استاذ lionheart الملف المرف به شيت 1 و شيت 2 و فيه الارقام المراد ان تزيد بالقسمة على 0.997 و الارقام اللى هتنقل بدون اي تغير 

الف شكر لاهتمام حضرتك

 

[محي الدين ابو البشر]

عليكم السلام

ربما (يدون كود)

 

تجارب نقل جديد.xlsx

أو كود

Sub test()
    Dim a
    Dim i&
    With Sheets("sheet1")
        a = .Cells(2, 3).Resize(.Cells(Rows.Count, 3).End(xlUp).Row - 1, 26)
    End With
    For i = 1 To UBound(a)
        a(i, 4) = WorksheetFunction.Ceiling(a(i, 4), 500)
    Next
    With Sheets("sheet2")
        .Cells(2, 1).Resize(UBound(a), 3) = Application.Index(a, Evaluate("row(1:" & UBound(a) & ")"), Array(1, 26, 4))
    End With
End Sub

 

تم تعديل يونيو 15, 2023 بواسطه محي الدين ابو البشر

[ehabaf2]

الاستاذ الفاضل محي الدين ابو البشر الف الف شكر لحضرتك الكود يعمل بكفأة و هو المطلوب

[محي الدين ابو البشر]

بارك الله