كتابةكلمة في الخلايا بشرط

[ابوصلاح]

في الملف المرفق

اريد كتابة كلمة مصري من خلال كود بشرط العمود [d] اخر صف به بيانات

وذلك في العمود[e]

كتابة كلمة من خلال اخر صف به بيانات.rar

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

أبو صلاح

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

Sub TypeEgyptian()
    Dim LR As Long
    LR = Cells(Rows.Count, 4).End(3).Row
    Range("E6:E500").ClearContents
    With Range("E6:E" & LR)
        .Value = "مصري"
    End With
End Sub

تقبل تحياتي

[ابوصلاح]

تسلم استاذ ياسر

بالمناسبة دورة افتح الباب رائعة بس انا مش شايف اي دروس جديدة

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

أخي الغالي أبو صلاح

أعتقد كل الموضوعات التي تقدم في المنتدى هي بمثابة دروس تقدم

الدورة توقفت شكلاً لكن الموضوعات التي تقدم في المنتدى تكمل ما بدأته الدورة

 

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

 

تقبل تحياتي

[ابوصلاح]

بالنسبة للسطر التالي

LR = Cells(Rows.Count, 4).End(3).Row

المقصود بـ 4 رفم صف الشرط

طيب end(3 )

معلهش اصلي اخوك لسه اولى ابتدائي

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

أخي الكريم ابو صلاح

رقم 4 يمثل رقم العمود الذي يتم جلب رقم آخر صف منه وهو العمود الرابع أي العمود D

أما الرقم 3 فهو بديل للجملة Xlup

أي أنه يمكن استخدام الكلمة دي بدلاً من رقم 3 والصف كله لتحديد آخر خلية بها بيانات في العمود الرابع

[ابوصلاح]

وصلت المعلومة

شكرا