اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

الاخوة الافاضل

اريد ان شاء الله عند النقر على زر تنفيذ ان يرحل ما في خلية M1 الى خلايا العمود B وهذا شرط ان تكون خلايا العمود A فيها بيانات كما المرفق جزاكم الله خيرا

ترحيل بشرط.rar

قام بنشر

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

 

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

تحياتي و تقديري للجميع

جرب المرفق 

لعل به المطلوب

Dim R, ER, Q1, Q2
ER = ActiveSheet.UsedRange.Rows.Count
Q1 = Range("M1")
For R = 2 To ER
If Cells(R, 1) <> "" Then Cells(R, 2) = Q1
Next R

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

ترحيل بشرط.rar

  • Like 2
قام بنشر (معدل)

كل سنة و انته طيب اخي الحبيب ابو البراء

انته المعلم

ونحنه منك نتعلم - - :dance1:

تم تعديل بواسطه احمدزمان
  • Like 1
قام بنشر
18 ساعات مضت, حسين مامون said:

استاذ احمد زمان

لو سمحت ممكن شرح دور  Q2 في الكود

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

اخي الفاضل حسن

ليس لها اي دور

انا وضعتها في البداية لأنني كنت متوقع ان استخدمها - ولم استخدمها

ونسيت حذفها عند الإنتهاء

 

  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information