نجوم المشاركات

بسم الله الرحمن الرحيم وبه نستعين على كل شىء وقبل كل شىء السلام عليكم ورحمه الله وبركاته احبائى اعضاء المنتدى الرائع وحشتونى جدا والله ما يمنعنى عنكم إلا الشديد القوى آلا وهو العمل وطول وقته طبعا هذه الهديه حاجه بسيطه تفكركوا بيا عشان محدش ينسانى وان شاء السميع العليم سأعود بقوه لكن بعد موسم الميزانيات الهديه لكل اعضاء اوفيسنا وخاصه أستاذى العلامه // عبد الله باقشير واستاذى // حماده عمر وطبعا أستاتذتى جميعا ولا اود ان انسى منهم احدا أستاذى // طارق محمود أستاذى // بن عليه حاجى أستاذى // جمال عبد السميع أستاذى // ابو حنين استاذى // جمال دغيدى أستاذى // عبد الله المجرب أستاذى // يحيى حسين استاذى // محمد معتصم استاذى // احمد زمان استاذى // احمد فضيله استاذى // الخالدى أستاذى // حماده باشا أستاذتى نجمه اوفيسنا // ام عبد الله استاذى // قنديل الصياد استاذى // ضاحى الغريب استاذى // رجب جاويش أستاذى // شوقى ربيع استاذى // احمد عبد الناصر أستاذى // الشهابى استاذى // هانى عدلى استاذى وحبيب قلبى الغالى // سعيد بيرم استاذى // ابراهيم ابو ليله واخى الحبيب // عطاء الله واخى الحبيب // احمد النجار وطبعا لكل اعضاء اوفيسنا تقبلوا تحياتى وكل عام وانتم بخير OFFICENA.rar

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

ألف مليووووووووووووووووون مبروك أختى الغالية ( أم عبد الله ) على هذه الترقية المستحقة وعن جدارة ، وإلى الأمام ووفقك الله تقبلى : تحياتى

السلام عليكم ورحمة الله وبركاته الاستاذ محمود جزاك الله خيرا وبارك الله فيك لاحظ المرفق فيه كود للعلامة الجليل عبد الله باقشير دام عزه ان شاء الله يفي بالغرض تقبل فائق احترامي وتقديري mzmhr11.rar

السلام عليكم استعمل دالة IFERROR مثال ان كانت النتيجة خاطاءة يعطي فراغ كما يمكنك اختيار اي شيء لضهر مكان علامة الخطاء =IFERROR( B8*D8/100;"")

السلام عليكم جزاكم الله خيرا شاهد المرفق 2010 mzm1.rar

لاثراء الموضوع شاهد اخي الملف المرفق ارجو ان يعجبك زووم لقائمة منسدلة.rar

الاستاذ القدير العلامة الخبير / عبدالله باقشير منتهي منتهي الجمال والروعة جزاك الله خيرا

السلام عليكم الاخ الكريم / نايف - م بارك الله فيك من الافضل ارفاق ملف كمثال لما تريده للعمل عليه .. للوصول لنتيجة افضل والوصول الي ما تريد في انتظار ردك تقبل خالص تحياتي

يتم ذلك من خلال النطاق الذي تحدده مثلا في الملف السابق المرفق .RowSource = "=Sheet1!A2:C10" قم بتغيير A2 الي A1 وشاهد النتيجة في الملف السابق من الكود او من الخصائص الخاصة بالليست تقبل خالص تحياتي

شاهد المرفق التالي اخي الكريم ان تقصد ذلك فاليك الملف التالي به ما تريد ان شاء الله عناوين الاعمدة في الليست.rar

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

السلام عليكم الاخ الكريم / ahmed_hissen بارك الله فيك ولكن نطلب منك الصبر جرب المرفق .. ان شاء الله به ما تريد اظهار اسم ومسار الصورة التي تقوم باختيارها بالكود التالي : Sub SAMA() Image_path = Application.GetOpenFilename( _ FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _ Title:="اختار الصورة") Sheets("sheet1").Range("a1") = Image_path If Image_path <> False Then Sheets("sheet1").Image1.Picture = LoadPicture(Image_path) End If End Sub وارجو ان يفي بطلبك جزاك الله خيرا صورة.rar

وجزاك الله خيرا اخي الحبيب / جلال محمد تقبل خالص تحياتي

