اذهب الي المحتوي
أوفيسنا

حسين مامون

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,280

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

  • Days Won

    6

Community Answers

  1. حسين مامون
    حسين مامون's post in تعديل فى كود vpa was marked as the answer   
    تفضل
    تجربة.xlsm
  2. حسين مامون
    حسين مامون's post in كود بحث was marked as the answer   
    كان عليك البحث في المنتدى اولا
    اليك الموضوع التالي فيه ضالتك
     
  3. حسين مامون
    حسين مامون's post in يرجى تعديل زر الحذف والتعديل في اليوزرفورم was marked as the answer   
    تفضل
    يرجى تعديل كود الحذف والتعديل (1).xlsm
  4. حسين مامون
    حسين مامون's post in ايجاد معادلة أفضل من التي استخدمتها في ملف القيم was marked as the answer   
    القيم __.xlsm
  5. حسين مامون
    حسين مامون's post in مساعدة على حل مشكلة التاريخ في التكست بوكس was marked as the answer   
    تفضل 
    جرب المرفق
    hg.xlsm
  6. حسين مامون
    حسين مامون's post in اريد عند عمل لصق ارتباط من خلية بها تاريخ ينقل فقط ، وعندما يكون خالي يكون اللصق هناك خالي ايضا was marked as the answer   
    ضع هذا الشيء في الخلية g7  واسحب نزولا
    =if(K7;K7;"") و نفس الشيء في c7
  7. حسين مامون
    حسين مامون's post in اريد عند عمل لصق ارتباط من خلية بها تاريخ ينقل فقط ، وعندما يكون خالي يكون اللصق هناك خالي ايضا was marked as the answer   
    ضع هذا الشيء في الخلية g7  واسحب نزولا
    =if(K7;K7;"") و نفس الشيء في c7
  8. حسين مامون
    حسين مامون's post in اريد عند عمل لصق ارتباط من خلية بها تاريخ ينقل فقط ، وعندما يكون خالي يكون اللصق هناك خالي ايضا was marked as the answer   
    ضع هذا الشيء في الخلية g7  واسحب نزولا
    =if(K7;K7;"") و نفس الشيء في c7
  9. حسين مامون
    حسين مامون's post in تشغيل صوت mp3 ( تلقائي) بدون ضغط أي زر عند ظهور اليوزرفورم was marked as the answer   
    تعديل.rar
  10. حسين مامون
    حسين مامون's post in المساعدة بعمل الاكواد بهذا اليوزرفورم was marked as the answer   
    تفضل
    New 5.xlsm
  11. حسين مامون
    حسين مامون's post in طلب كود نسخ الخلايا السابقة بشرط was marked as the answer   
    تفضل اخي الكريم
    ملئ بشرط.xlsm
  12. حسين مامون
    حسين مامون's post in جلب البيانات بالكود بدل الدوال was marked as the answer   
    ممكن تسرح اكثر لم افهم شيء مما طلبت
     
  13. حسين مامون
    حسين مامون's post in مطلوب قائمة منسدلة غريبة شوية was marked as the answer   
    تفضل ربما يكون المرفق ما تريد
    الاكواد اظنها للاستاد ياسر ابو البراء جزاه الله خير الجزاء 
    قمت بتعديلها حسب طلبك 
    قوائم مترابطة (2).xlsm
  14. حسين مامون
    حسين مامون's post in تاريخ نهاية خدمة موظف was marked as the answer   
    الاخوة الافاضل
    لمن يريد معرفة تاريخ نهاية خدمة موظفين
    اليكم الملف
    معرفة السن القانوني لتقاعد الموظف.xlsm
  15. حسين مامون
    حسين مامون's post in حفظ الاسم المكرر was marked as the answer   
    تفضل
    Sub RectangleRoundedCorners222_Click() 'On Error Resume Next 'Sheets("ÍÓÇÈ").Range("A1:h10").ExportAsFixedFormat xlTypePDF, Filename:="e:\pdf\" & Sheets("ÍÓÇÈ").Range("b3").Value & Sheets("ÍÓÇÈ").Range("a3").Value, openafterpublish:=True Dim sh As Worksheet Dim R Dim fil_name Set sh = ThisWorkbook.Worksheets("حساب") fil_name = sh.Range("b3") & " " & sh.Range("a3") Set R = sh.Range("a1:h10") R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name sh.Range("a1:h29").PrintOut End Sub  
  16. حسين مامون
    حسين مامون's post in تعديل الكود ليتم الترحيل بعدد معين was marked as the answer   
    حرب ورد علي
    lable (1).xlsm
  17. حسين مامون
    حسين مامون's post in تعديل كود الإنتقال الى تاريخ محدد was marked as the answer   
    جرب هذا الكود
    Sub Bevel1_Click() Dim sh For Each sh In Sheets If Format(Sheets("main").Range("m3"), "d") = sh.Name Then sh.Activate Range("I6").Select Exit For End If Next End Sub  
  18. حسين مامون
    حسين مامون's post in سن نهاية الخدمة was marked as the answer   
    تم تغيير تنسيق التاريخ في العموديين فقط
    مواقع استخدام العناصر 2021 - Copy (1).xlsm
  19. حسين مامون
    حسين مامون's post in تعبئة تلقائية بال VBA was marked as the answer   
    تفضل
    vlookup.xlsm
  20. حسين مامون
    حسين مامون's post in طلب تعديل (كود بحث) لا يظهر كود صنف يحتوى على حروف انجليزية was marked as the answer   
    غير هذا السطر في البحث بالكود 
    If C Like "*" & TextBox21.Value & "*" Then الى هذا
    If C Like TextBox21.Value & "*" Then ولابد من استعمال الاحرف الكبيرة في البحث
  21. حسين مامون
    حسين مامون's post in انشاء شيت تلقائي was marked as the answer   
    تفضل
    55.xlsm
  22. حسين مامون
    حسين مامون's post in استخراج العلامة النهائية من النسبة المئوية was marked as the answer   
    عدل تنسيق العمود فقط
    اولا حدد العمود
    ثم زر الماوس الايمن format cellule
    انظر الصورة


    علامات.xlsx
  23. حسين مامون
    حسين مامون's post in معادلة تخرج لي قائمة غير المسددين للشهر بصفحة أخرى was marked as the answer   
    جرب المرفق
    ادخل الفترة في الخلية b3  ثم اضغط الزر
    متابعة الاقتطاع الشهري.xlsm
  24. حسين مامون
    حسين مامون's post in كود يستخرج البيانات من الليست بوكس الموجود داخل الشيت ويرحل بيانات الليست داخل خلايا في الشيت was marked as the answer   
    الاخ الكريم 
    مع انك لم ترفع ملف فيه شرح كافي لما تريد 
    اليك المرفق
    test2021.xlsm
  25. حسين مامون
    حسين مامون's post in كود او معادلة لاضافة سطور حسب الشهر الحالي وعدد الاقساط was marked as the answer   
    جرب هذا الكود
    Sub test() Dim lr, lr2, lrw Dim x, w, dt, rg Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row Range("n6:p10000").ClearContents For x = 6 To lr Set rg = Cells(x, "c") dt = Cells(x, "b") If Cells(x, "c") >= 1 Then lr2 = Cells(Rows.Count, "n").End(xlUp).Row For w = 1 To rg lrw = Cells(Rows.Count, "p").End(xlUp).Row If dt = CDate(Range("p3")) Then GoTo 1 Range("n" & lrw + 1) = Cells(x, 1) Range("O" & lrw + 1).Value = Format(DateAdd("m", 1, dt), "mm-yyyy") Range("p" & lrw + 1).Value = rg - 1 dt = Format(DateAdd("m", 1, dt), "mm-yyyy") rg = rg - 1 Next w End If 1: Next x Application.ScreenUpdating = True End Sub  
×
×
  • اضف...

Important Information

  I accept