كود نسخ التنسيق من خلية الي خلية اخرى format painter

[محمد الزريعي]

Sub test()
Range("A4").Copy
Range("A5").Resize(Range("A1").Value).PasteSpecial Paste:=xlPasteFormats
End Sub

إذا لم ينفذ معك الكود أمسح بعض من الكود المكتوب باللون الأسود .. وتوكل على الله .  

طبعاً راح تحتاج الي كود أخر لا لغاء التحديد عن الخلية .. 

ضع بعد الكود السابق

هذا الكود

 Application.CutCopyMode = False

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم محمد

لم تحدد في الموضوع هل الموضوع تعليمي كما أرى .. أم أنك تريد تعديل على الكود الموجود ؟

 

أعتقد أنك تقدم معلومة حيث أن الكود لا مشكلة به وحيث أنه يقوم بنسخ التنسيقات من الخلية A4 ويبدأ تنسيق الخلايا من A5 بامتداد عدد محدد من الصفوف (على حسب قيمة الخلية A1)

تقبل تحياتي

[محمد الزريعي]

لا يا اخي ياسر .. اقدم معلومة فقط لمن يبحث عنها ..

انا عندما ابحث عن كود // دائماً ابحث عنها في  هذا الموقع أذا لم اجدها // أبحث عنها في جوجل // 

وهذا الكود وجدته في اللغة الإنجليزية .. حبيت انقلة  في موقع اوفسنا باللغة العربية .. بحيث أذا كان هناك زائر من العرب أو باحث عن هذا الكود سوف يجعلة جوجل في متناول يدية ..

 

وأشكرك استاذي الكبير ياسر خليل