mohamadhaje

ارجو مساعدتي بانشاء زر ترحيل وانشاء فاتورة جديدة وحساب تلقائي للقيم الاجمالية لايتاثر بالترحيل ولم جزيل الشكر حساب.xlsm

هل يوجد برامج تسمح بعمل تطبيق مجاني كموقع الاب شئت وهي افضل منه

السلام عليكم ورحمة الله وبركاته ارجو المساعدة في نقل صف كامل الى ورقة اخرى عندما تكون قيمة الخلية محددة وفي ملفي عندما تكون قيمة الخلية منفذ تنتقا تلقائيا الى الورقة الثنية وشكرا لكم مسبقا على المساعدة علما انني استخدمت هذا الكود ولم يعمل 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

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

السلام عليكم ورحمة الله وبركاته المرفق الجمع المطلوب ضمن الملف جمع 2.xlsx

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

السلام عليكم ورحمة الله وبركاته اريد ان أجمع قيم عمود بشرط الفرق بين تاريخ اليوم وقبل 16 يوم بشكل دائم جمع.xlsx

جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته استخدام دالة الجمع بشرط مادة معينة وشرط تاريخ اليوم ارجو المساعدة في إيجاد مجموع مادة معينة بتاريخ اليوم ولكم جزيل الشكر ‏‏‏‏انتاج.xlsx

السلام عليكم ورحمة الله وبركاته الطابعة لاترى الروتر وتبقى اشارة X قو ااشارة الواي في علما ان الكمبيوتر يرى الطابعة ولكن لا استطيع الاتصال بالطابعة والروتر معا اما اتصل بالطابعة فلا يبقى اتصال بالنت جزاكم الله خيرا

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

السلام عليكم ورحمة الله وبركاته ارجو المساعدة في تصحيح الخطأ في عملية الترحيل ترحيل1.xlsm

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

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

السلام عليكم ورحمة الله وبركاته كيف انشئ نموذج وادخل البيانات فيه وترحل الى جداول مختلفة اريد الترحيل حسب اسم الجدول مثلا اختار H1 فيتم الترحيل اليه وهكذا عندما اختار H2 او H3 ولكم جزيل الشكر M.accdb