التعبئة التلقائية في العمود الأول

[Akram Galal]

لدي ملف للأستاذ ياسر خليل

للتعبئة التلقاية

اريد التطبيق علي العمود A

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

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

AutoFill YasserKhalil 2.rar

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

ما هي النتائج المتوقعة في العمود الأول ...

هل تريد ترقيم البيانات في العمود الأول أم وضع معادلة ..

يرجى التوضيح

جرب الكود التالي للترقيم

Sub AutoFill()
    With Range("B6", Range("B" & Rows.Count).End(xlUp))
        .SpecialCells(2).Offset(, -1).Formula = "=IF(B6<>"""",COUNTA($B$6:B6),"""")"
    End With
    
    With Range("A6", Range("A" & Rows.Count).End(xlUp))
        .Value = .Value
    End With
End Sub

 

[Akram Galal]

أ/ ياسر

بارك الله لك وشافاك وعافاك ورزقك السعادة والهنا

كود تحفة

بس أنا كنت عايز وضع معادلة

بمعنى أخر

أريد تطبيق كود الزر AutoFill علي العمود A

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

 

 

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

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

يرجى مزيد من التوضيح

ما هي المعادلة التي تريد تطبيقها

يكفي أن تعدل في الكود الأول في المشاركة الأولى بأن تجعل الإزاحة -1 بدلاً من 1 مع الدالة Offset

[Akram Galal]

أ/ ياسر خليل

اعذرني علي تأخري في الرد

وذلك بسبب مشاكل في النت

والمطلوب هو تطبيق الكود الخاص بالزر AUTOFILL 

علي العمود A كما هو مطبق في العمود B

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

 

 

 

AutoFill YasserKhalil 2.rar

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

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

جرب الكود بهذا الشكل

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

 

تم تعديل أغسطس 10, 2015 بواسطه ياسر خليل أبو البراء

[Akram Galal]

أ/ ياسر بارك الله فيك

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

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

الحمد لله الذي بنعمته تتم الصالحات

مشكور على إغلاق الموضوع بالشكل المناسب أخي الفاضل أكرم ..

تقبل تحياتي