اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Wael Hamed_1975

02 الأعضاء
  • Posts

    54
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو Wael Hamed_1975

  1. الأخوة الافاضل السلام عليكم ورحمة الله وبركاتة.محتاج كود ترحيل بشرط ناجح أو راسب وشكرا جزيلا MY_RESULT.xlsm
  2. شكراً سيدي الفاضل على مد يد المساعدة. يوجد حل اخر والحمد لله وجدته Book AS LINK.xlsx
  3. الاخوة الافاضل برجاء المساعدة في الملف المرفق عن طريق المعادلات وشكراً Book AS LINK.xlsx
  4. تم إيجاد الكود Sub dd() Dim lr As Integer lr = [a1000].End(xlUp).Row + 1 Rows(lr & ":" & 26).Delete shift:=xlUp End Sub
  5. للأسف الكود لا يعمل صحيح يأهل الخير مساعدة.
  6. برجاء المساعدة في طريق حذف الصفوف بعد اخر خلية نشطة وشكراً MY_Book3.xlsm
  7. * الاخوة الافاضل بعد التحية دائماً ما تعطي دالة vlookup القيمة الاولي في البحث .فهل يمكن ان نجعلها تعطي اخر قيمة اي الاخيرة وشكراً جزيلاً
  8. انت رائع حقاً يا صديقي.جزاك الله كل الخير.ادخلت السرور الى قلبي.اللهم اجعل لك من كل ضيق فرجاً ومخرجاً. /احمد يوسف له كل الاحترام انسان محترم.جزاه الله خيراً
  9. الرجاء المساعدة مثل الملف المرفق.لاني محتاج احفظ كم كبير من الفواتير الي بي دي اف.وهو شيئ مرهق والوقت ضيق للاسف. برجاء المساعدة وجزاكم الله عنا كل خير.وشكراً جزيلاً حفظ بي دي اف.xlsm
  10. شكراً للأخوة المحترمين جزاهم الله كل خير وجعلهم في ميزان حسناتهم ومتعهم باسماعهم وابصارهم .ورزقهم خير الدنيا والاخرة.
  11. الكثير من الاكواد بها هذان الامران ولقد بحثت في مواقع اجنبية كثيرة ولكن للاسف الشديد لم افهم المقصود منهما برجاء شرح الاوامر حتي يتسنا لي وللبعض فهم الاكواد وشكراً
  12. بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته هل يوجد طريقة معينة لتشغيل عدد معين من الماكروهات بمعني ان لدينا ماكرو 1 وماكرو 2 هل يمكن عمل ماكرو 3 ليقوم نتشغيل ماكرو رقم 1 + ماكرو 2 وشكراً
  13. بسم الله الرحمن الرحيم ممكن من الاخوة الافاضل بالمنتدي الكريم [ اوفيسنا ] شرح الامر resize حيث نجده في كثير من الاكواد وبخاصة الترحيل ممكن شرح الامر وجزاكم الله خيراً
  14. برجاء القاء الضوء على هذا الموضوع لاصحاب الخبرة محتاج نطاق ديناميكي او مطاط للطباعة.وشكرا للمساعدة الاصناف.xlsm
  15. تم اختصار الكود sub aaa() for i=3 to 10000 If Range( i , "Y").Value > 0 Then cells(i,"y").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 End If next end sub
  16. لا اتحدث عن ملف معين ولكن اتحدث عموماً.وشكراً
  17. اساتذة المنتدي العظام برجاء الشرح والتوضيح لنا لماذا تظهر هذه الرسالة وماذا تعني برجاء القاء الضوء. وشكراً جزيلاً
  18. معك حق ولكن الفكرة هي كيفية استخدام الدالتين باسلوب سهل وتكوين دالة جديدة سهلة الاستخدام
×
×
  • اضف...

Important Information