AutoFill بشرط

[Akram Galal]

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

تحية طيبة لكل أعضاء المنتدى

أريد عمل AutoFill من بداية الخلية C6

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

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

AutoFill.rar

[عبد الله بولنوار]

الخلايا بداية من c6من اين تستمد بياناتها

 

ام يتم ادخالها يدوي

[Akram Galal]

اخي عبد الله

من حاصل جمع الخلية E1 + F1

وشكرا 

[عبد الله بولنوار]

جرب هذا

 

على حسب فهمي

 

جرب كتابة اسم اي موظف ثم فلتر ثم اعكس الفلتر

AutoFill.rar

تم تعديل مايو 11, 2015 بواسطه عبد الله بولنوار

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

أخي الكريم

إليك الملف التالي عله يفي بالغرض

Sub AutoFill()
    With Range("B6", Range("B" & Rows.Count).End(xlUp))
        .SpecialCells(2).Offset(, 1).Formula = [C6].Formula
    End With
End Sub

تقبل تحياتي

AutoFill YasserKhalil.rar

[Akram Galal]

جرب هذا

 

على حسب فهمي

 

جرب كتابة اسم اي موظف ثم فلتر ثم اعكس الفلتر

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

ولكن ليس هو المطلوب

[Akram Galal]

أخي الكريم

إليك الملف التالي عله يفي بالغرض

Sub AutoFill()
    With Range("B6", Range("B" & Rows.Count).End(xlUp))
        .SpecialCells(2).Offset(, 1).Formula = [C6].Formula
    End With
End Sub

تقبل تحياتي

أ/ ياسر سلمت يداك

هذا هو المطلوب باضبط

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

[Akram Galal]

أ/ ياسر

كيف يمكن التطبيق علي العمودين C & D معا

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

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

تفضل أخي الكريم

Sub AutoFill()
    With Range("B6", Range("B" & Rows.Count).End(xlUp))
        .SpecialCells(2).Offset(, 1).Formula = [C6].Formula
        .SpecialCells(2).Offset(, 2).Formula = [C6].Formula
    End With
End Sub

إذا أعجبك الحل لا تنسى أن تحدد المشاركة كأفضل إجابة ليظهر الموضوع مجاب

[Akram Galal]

شكرا يا أ/ ياسر

كود فوق الممتاز

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

الأخ الكريم أكرم

أكرمك الكريم بمكارم الأخلاق وكرمت في الدنيا والآخرة

الحمد لله أن تم المطلوب على خير ومشكور على اختيار أفضل إجابة

تقبل تحياتي

[Akram Galal]

أ/ ياسر عند التطبيق علي العمود A لا ينجح

ومع باقي الأعمدة ينجح

برجاء افادتي بالحل

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

AutoFill YasserKhalil 2.rar

تم تعديل يوليو 29, 2015 بواسطه Akram Galal