زياد عبد الجليل

السلام عليكم استاذ عادل و لكن كيف افتح الاكسيل عن طريق الاكسس

السلام على جميع الاساتذة الافاضل اما بعد عندي استفسار حول كيفية كتابة معادلة في حدث الورقة تقوم بعمل ترقيم تلقائي حيث بمجرد كتابة اي شيء في خلية Bمثلا تترقم الخلية A بالرقم 1 و بمجرد الكتابة في الخلية التي تليها تترقم الخلية الموالية و هكذا، هاهي المعادلة ارديها في حدث الورقة و ليس في الخلية مع الترقيم مثلا من الخلية A9الى غاية A40 و لكم مني كل الشكر و التقدير ((SI(C9="";"";SOUS.TOTAL(3;C$6:C9=

شكرا اخي حيدر على هذه الملاحظة نعم معك حق لم انتبه لهذا الامر

بارك الله فيك اخي ياسر هذا هو المطلوب بالضبط شكرا على مرورك العطر و مساعدتك بارك الله فيك اخي العزيز

السلام على جميع الاساتذة اما بعد رجاء مساعدتي في كود التعديل فالكود الذي وضعته لا يعدل البيانات بشكل جيد بحيث اما يضيف سطر جديد معدل مع الابقاء على السطر القديم او ان البيانات تنتقل الى خلية اخرى و الله جربت كل شئ و لم افلح انا اريد ان يتم تعديل البيانات المختارة مع بقائها في نفس السطر ....للاطلاع على الفورم حمل الملف المرفق و شكرا للجميع مع خالص تحياتي و تقديري لكم تعديل البيانات.rar

رجاء اخوتي هل من معين في كود التعديل وشكرا

ماشاء الله عليك اخي حيدر والله عمل ممتاز و متقن و هذا هو المطلوب بالضبط....شكرا جزيلا اخي مع خالص تحيات الشكر و التقدير

السلام على جميع الاخوة الافاضل اما بعد : استسمح جميع المشرفين على المنتدى لكثرة طلباتي و اسئلتي و بالاخص الاستاذ القدير ياسر خليل طلبي يتمثل في كود يطبق على الملف المرفق يتمثل في قص و لصق(couper-coller) سطر معين من صفحة اختارها و لصقه في صفحة اختارها كذلك ...و استسمحكم مرة ثانية على كثرة اسئلتي و طلباتي و لكم مني كل الحب و الشكر و التقدير و الامتنان . قص و لصق..coupy coller.rar

السلام عليكم اخي العزيز حيدر نعم هذا هو المطلوب بالضبط و لك مني كل الشكر و التقدير merçi bcp

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

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

السلام على جميع الاخوة الافاضل اما بعد : عندي يوزر فورم يحتوي على اكواد للعلامة القدير ربيع شوقي حيث قمت باضافة زرين واحد للتعديل و الثاني لمسح بيانات طالب مثلا , ولكن المشكلة تكمن في ان الملف به عدة اوراق يتم اختيار و رقة مثلا عن طريق كومبوبوكس ثم البحث عن الطالب بلقبه في هذه الورقة او من خلال كليك على الليست بوكس ليتم بعدها تعديل بياناته ولكن المشكلة في الكود الذي عملته انه يضيف لي بيانات مكررة و يضعها في سطر اخر مع الابقاء على البيانات المطلوب تعديلها كما هي لذا ارجو مساعدتي في زرين : التعديل و ازالة او مسح البيانات .الرجاء الامر عاجل و لفهم المطلوب بدقة اليكم الملف المرفق و لكم مني خالص عبارات الشكر و الامتنان كود التعديل و الازالة.rar

السلام عليكم استاذي الفاضل اما بعد رجاء ان تساعدنا في ايجاد خل لمشكلة تفعيل سريال البرنامج(برنامج تغيير ايقونة ملف تنفيذي) لان البرنامج يفتح و لكن لا يعمل بشكل صحيح ان تكرمت تعطينا شرح كيفية تنصيبه و تفعيل السريال لاننا اتبعنا كل الطرق الصحيحة و الصائبة في التنصيب و التفعيل ولكن دون جدوى ...رجاء لا تبخل علينا ولك منا كل الشكر و العرفان و التقدير

السلام على جميع اساتذتنا الافاضل عندي مشكلة تتمثل في الاتي : عندي خلية بها تاريخ وفق تنسيق تاريخ (00-00-0000) ولكن عند تحويل هذه الخلية الى نص(text) تصبح ارقام مثلا 28432 وانا اود ان تبقى الخلية (text) مع اضهار التاريخ بصورة صحيحة ولكم مني فائق الشكر و الاحترام الملف المرفق فيه شرح للمشكلة. تحول التريخ الى رقم.rar

لقد وجدت هذا الكود و عدلت عليه و لا اعلم ان كان سيعمل ام لا و هو و ضع شرط مسح خلايا النطاق بتاريخ 09/01/...... الاول من سبتمبر من كل سنة و لا اعلم هل التعديل الذي قمت به صحيح ام لا فقد جربت ووضعت تاريخ الغد و سانتظر لارى النتيجة الكود: Private Sub Workbook_Open() If Date >= CDate("15/05/2014") Then 'هنا عوض تحديد اليوم و الشهر و السنة قمت فقط بتحديد اليوم و الشهر و تركت السنة 0000 بدون تحديد (If Date >= CDate("01/09/0000") Then) هل هذا صحيح ام لا Application.ScreenUpdating = False Sheet1.Range("B1:I2880").ClearContents (With Sheet2.Range("C8:AA40" .Value = .Value End With Me.Save Application.ScreenUpdating = True End If End Sub هل هذا التعديل صحيح ام لا و لكم مني جزيل الشكر

السلام على جميع الاخوة الافاضل اما بعد: اطلب مساعدة تتمثل في كود او معادلة يمسح محتوى عمود مثلا من b1:b2 بعد مرور مثلا 90يوم ...وليس بدلالة تاريخ معين ولكن الشرط هو عند مرور 90 يوم او 60 او اي عدد يتم مسح النطاق اليا و يخرج رسالة ان امكن تقول انه تم مسح النطاق ...ولكم مني جزيل الشكر

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

شكرا لك اخي ابراهيم نعم هذا هو المطلوب بالضبط...بارك الله فيك وشكرا على مرورك العطر

السلام على جميع الاخوة الافاضل ...عندي طلب بسيط يتمثل في تصحيح كود التعديل حيث ان الملف من اعداد الاستاذ القدير العطار تمسنا و الاستاذ الرشيدي والخلل في الملف يكمن في التالي: عند عمل كليك في الليست بوكس تضهر البيانات في التاكس بوكس وعند اجراء التعديل يكون كل شئ على ما يرام الكود يعمل بشكل ممتاز ولكن الخلل يكمن عندما نكتب في تاكس بوكس1 القيمة او الشئ الذي نبحث عنه يعرضه في الليست بوكس و عند عمل كليك في الليست بوكس تنقل البيانات الى التاكس بوكس و لكن عند عمل التعديل و الضغظ على زر التعديل هنا تكمن المشكلة و هو عمل تكرار لنفس السطر و عرضه في الصف الاول من الشيت .مع بقاء السطر السابق غير معد اي يضيف سطر جديد بالتعديل..لفهم المطلوب بدقة اليكم المرفق التالي ولكم مني جزيل الشكر و التقدير El rashedy listbox.rar

شكرا لك اخي عبد السلام هذا هو المطلوب بالضبط بارك الله فيك و مليون شكر

السلام على جميع اساتذتنا الافاضل ارجو مساعدتي في ايجاد حل للمشكلة التالية و هي : عند فتح الفورم سيعرض كل البيانات في الليست بوكس وهنا الطلب الاول يتمثل في عرض عدد المسجلين في الليست بوكس في التاكس بوكس 2....الطلب الثاني هو عند مباشرة البحث اطلب ان تتغير القيمة الموجودة في التاكس بوكس2 و التي بعد ان عرض سايقا مجموع المسجلين يتغير العدد ويصبح عدد نتائج البحث مثلا اذا بحثت عن عنصر السكر و يوجد مسجلين بهذ الاسم يعرض العدد 2 وعند عدم وجود عنصر مسجل بهذا الاسم يعرض القيمة 0 و هكذا...ولكن عند غلق الفورم و اعادة فتحها ترجع للوضع الاول وتضع في التاكس بوكس 2 عدد المسجلين ...مع اصدق عبارا الشكر و التقدير لجميع اعضاء هذا المنتدى سواء مشرفين أو مشاركين و السلام عليكم و رحمة الله تعالى و بركاته. طلب عرض عدد المسجلين +نتائج البحث.rar

السلام على الجميع اخوتي لقد و جدت الحل و اود ان اشارككم به و الحل يتمثل في اضافة الكود التالي في زر الاضافة و في بداية تحرير الاكواد : Dim J As Long Dim Lg As Long Dim Ws As Worksheet With Sheets("a") Lg = .Range("A" & Rows.Count).End(xlUp).Row For J = 4 To Lg If Me.textbox1 & Me.textbox2 & Me.textbox3 = .Range("A" & J) & .Range("B" & J) & CStr(.Range("C" & J)) Then MsgBox "Enregistrement existant" Unload Me Exit Sub End If Next J End With يجب عليك فقط تعديل الكود وفق تسميات التاكس بوكس و الشيت عندك .....مع السلامة

السلام على جميع الاساتذة انا في ورطة سا عدوني

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

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