الاخ الكريم طلبك غير واضح ... ياريت لو مثال كامل ولكن شاهد المرفق هل تقصد هكذا 2013-2003.rar

السلام عليكم الاخ الحبيب / عباس السماوي بارك الله فيك والله اخي الحبيب ... ردودك لها وقع خاص في قلبي وتسعدني كثيرا تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الكريم / عبد الرحمن شفيق بارك الله فيك يمكنك اخي الكريم تنفيذ ذلك من خلال الكود التالي Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text End Sub جزاك الله خيرا

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

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك ما اجمل شخصكم الكريم وخلقه الرفيع تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الحبيب / أحمد فؤاد بارك الله فيك ولكن لي عتاب عليكم ... فتواجدك بيننا هذه الايام قليل ( لعله خيرا باذن الله ) تقبل خالص تحياتي جزاك الله خيرا

تم الاجابة علي الرابط التالي ... بعنوان (( فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة )) http://www.officena.net/ib/index.php?showtopic=49585

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

الاخ الكريم / وليد زقزوق بارك الله فيك وبالنسبة لطلبك الأخير والخاص باضافة الشيتات شاهد المرفق التالي .... ارجو التجربة جيدا ... وابداء الملاحظات حيث تم تنفيذه علي وجه السرعة نظرا لضيق الوقت وفي انتظار ردك ارجو ان يفي بطلبك حيث يتم ذلك من خلال هذه الشاشة جزاك الله خيرا المرفق 2003 sama-add-name.rar

