كود التعبئة التلقائية

[saif_5]

السلام عليكم 

بالملف المرفق عايز كود يعمل التعبئة التلقائية  بالعمود A  بحيث ان كل خلية يوجد بها قيمة تنزل التعبئة التلقائية لهذه القيمة  الى الخلية التي تحوي قيمة اخرى وهكذا

ان شاء الله اكون وصلت الفكره

الملف.xlsx

[saif_5]

التعبئة تكون في العمود A  والاساس هو القيم الموجودة في نفس العمود اللي هو A.

بالملف الخلية A2  فيها قيمة .. انا عايز اكرر هالقيمة الى ان اوصل الى الخلية رقم A16 وبعد A17  يكرر القيمة الموجودة في A17  وهكذا .. انا عايزها ديناميكية حتى استخدمها في ملفات متغير عدد الخلايا والصفوف

[Ali Mohamed Ali]

تفضل بعد اذن جميع الأساتذة

الملف1.xlsx

[saif_5]

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

النسخ من ملفات متعددة لذلك جعلت هذا الكود قبل نسخ اي ملف يضيف اسم الملف للخلية المراد البدء من عندها 

Range("B1").Select
    ActiveCell.End(xlDown).Offset(1, -1).Select
    ActiveCell.Value = (1010)

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