نقل البيانات بهذا الشكل عن طريق كود

[lord]

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

تحياتى للجميع

كل عام وانتم بخير

بمناسبة حلول عيد الفطر المبارك

اريد نقل البيانات من عمود الى عمودين فى ورقة جديدة فى نفس الملف او فى ملف جديد

مرفق ملف

____________.rar

[علي السحيب]

الكود التالي يلبي طلبك:

Sub moving()

Sheet2.[A2:F500].ClearContents

For R = 2 To 300

If Cells(R, 2) <> "" And Cells(R, 1).Row Mod 2 = 0 Then

With Sheet2.Columns(1).Rows(65536).End(xlUp)

.Offset(1, 0) = Cells(R, 1)
.Offset(1, 1) = Cells(R, 2)
.Offset(1, 2) = Cells(R, 3)

End With
End If
Next


For R = 2 To 300

If Cells(R, 2) <> "" And Cells(R, 1).Row Mod 2 = 1 Then

With Sheet2.Columns(4).Rows(65536).End(xlUp)

.Offset(1, 0) = Cells(R, 1)
.Offset(1, 1) = Cells(R, 2)
.Offset(1, 2) = Cells(R, 3)

End With
End If
Next

MsgBox "!تم ترحيل البيانات إلى الصفحة الثانية بنجاح", vbInformation, "تم الترحيل"
End Sub

شاهد المرفق،

__________________________________.rar

[lord]

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

تحياتى للجميع

شىء رائع وجميل من استاذنا على السحيب

استاذى الفاضل كود جميل

لكن بيتم ترحيل البيانات حتى البيانات الى انا كتبتها فقط

لاننى كتبت بيانات حتى الصف 500 ولم يتم ترحيلها

معلش ارجو العزرة لكثرة طلباتى من سيادتكم ( اريد ترحيلها الى ورقة فى اخر الملف علما بأن الملف يوجد به اوراق كثيرة)

بأكون سعيد جدا وفى انتظار ردك بفارغ الصبر

شكرا

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

تحياتى

اسف جدا

فعلا تم ترحيل البيانات بنجاح

كل ماريده ترحيل البيانات الى ورقة جديدة داخل الملف

وشكرا

[علي السحيب]

بالنسبة لعدد الصفوف التي تود ترحيلها .. فإني قد حددت في الكود فقط 300 صف .. ويمكنك تغيير هذا الرقم في الكود إلى أي رقم تشاء.

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

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

وللمعلومية فإن إسم الورقة التي أشرت أنا إ ليها هي Sheet2 .. يمكنك تغيير هذا الإسم إلى إسم الورقة التي تريد.

[lord]

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

ادعو الله فى هذه الليلة المباركة ان يبارك فيك ويجعله فى ميزان حسناتك

وكل عام وانت بخير

بمناسبة حلول عيد الفطر المبارك