ممكن كود طباعة

[أحمد السيد]

السلام عليكم اخوانى واحبتى فى الله

محتاج منكم كود حذف CLEAR ولكن بأكثر من مدى يعنى فى تصميم شغال عليه ومحتاج افرغ البيانات كل شويه اكثر من خليه متفرقه واكثر من مدى فى اتجاهات مختلفه انا جربت ولكت يكون بحذف بيانات او مدى مضاف ممكن كود اعدل عليه بما يناسبنى اللى يتمسح عدد من الخايا متفرقه يعنى مثلا امر بيع فيه اسم العميل وعنوانة ورقم هاتفه الخ من البيانات

وفى الاسفال فى اكثر من مدى وليكن مثلا (H12:H27) هذا مدى والمدى الثانى من (J12:J27)

تم تعديل يناير 20, 2013 بواسطه عفوك يارب

[هاني عدلي]

أخي العزيز

راجع هذا اللينك

http://www.officena....showtopic=44863

أو

أرفق ملف حتى نستطيع مساعدتك

[أحمد السيد]

انا بتاسف انا اقصد كود لحذف بيانات اكثر من مدى ولست اقصد كود طباعة

يعنى كما وضحت فى اول الموضوع ولكن بدلا من كود طباعة يكون كود حذف CLEAR

[أحمد السيد]

اريد ارفاق الكود لكى اتعلم تركيبه فى محرر الاكواد اريد خلايا متفرقه مثلا G7 وF9 ومدى مثلا H12:H27 ومدى اخر J12:J27 انا اختار خلايا ومدى عشوائى من السهل ان ارفق الملف ولكن اريد معرفه الكود لكى اتعلمه

كود لحذف البيانات من الخلايا

[الـعيدروس]

السلام عليكم

Public Sub A_Cr()

'	 مدى1 مدى2 مدى3	 مدى4		 مدى5

Union([H12:H27], [J12:J27], [A7], [B7], [L7]).ClearContents

End Sub

أرجو من الأخوة المشرفين تعديل عنوان المشاركة

تم تعديل يناير 20, 2013 بواسطه عباد

[حمادة عمر]

السلام عليكم
الاخ الكريم / احمد السيد
جرب الكود التالي :

 

Sub clear()
    Range("M12,B2:B12,H7:H13,M11").Select
    Range("M11").Activate
    Selection.ClearContents
   
End Sub
 

ويمكنك تحديد المدي الذي تريده في الكود وتغييره الي ما تريداو قم بتوضيح الفكرة اكثر

تم تعديل يناير 25, 2013 بواسطه دغيدى

[حمادة عمر]

السلام عليكم

الاستاذ الكبير القدير / عباد

لم اري رد سيادتكم الابعد ارفاق المشاركة

عذرا كل العذر استاذي القدير

حيث انه لا يوجد رد بعد رد سيادتكم

جزاك الله خيرا استاذي

[الـعيدروس]

اخي الحبيب حاده عمر

لا داعي للإعتاذر اخي الكريم

تعدد الحلول تنور و تثري صاحب الطلب

جزاك الله خير وبارك فيك

تحياتي

[أحمد السيد]

السلام عليكم

اخى عباد انا عاجز عن شكر حضرتك ولكن الكود لا يعمل معى على الاطلاق

حاولت وعدلت عليه ولكنه لا يعمل

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

[أحمد السيد]

السلام عليكم

الاخ الكريم / احمد السيد

جرب الكود التالي :

Sub clear()[/b]

[b] Range("M12,B2:B12,H7:H13,M11").Select

Range("M11").Activate

Selection.ClearContents


End Sub[/b]

[b]

ويمكنك تحديد المدي الذي تريده في الكود وتغييره الي ما تريد

او قم بتوضيح الفكرة اكثر

السلام عليك اخى حمادة عمر

ايضا لا ادرى ابن المشكله

هل وضع حرف فى الكود يعنى شئ

ارجو التوضيح والافادة وعدك الانزعاج منى انا اريد ان اتعلم

[حمادة عمر]

السلام عليكم

الاخ الكريم / أحمد السيد

آسف جدا حيث انني لم اري هذا الخطأ ولكن حرف هو جزء من اكواد الاضافة عند اضافة كود في المشاركة

فليس له اي وجود بالكود وتفضل الكود الصحيح هو كالتالي

Sub clear()

Range("M12,B2:B12,H7:H13,M11").Select

Range("M11").Activate

Selection.ClearContents


End Sub

ومرفق ملف يوضح ذلك

Book111.rar

[الـعيدروس]

السلام عليكم

شاهد المرفق الخلايا الصفراء

وجرب نفذ الكود من الزر

A_Cr.rar

[أحمد السيد]

السلام عليكم

الاخ الكريم / أحمد السيد

آسف جدا حيث انني لم اري هذا الخطأ ولكن حرف هو جزء من اكواد الاضافة عند اضافة كود في المشاركة

فليس له اي وجود بالكود وتفضل الكود الصحيح هو كالتالي

Sub clear()

Range("M12,B2:B12,H7:H13,M11").Select

Range("M11").Activate

Selection.ClearContents


End Sub

ومرفق ملف يوضح ذلك

Book111.rar

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

[أحمد السيد]

السلام عليكم

شاهد المرفق الخلايا الصفراء

وجرب نفذ الكود من الزر

انا بشكرك جدا جدا اخى عباد يعلم الله ان عن جدا احترمكم جميعا لمساعدتكم لنا

اسال الله العظيم ان يجعل اعمالك كلها لوجهه الكريم وان يجازيك عنها كل خير

تم تفيذ الكون والا يعمل

شكرا لكل من يساعد الاخرين