مطلوب كود ينسخ التنسيقات الشرطية إلى الصفوف التالية

[عادل جلال]

الأخوة الأفاضل/ مراقبون - مشرفون - متميزون - اعضاء

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

كل عام وأنتم بخير

لدى ملف به صفين متتاليين (الصف 11 ، الصف 12 ) يحتوى كل منهما على تنسيقات شرطية مختلفة وأود نسخ هذه التنسيقات إلى الصفوف التالية ( حتى الصف 88 ) بطريقة آلية ( ماكرو )

بارك الله فيكم

Book.rar

[ناصر سعيد]

هذا الملف حقك جزء من كنترول شيت

فهل يمكن ان ترفقه كاملا ؟

هذا طلب مثل طلبك للآخرين بمد يد العون لك

فيعطيك الله على قدر نيتك

الاخ

ناصر سعيد

تم تعديل سبتمبر 21, 2007 بواسطه nasersaeed

[عادل جلال]

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

الأخ / ناصر سعيد ( إسلام على )

مشكور على مرورك

هذا العمل لم يكتمل بعد بدليل طلب المساعدة

وطلبى أن تدعوا الله لى أن أجد حل لطلبى السابق وغيره

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

والله ولى التوفيق

[ناصر سعيد]

لنرى مشاركاتك ومواضيعك

وهي خير دليل على وجود شيت كنترول جمعت عناصره من برامج الاخوة

وعندما طلبت منك هذا العمل الذي جمعته من افكار الاخوة وأخذت عناصره منهم

قلت ان هذا العمل في المديرية ولايصح ان يخرج لاحد

فكيف تقول لي انه بالمديرية وهنا تقول انه لم يكتمل

سامحك الله

اسلام على هذا هو ايميل ابني بارك الله له وللأخيار

[عادل جلال]

السلام عليكم

العضو / ناصر سعيد ( إسلام على )

مرفق مستند يدل على صدق كلامى بان البرنامج منذ شهر 3/ 2007 مسلم للمديرية

ولن أقعد مكتوف اليدين حتى الأن فلدى أفكار كل يوم فى تطويره خاصةَ وأننى أعمل بالكنترول منذ 17 عاماّ

وأعتقد أن رسم فكرة العمل لاتقل عن تنفيذ العمل

ولا أملك إلا أن أطلب من الله عز وجل أن يسامحك على إتهامك لى

وأخيراّ حسبنا الله ونعم الوكيل

Pict0001.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

أخى عادل جلال

اخى nasersaeed

اتمنى ان يكون فى الامر سوء فهم

رمضان كريم

يمكن استخدام الكود التالى لعدد الصفوف الذى تريده

Sub MYPast()
    Dim MyRows, MyRows01 As Range
    Set MyRows = Union(Rows(11), Rows(12))
    Application.ScreenUpdating = False
    For i = 13 To 88 Step 2
        Application.DisplayAlerts = False
        Set MyRows01 = Union(Rows(i), Rows(i + 1))
        MyRows.Copy
        MyRows01.Select
        MyRows01.PasteSpecial Paste:=xlPasteFormulas
        Application.DisplayAlerts = True
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

ملفك مرتبط ببيانات خارجيه فارفق لك ملف كمثال

السلام عليكم

[ناصر سعيد]

الاخ / هادي سالم

بارك الله لك

[عادل جلال]

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

الأخ / هادى سالم

بارك الله فيك

عمل رائع

وكنت أقصد نسخ التنسيقات الشرطية فقط من الصف الثالث إلى الصف الخامس ثم السابع وهكذا0000

و نسخ التنسيقات الشرطية من الصف الرابع إلى الصف السادس ثم الثامن وهكذا0000

وكنت أقوم بهذا التنسيق بشكل يدوى عن طريق تحديد الصفين الثالث والرابع ثم الضغط على الأيقونة الموجودة فى الشريط القياسى بشكل فرشاة والمسماة (format Painter )

ثم بالضغط مع السحب لكل الصفوف التالية المطلوبة

وأود عمل ذلك عن طريق الماكرو

أتمنى ألا أكون متعب لك

رمضان كريم

مرفق ملف يوضح ما أريد

2.rar

[عادل جلال]

للرفع

[عبدالله باقشير]

بسم الله الرحمن الرحيم

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

هذا الكود ممكن استخدامه لنسخ التنسيقات للجميع

ما عليكم التغيير في المتغيرات المعرفه في الكود

المتغيرت معرفة داخل الكود الذي في الملف المرفق

Sub KHBOOR()
    W = 88
    M = 2
    X = 10
    N = (W - (X + M)) / M
   Application.ScreenUpdating = False
   Range("A11:CH12").Select
    Selection.Copy
    For E = 1 To N
            ActiveCell.Offset(2, 0).Range("A1").Select
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
    Next E
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Application.GoTo [A11]
End Sub

[islam11]

بارك الله لك

[عادل جلال]

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

الأخ/ خبور

بارك الله فيك

وجعله فى ميزان حسناتك

[قصي]

شكرا

[ناصر سعيد]

بارك الله لك