مساعدة في ترحيل بشرط وحذف

[عمر طاهر]

السلام عليكم 

أرجو المساعدة في ترحيل من تسجيل البيعة إلى تسجيل المخزون بالضغط على الاخضر

وحذف التسجيلات بدون مسح الدوال 

وترحيل السجلات الى تسجيل التالف اذا كان نوعها التالف 

نخوتكم مضطر 

homam.xlsm

[alyaldeen]

السلام عليكم

homam.xlsm

[عمر طاهر]

جزاك الله خيراً أخي الكريم

شكرا لك

[عمر طاهر]

هل يمكن مسح المدخلات بدون حذف الدوال ..؟

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

استبدل هذا

Sub gmgm1()
Worksheets("تسجيل البيعة").Range("c4:i16").SpecialCells(2, 3) = ClearContents
End Sub

بدل

Sub gmgm1()
Worksheets("تسجيل البيعة").Range("c4:i16") = ClearContents

End Sub

 

[عمر طاهر]

20 ساعات مضت, محي الدين ابو البشر said:

استبدل هذا

Sub gmgm1()
Worksheets("تسجيل البيعة").Range("c4:i16").SpecialCells(2, 3) = ClearContents
End Sub

بدل

Sub gmgm1()
Worksheets("تسجيل البيعة").Range("c4:i16") = ClearContents

End Sub

 

جزاك الله عني كل خير

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

بارك الله

[عمر طاهر]

2 ساعات مضت, محي الدين ابو البشر said:

بارك الله

سؤال زكاتك اخي

اذا اردت اضافة نسخ التاريخ ايضا الى اي خلية في تسجيل المخزون مثلا F

ماذا اضيف على الكود ..؟