أبو حنــــين

بعد إذن الاخوة الكرام اخي فهد جرب المرفق الاشهر ترحيل.rar

مشكور أخي الكريم : / فهد

اضف السطر التالي في بداية الكود الذي ظهر فيه المشكل On Error Resume Next

العفو اخي الكريم فهد

جرب الكود التالي حيث تم تغيير الجزئ الاخير من مشاركتك رقم 2 'MsgBox ...................................................... ' الكود يبدأ من تحت كلمة Msgbox Dim rArr rArr = Array(" ناجح ", " دور ثاني ") For x = 16 To 17 Y = Sheets(x - 15).[B3000].End(xlUp).Row - 10 mssg = mssg & Chr(10) & Format(Y, "00") & " Students to Sheet : " & "." & rArr(x - 16) Next x MsgBox (" تم ترحيل عدد " & mssg) Range("A1").Select Application.ScreenUpdating = True

اخي الحبيب : / دغيدي جمعنا الله في الفردوس الأعلى

جرب المرفق حذف المكرر.rar

غير هذا السطر mssg = mssg & Chr(10) & Format(Y, "00") & " Students to Sheet : " & x بالسطر التالي mssg = mssg & Chr(10) & Format(Y, "00") & " Students to Sheet : " & Sheets(x).Name

العفو اخي يوسف

السلام عليكم و كأننا قلنا للبرنامج الخلية cc تساوي الخليةالتي فوقها مباشرة + 1 جرب المثال التالي بوضع CommandButton1 و اضف الكود التالي ثم أكتب في الخلية D1 اي رقم و لاحظ الخلية D2 Private Sub CommandButton1_Click() Range("D2").Value = Range("D2").Offset(-1, 0) + 1 End Sub

تفصل اخي حل المشكلة في المرفق شرح.rar

أخي kakol غير الكود الموجود في الحدث Private Sub Workbook_Open بالكود التالي : Private Sub Workbook_Open() '------------------------------------------------ On Error Resume Next '------------------------------------------------ LR = æÑÞÉ2.Cells(Rows.Count, "B").End(xlUp).Row For t = 1 To LR If æÑÞÉ2.Cells(t, 2).Value <= æÑÞÉ1.Range("I1").Value Then UserForm1.ListBox1.AddItem æÑÞÉ2.Cells(t, 1).Value & " ãÊÈÞí áå " & æÑÞÉ2.Cells(t + 1, 1).Offset(0, 1).Value & " ÃíÇã " End If Next UserForm1.Show End Sub

العفو أخي الحبيب فهد

المعذرة أخي الحبيب : الأستاذ طارق لم انتبه لوجود الموضوع مسبقا و لو كنت على علم بذلك لما نشرته

السلام عليكم تذهب الى محرر VB ثم تضغط بيمين الفأرة على VBAProject و تختار خصائص VBAProject Properties تظهر لك نافذة تخنار منها Protection تقوم بتفعيل الخيار Lock project for viewing ثم تختار كلمة المرور

اخي ان كان الملف مفتوحا فهذه من السهل الوصول اليها اما اذا كان مغلقا فحسب علمي لا يمكن للاكسل ان يقوم بهذا تلقائيا دون الاستعانة ببرنامج آخر فقط هناك طريقة وحيدة و هي : ان يضاف كود لملف الاكسل بحيث يفح الملف مع بدأ تشغيل الوندوز لكنه يكون خفيا و يبقى مفتوحا طالما الوندوز في حالة عمل و عند وصول الموعد يكون هناك كود آخر بظهر الملف او رسالة الانذار و الله اعلم

من الورقة 1 تحدد في الخلية ذات الخلفية الخضراء ( I1 ) عدد الايام قبل موعد معين و التي تريد ان يخبرك بها البرنامج ، و تظهر في فورم يحتوي على المواعيد التي وصل أجلها أما اذا لم يصل الاجل فالفورم لا يظهر اما عن الصوت فيمكن ادراج صوت معين او تشغيل مثلا برنامج معين .......

قطعت جهيزة قول كل خطيب لقد قام ابو نصار باللازم جزاه الله خيرا و حفظ له نصار

العفو اخي

على افتراض ان العملية تبدأ من العمود D الذي يحتوي على الشرط المبين في الكود التالي : For Each cl In Range("d3:d" & [d1000].End(xlUp).Row) If cl.Value = "م.باطن" Then[/size][/b][/font] [font=times new roman,times,serif][b][size=5] عندما نقوم بكتابة الجملة : cl.Offset(0, -3).Resize(1, 5).Copy و كأننا قلنا للبرنامج : cl.Offset(0,-3) اي ارجع بثلاث اعمدة ابتداءا من العمود D بمعنى الرجوع للعمود A لو نجعل مكان -3 العدد -2 سيعود بعمودين للوراء اي عند العمود B و هكذا Resize(1,5) اي قم بنسخ خمسة اعمدة ابتذاءا من اعمود A فيقوم بنسخ الاعمدة A , B , C , D , E لو نضع مكان 5 العدد 4 سيتوقف عند D و لا يتسخ اعمود E و هكذا

العفو أخي الكريم : / Khhanna جزاك الله خيرا

إحتمال آخر هو تغيير اللغة في محرر الأكواد VB من القائمة Tools نذهب الى Options ثم الى Editor Format ثم من هناك نغير الخط

حياك الله أخي الحبيب : الأستاذ هاني عدلي و جزاك الله خيرا على مروركم

العفو اخي : / يـــوسف شكرا على مروركم

ان كنت قد فهمت المقصود فجرب اخي المرفق انذار.rar