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

mohamadhaje

03 عضو مميز
  • Posts

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

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

السمعه بالموقع

3 Neutral

1 متابع

عن العضو mohamadhaje

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    اداري

اخر الزوار

1,960 زياره للملف الشخصي
  1. ارجو مساعدتي بانشاء زر ترحيل وانشاء فاتورة جديدة وحساب تلقائي للقيم الاجمالية لايتاثر بالترحيل ولم جزيل الشكر حساب.xlsm
  2. هل يوجد برامج تسمح بعمل تطبيق مجاني كموقع الاب شئت وهي افضل منه
  3. السلام عليكم ورحمة الله وبركاته ارجو المساعدة في نقل صف كامل الى ورقة اخرى عندما تكون قيمة الخلية محددة وفي ملفي عندما تكون قيمة الخلية منفذ تنتقا تلقائيا الى الورقة الثنية وشكرا لكم مسبقا على المساعدة علما انني استخدمت هذا الكود ولم يعمل Sub Cheezy() Dim xRg As Range Dim xCell As Range Dim I As Long Dim J As Long Dim K As Long I = Worksheets("Sheet1").UsedRange.Rows.Count J = Worksheets("Sheet2").UsedRange.Rows.Count If J = 1 Then If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0 End If Set xRg = Worksheets("Sheet1").Range("C1:C" & I) On Error Resume Next Application.ScreenUpdating = False For K = 1 To xRg.Count If CStr(xRg(K).Value) = "منفذ" Then xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1) xRg(K).EntireRow.Delete If CStr(xRg(K).Value) = "منفذ" Then K = K - 1 End If J = J + 1 End If Next Application.ScreenUpdating = True End Sub تطبيق طلبات.xlsx
  4. السلام عليكم ورحمة الله وبركاته كيف يمكن ترحيل بيانات من ورقة إلى أخرى عن تحقق شرط معين مثلا في المرفق اريد تحويل الطلبات المنفذة إلى ورقة أخرى وهل يمكن تطبيق الدالة نفسها في كوكل شئت ولكم جزيل الشكر طلبات.xlsx
  5. السلام عليكم ورحمة الله وبركاته المرفق الجمع المطلوب ضمن الملف جمع 2.xlsx
  6. السلام عليكم اخ طارق مشكور على الاجابة ولكن الذي اريد جمع القيم التي قبل 15 يوم في العمود ويتم الثحديث في اليو م التالي مثلا عندي اليوم قيمتين في العمود وغدا تصبح ثلاثة وهكذا ارجو ان اكون وفقت في طرح المسالة
  7. السلام عليكم ورحمة الله وبركاته اريد ان أجمع قيم عمود بشرط الفرق بين تاريخ اليوم وقبل 16 يوم بشكل دائم جمع.xlsx
  8. السلام عليكم ورحمة الله وبركاته استخدام دالة الجمع بشرط مادة معينة وشرط تاريخ اليوم ارجو المساعدة في إيجاد مجموع مادة معينة بتاريخ اليوم ولكم جزيل الشكر ‏‏‏‏انتاج.xlsx
  9. السلام عليكم ورحمة الله وبركاته الطابعة لاترى الروتر وتبقى اشارة X قو ااشارة الواي في علما ان الكمبيوتر يرى الطابعة ولكن لا استطيع الاتصال بالطابعة والروتر معا اما اتصل بالطابعة فلا يبقى اتصال بالنت جزاكم الله خيرا
  10. Sub Button1_Click() On Error Resume Next If Range("a13") = "" Or Range("b13") = "" Or Range("c13") = "" Then MsgBox "ÈÑÌÇÁ ÇßãÇá ÇáÈíÇäÇÊ", vbDefaultButton1, "ßæÏ ÇáÊÑÍíá " Else azsh = ãÈíÚÇÊ.Range("c50000").End(xlUp).Row + 1 æÇÌåÉ.Range("A3:AA13").Copy ãÈíÚÇÊ.Cells(azsh, 1).PasteSpecial Paste:=xlPasteValues MsgBox "Êã ÈäÌÇÍ", vbDefaultButton1, "ßæÏ ÇáÊÑÍíá " æÇÌåÉ.Range("A13:AA13") = "" End If End Sub مشكور هذا الكود ترحيل1.xlsm
  11. السلام عليكم ورحمة الله وبركاته ارجو المساعدة في تصحيح الخطأ في عملية الترحيل ترحيل1.xlsm
  12. السلام عليكم ورحمة الله وبركاته هل يمكن ادارج تاريخ على صفحات وورد كمفكرة يعني كل صفحة تاريخ والصفحة التي بعدها التاريخ الذي بعد وهكذا كعملية الترقيم
  13. السلام عليكم ورحمة الله وبركاته هل يمكن ادارج تاريخ على صفحات وورد كمفكرة يعني كل صفحة تاريخ والصفحة التي بعدها التاريخ الذي بعد وهكذا كعملية الترقيم
  14. السلام عليكم ورحمة الله وبركاته كيف انشئ نموذج وادخل البيانات فيه وترحل الى جداول مختلفة اريد الترحيل حسب اسم الجدول مثلا اختار H1 فيتم الترحيل اليه وهكذا عندما اختار H2 او H3 ولكم جزيل الشكر M.accdb
×
×
  • اضف...

Important Information