ولاثراء الموضوع ولاضافة التاريخ في خلايا العمود B بناءا علي الكتابة في العمود A واضافة للكود الخاص بالاخ / ابو غريب شاهد المرفق ... حيث عندما لايكون بالخلية شئ يتم مسح التاريخ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("a2:a10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).ClearContents Else With Target(1, 2) .Value = Date .EntireColumn.AutoFit End With End If End If End Sub جزاكم الله خيرا اضافة تاريخ في خلايا عمود بناءا علي خلايا عمود آخر.rar

بعد اذن الاساتذة الكبار هذه مشاركة مني لملف اكسيل عندما يفتح تسمع تكبيرات العيد شاهدوا الملف وانتظر رأيكم ؟؟؟ هو تعديل بسيط علي كود للاستاذ القدير / عادل حنفي ... جزاه الله خيرا ارجو من الله ان ينال اعجابكم http://www.gulfup.com/?O3sFn7

السلام عليكم الاخ الكريم / الشيباني بارك الله فيك الحمد لله انك اهتديت لما تريد تقبل خالص تحياتي جزاك الله خيرا

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

جزاك الله خيرا مرور طيب وكريم تقبل خالص تحياتي

السلام عليكم الاخ الكريم / هانى ابو ادهم بارك الله فيك اليك الحل حسب فهمي للطلب نفترض اننا نريد ان نكتب كلمة ( منتدي اوفيسنا العملاق ) عند الضغط دبل كليك شمال ع الماوس يكون ذلك بكتابة هذا الكود البسيد في حدث ورقة الاكسيل كالتالي : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveCell.Value = " منتدي اوفيسنا العملاق " End Sub جزاك الله خيرا اكتب ما تحدده باستخدام دبل كليك.rar

بارك الله فيك اخي الكريم / عبد الرحمن وستسعد باذن الله بانضمامك لهذه الاسرة الرائعة جزاك الله خيرا

رمضـــان كـــريـــم

بالنسبة لهذا الجزء من الطلب اليكط الرابط التالي موضوع للاخ الحبيب / ضاحي الغريب ان شاء الله به ما تريد http://www.officena.net/ib/index.php?showtopic=47476&page=2 بالنسبة للجزء الثاني من الطلب اليك ايضا الرابط التالي حيث به ما تريد ان شاء الله بالنسبة لزيادة الاعمدة http://www.officena.net/ib/index.php?showtopic=46295&hl=%2B%D8%B2%D9%8A%D8%A7%D8%AF%D8%A9+%2B%D8%A7%D9%84%D8%A7%D8%B9%D9%85%D8%AF%D8%A9

السلام عليكم استاذنا القدير / محمد صالح بارك الله فيك كنت استخدم هذه الاكواد وهذه الخاصية منذ فترة ولكني لم اكن اعلم انها لك انت استاذنا فلك مني كل شكر وتقدير واحترام وكما يفعل الانجليز عند اعجابهم بشخص .... نرفع القبعة لك استاذنا جزاك الله خيرا

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

السلام عليكم الاستاذ والاخ العزيز / عباس السماوي بارك الله فيك والله لا اجد كلمات ترد علي روعة وحلاوة ردك انت علي الموضوع سوي ان الموضوع وصاحبه زادهم شرف بردك عليهم وثناءك واعجابك بالموضوع حفظك الله وحفظ جميع الأهل والاحباب جزاك الله خيرا

السلام عليكم الاخ الكريم / هاني مصطفي بارك الله فيك لنقل القوائم الي ملفك اتبع الشرح الموجود بالمشاركة رقم 18# بها نفس الطلب للاخ / ريان جزاك الله خيرا

السلام عليكم الاخ الكريم / ريان أحمد بارك الله فيك علي كلماتك الجميله وبخصوص نقله الي ملفك قم بنقل الفورم الموجودة بالملف جميعها وكذلك الموديلات الي ملف عن طريق Export File ثم بعد ذلك ادخلهم لملفك باستخدام Import File وبعد ذلك قم بوضع الكود التالي في حدث ThisWorkbook Private Sub Workbook_Open() Call jjj UserForm3.Hide UserForm5.Hide End Sub وان شاء الله يعمل معك بشكل جيد وان لم تستطع لو من الممكن ارفاق الملف وسيتم العمل عليه ومعك دائما باذن الله جزاك الله خيرا

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

السلام عليكم الاخت الفاضلة / أم عبد الله بارك الله فيكي وتقبلي تحياتي ردك عندي بهذا الكلام الذي لا اجد ما ارد به عليه هو اجمل من الموضوع نفسه وهذا ما تعلمناه في هذا الصرح العملاق من اساتذتنا ( ان لا ينسب الحق الا لأصحابه ) جزاك الله خيرا

أحى الحبيب ( إسلام الشيمى ) بارك الله فيك وفى مرورك وكلماتك الطيبة وجزاك الله عنى خير الجزاء

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

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

السلام عليكم الاخ والاستاذ / سعيد بيرم لك مني اجمل تحيه وشرف لي ان يكون لي صديق مثلك والف مليون شكر لهذا الصرح العملاق لانه جعلني اتعرف علي اشخاص مثلك جزاك الله خيرا

السلام عليكم الاستاذ الكريم / سعيد بيرم اليك طريقة حماية الـــ VBA بكلمة سر بشرح فيديو طريقة عمل باسور لمحرر الاكواد.rar

السلام عليكم الاخ الكريم / سعيد بيرم جرب استخدام الكود التالي في حدث الورقة المراد حماية معادلات بها Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub او قم بتسمية الخلايا المراد حمايتها كلها باسم نطاق واحد وليكن مثلا كما في الكود التالي يكون اسم النطاق myrange ليكون الكود كالتالي وهو يعتمد علي قيمة الخلية T1 اذا كانت فارغة لا يمكن التغيير في المعادلات واذا تم الكتابة فيها يمكنك تغيير ذلك Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub ولعمل حماية للمعادلات واظهار رسالة عندما يريد المستخدم التعديل قم بوضع الكود التالي في النطاق الذي تريده Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("c3:p10")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفوا ليس لديكم الصلاحية لاتمام هذا الاجراء" End If End sub جزاك الله خيرا

السلام عليكم الاخ الكريم / أبو چيداء جزاك الله خيرا اليك الرابط التالي عله ينفع معك طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة http://www.officena.net/ib/index.php?showtopic=45232 جزاك الله خيرا

السلام عليكم الاخ الكريم / أبو چيداء ضع الكود التالي في حدث ThisWorkbook علي اعتبار ان الفورم باسم UserForm1 Private Sub Workbook_Open() UserForm1.Show End Sub جزاك الله خيرا فتح الفورم عند فتح الملف.rar

السلام عليكم الاستاذ / مجدى يونس جميل جدا جميع مشاركتك فكلها افادة دائماً جزاك الله خيرا

الحمد لله توصلت لعمل نص متحرك ولكن مع هذه الصفحة لا يمكن استعمال اى شئ آخر فلا تستطيع الكتابة او الحساب فلماذا؟؟؟ تحريك.rar