ترحيل من خلية الى خلايا بشرط

[حسين مامون]

السلام عليكم

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

اريد ان شاء الله عند النقر على زر تنفيذ ان يرحل ما في خلية 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

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

كل عام وأنت بخير أستاذي ومعلمي وأخي الحبيب أحمد يعقوب

تقبل وافر تقديري واحترامي

[حسين مامون]

السلام عليكم 

كل عام وانتم بخير  استاذ احمدزمان  

تم المطلوب  بنجاح والحمد لله 

جزاك الله خيرا وتقبل منك جميع اعمالك 

تحياتي

[احمدزمان]

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

انته المعلم

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

تم تعديل يوليو 4, 2017 بواسطه احمدزمان

[حسين مامون]

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

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

[سليم حاصبيا]

بعد اذن اخي احمد

هذا الكود من سطر واحد

Sub translate_data()
Range("a1:a" & Cells(Rows.Count, 1).End(3).Row). _
SpecialCells(2).Offset(, 1) = Format(Range("m1"), "mm-d")
End Sub

 

[حسين مامون]

السلام عليكم 

استادي سليم حاصبيا  دائما كعادتك لا تبخل علينا

عملك ممتاز

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

[احمدزمان]

18 ساعات مضت, حسين مامون said:

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

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

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

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

ليس لها اي دور

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

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