ملف من احد الاساتذه الافاضل

[الـعيدروس]

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

اخواني الافاضل

لدي ملف في الذاكره وهو عمل لاحد الاخوة

لااتذكر من هو جزاه الله كل خير

اريد كود مختصر ترحيل بيانات بين ورقتين

معرفتي في الاكواد بسيطه جداوضيق الوقت هذه الايام

واحببت ان اطرحه كموضوع لاني بأمس الحاجه له في عملي

ارجو من لديه متسع من الوقت ان لايبخل علينا

المرفق موضح المطلوب بالتفصيل

والسلام عليكم

ترحيل بيانات.rar

[طارق محمود]

السلام عليكم

تفضل أخي الكود التالي

Sub shift_empty()

Sheets("Cells as CheckBoxes").Activate

lastR = [A10000].End(xlUp).Row

Sheets("ص").Range("A3:A10000").EntireRow.Delete Shift:=xlUp

Sheets("م").Range("A3:A10000").EntireRow.Delete Shift:=xlUp

For i = 4 To lastR

	If Cells(i, "C") <> "a" Then

	Range("A" & i & ":B" & i).Copy (Sheets("ص").[A10000].End(xlUp).Offset(1, 0))

	End If

Next i

For i = 4 To lastR

	If Cells(i, "G") <> "a" Then

	Range("E" & i & ":F" & i).Copy (Sheets("ص").[A10000].End(xlUp).Offset(1, 0))

	End If

Next i


For i = 4 To lastR

	If Cells(i, "D") <> "a" Then

	Range("A" & i & ":B" & i).Copy (Sheets("م").[A10000].End(xlUp).Offset(1, 0))

	End If

Next i

For i = 4 To lastR

	If Cells(i, "H") <> "a" Then

	Range("E" & i & ":F" & i).Copy (Sheets("م").[A10000].End(xlUp).Offset(1, 0))

	End If

Next i



End Sub

[طارق محمود]

مرفق الملف أيضا وبه الكود

غير أنني لم أستخدم CheckBox

الخاص بـ (صباح - مساء)

لضيق الوقت

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

ترحيل بيانات2.rar

[الـعيدروس]

بورك فيك استاذ طارق

كود جميل جدا مختصر

وفقك الله

وجعله في ميزان حسناتك انشاء الله

[الـعيدروس]

استاذي الفاضل طارق محمود

اذا امكن اكمال طريقة CheckBox

خيار لترحيل كل فترة على حده

لكبر البيانات

اذا اتسع وقتكم

او من احد الاساتذه الافاضل بارك الله فيهم

للعلم حاولت اعمل شرط CheckBox ولم تفلح المحاولة

[معتصم محمد]

الأستاذ / alidroos

تفضل الملف بعد تفعيل خاصية الـ Check Box كل ما ستقوم به هو تحديد Check Box وسيتم الترحيل للشيت الخاص بالCheck Box المحدد

لم اقم بعمل تعديل على الكود الخاص بالترحيل

كل ما تم عمله هو اضافة كود الترحيل الخاص بالفترة الصباحية للـ Check Boxصباحاً ليعمل عند تفعيله وبالمثل للـ Check Box مساءاً

للأسف في حالة الغاء تفعيل Check Box لن يتم مسح / حذف البيانات من الشيت المقابل

بالتوفيق بإذن الله

ترحيل بيانات3.rar

[ياسر الحافظ]

الاخوة الاساتذة م0طارق - المعتصم

جزاكم الله كل الخير - عمل سررت به جدا واعجبني

مع كل الشكر لحضرتك اخي الاستاذ العيدروس

وفقك الله

[الـعيدروس]

السلام عليكم

الاستاذ القدير المعصتم

تسلم على الاضافة وفقك الله

طرت في بالي اضافة وزبطت معي ارجو ان تستفيدو منها

استعنت بفورم البحث من عمل الاستاذ الكبير خبور خير وفقه الله

للبحث السريع وعمل تحفيز للاسم

والسلام عليكم

ترحيل.rar