أبو حنــــين

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

كنت قد نشرت الموضوع سابقا و هذا تعديل للملف جلب بيانات من ملفات مغلقة.rar

الذي اعرفه موضح في المثال التالي اما غير ذلك فالله اعلم مثال.rar

في هذه الحالة تأخذ بنصيحة الأستاذ طارق وتقوم بالعمل المبين في المرفق لكن في هذه الحالة اعتقد ان حذف صف يؤثرفي العملية و الله اعلم الشرح.rar

اخي طالما الكود موجود في الحدث Private Sub Worksheet_Selectionchange(ByVal Target As Range) و لا يوجد كود آخر يتعامل مع الالوان ، فمن المفروض لا يقع أي خلل بالنسبة للحرف G هو متغير فقط يمكن تغييره ( حلقة تكرار من 2 الى 1000 ) بأي شيئ آخر سواءا كان حرف أو كلمة

وهذا بالكود او الملف الثاني الذي اسمه ( 33) الذي يحتوي على وقت الخروج الوقت222.rar الوقت33.rar

السلام عليكم الوقت.rar

هذا هو البرنامج انذار.rar

تفضل الطريقة اخي 22.rar

مرحبا أخي ريان

شكرا اخي الحبيب فهد على مروركم العطر جزاكم الله خيرا

باختصار و ببساطة الملف يحتوي على تواريخ او مواعيد محددة مسبقا مثلا 18/09/2012 و تكون قد اعطيت امرا للاكسل ان يخبرك قبل الموعد ببوم او يومين او ثلاثة كما تحدده انت عندما تقوم بفح الملف ، و كانت هناك مواعيد قد حان اجلها فبمجدر فتح الملف تأتيك واجهة باسماء العملاء و ارقامهم و......... الخ في مثالنا السابق لو اخترت مثلا تبليغك بآجال الموعد قبل وصوله بيوم مثلا ، عندما تفتح الملف يوم 17/09/2012 تخرج لك واجهة تخبرك بموعد العميل الذي سيكون يوم 18/09/2012 يمكن ان يكون الانذار صوتيا او كتابيا . في البرنامج الموجود في المشاركة السابقة الانذار كتابي وليس صوتي ارجو ان اكون قد اوصلت لك الفكرة

ضع هذا الكود في combobox1 Private Sub ComboBox1_Click() If Me.ComboBox1.Value <> Empty Then Me.ComboBox2.Value = "OK" III = 4 Do Until ورقة1.Cells(III, "a").Text = "" If Me.ComboBox1.Text = ورقة1.Cells(III, "a").Text Then Cells(III, "a").Activate Me.TextBox2 = ActiveCell.Offset(0, 1).Text Me.TextBox3 = ActiveCell.Offset(0, 2).Text Me.TextBox4 = ActiveCell.Offset(0, 3).Text Me.TextBox5 = ActiveCell.Offset(0, 4).Text Exit Sub End If III = III + 1 Loop MsgBox ("!!! عفوا .. اختر اسما الذى تبحث عنه") Me.ComboBox1.SetFocus ComboBox2.Value = Empty End Sub

الملف يحتوي على دوال فقط من بينها =VLOOKUP(O5;ورقة3!A2:C300;2;) و =VLOOKUP(O40;'توزيع سنوي للبرامج'!B2:P230;11;)

مثال مثال.rar

جر ب هذ الكود و ان كان هذا هو القصد فسنكمل حاول حذف صف او صفوف Private Sub Worksheet_Selectionchange(ByVal Target As Range) For G = 2 To 50 If G Mod 2 = 1 Then Rows(G).Interior.ColorIndex = 37 Else Rows(G).Interior.ColorIndex = 0 End If Next End Sub

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

مثلا لتلوين الخلية الحالية نكتب Private Sub Worksheet_Selectionchange(ByVal Target As Range) ActiveCell.Interior.ColorIndex = 3 End Sub

ما الذي تريد تلوينه خلية واحدة او صف ، و متى تريد التلوين اي هل هناك شرط للتلوين

اذهب الى صفحة البيانات و قم بالتالي ( طبعا هذا في الملف الذي ارسلته لك ) تجد في العمود U البرتقالي اللون ارقام ، هذه الارقام اكملها حتى 500

هل غيرت نطاق التاريخ الاول و الثاني في الكمبوبكس

غير الكود السابق بالكود التالي : Dim i As Integer, x As Integer Range("B7:T500").ClearContents x = 7 For i = 1 To 500 With ورقة1 If .Cells(i + 4, 21) >= Range("D1").Value And _ .Cells(i + 4, 21) <= Range("L1").Value Then ورقة1.Range("a" & i + 4).Resize(1, 19).Copy Range("B" & x).PasteSpecial xlPasteValues x = x + 1 End If: End With: Next حيث انني وضع 500 و بامكانك استعمال عدد اكبر حسب صفحة البيانات جرب و اخبرني

اخي فهد هل جربت المشاركة رقم 12

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

اخي فهد جرب المرفق و اخبرني بالنتيجة ترحيل.rar