اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information