اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

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

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

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

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

ترحيل بيانات.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

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

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

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

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

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

قام بنشر

الأستاذ / alidroos

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

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

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

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

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

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

قام بنشر

السلام عليكم

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

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

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

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

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

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

ترحيل.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information