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

عادة يتم اغلاق الاكسل بعد العمل باكثر من طريقة بعد التصدير: مع تغيير objWbk و objWbk كما هو مسمى عندك في امر الاستيراد جرب: If Not objWbk Is Nothing Then Set objWbk = Nothing f Not objXL Is Nothing Then objXL.Quit Set objXL = Nothing End If

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

حسب فهمي لسؤالك انت تريد كود في زر امر الحفظ يقوم باضافة الكمية الموجودة في نموذج ادراج صنف لنفس الصنف الذي يظهر في الجدول أليس كذلك؟ واذا كان لايوجد في الجدول فيقوم باضافته اذا كان كذلك فاعتقد ان نموذج ادراج صنف يقوم بهذه العملية اصلاً فاذا اردت نفس العملية تتم لكن من خلال زر امر حفظ فعليك بالمرفق التالي الجرد2.mdb

تمت معالجة البيع النقدي بحيث يظهر في المدفوعات وتم عمل الرصيد حسب طلبك client1.rar

استاذي الرسايل للاسف ما بفهم بالانجليزي هذا اعتقد لما تكون تكرر نفس الرقم لكن علي العموم انا عملت لك خطوتين كما بالصوره بشان ظهور الاجمالي فقط وانا شاء الله تجد حل من الاخوان او بحاول اشوفها لك غدا باذن الله

وعليكم السلام ورحمة الله وبركاته تفضل طريقة ادخال الايام وارقامها في حقول غير منضمة برمجيا Databasewaz.rar

تفضل صديقي تقريرين لكن بدون تنسيق لضيق الوقت BridSalen005.rar

وعليكم السلام هذا التعديل على مرفقك في مشاركتك الأولى تم دمجها هنا لعدم التكرار.. حل سريع اطلع عليه أخي Database1.rar

اخي الكريم .. ضع SavRef = 1 بعد DoCmd.Save لزر الامر حذف

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

شكرا لمجهودك واتمني القى حل من الاساتذه خبراء الاكسل وجزاك الله كل خير

أوضحت لك من قبل هذا الكود يمسح فقط البيانات المتشابهة ولا يمسح الصف بأكمله اذا لم يشابه أو يساوى باقى البيانات

هذا حسب معرفتي المتواضعه والاخو اهل الخبرة لم يقصرو 999999.mdb

اذا اردت ان تجمع كل الخلايا من العامود B في كل الصفحات اليك هذا الماكرو Option Explicit Option Base 1 '======================================= Private Sub CCMD_1_Click() sum_all_rows_in_all_sheets End Sub '=========================================== Sub sum_all_rows_in_all_sheets() Dim first_sheet$: first_sheet = Sheets(3).Name Dim last_sheet$: last_sheet = Sheets(Sheets.Count - 1).Name Dim arr(), lr%, i%, My_Max%: My_Max = 0 Dim t$, last_row% last_row = Sheets("Main_sh").Cells(Rows.Count, 2).End(3).Row Sheets("Main_sh").Range("b3:b" & last_row).ClearContents Dim First_row%: First_row = 4 For i = 3 To Sheets.Count - 1 lr = Sheets(i).Cells(Rows.Count, 2).End(3).Row If lr < 3 Then lr = 3 ReDim Preserve arr(i - 2): arr(i - 2) = lr Next For i = LBound(arr) To UBound(arr) If My_Max < arr(i) Then My_Max = arr(i) Next t = "=SUM(" & first_sheet & ":" & last_sheet & "!B" & First_row & ")" With Sheets("Main_sh").Cells(3, "b").Resize(My_Max - 3, 1) .Formula = t .Value = .Value End With End Sub '======================================== الملف مرفق تجميع قيم salim 2.xlsm

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

وعليكم السلام ممكن تجرب هذا اذا تشابه قيمة العمود (DH) مع العمود (JW).xlsm

السلام عليكم الف الف تحية وجزاكم الله خيرا

ان شاء الله تفضل أخى krimo.xlsx

اخي الكريم تحفظه بصيغه mdb اذا كان عربي على اليمن ملف وتحت تجد حفظ & نشر وفي اليسارaccess2002-2003 ثم تختار حفظ باسم

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

تفضل الملف مع المعادلة (الاصح) =CHOOSE((MOD(SUM(A3:C3)/3,1)>=0.5)+1,FLOOR(SUM(A3:C3)/3,0.5),CEILING(SUM(A3:C3)/3,0.5)) الملف book_salim.xlsx

صحيح انا وضعت الشرط بناء على رقم العملية ظنا مني ان رقم العملية ثابت تم تعديل الشرط بناء على العملية client8.rar

جرب هذا اعتقد هو مطلوبك DoCmd.OutputTo acOutputTable, "tbl_student", 8, "C:\" & "Student" & ".xls", False, "", 0 ولو حذفت رقم 8 الظاهر وابقيت على الفاصلة سوف يظهر لك مربع حوار لاختيار الصيغة والتنسيق ,, واعتقد هذا خاص لمن يعمل على 2003

جزاك الله خيرا كثيرا وبارك الله فيك ولكنى كنت أريد أن يظهر نوع الأجازة وليس اسم الموظف فقد قمت بتغيير الجزء الأول من المعادلة ومش الحال فأصبحت المعادلة كالتالى =IFERROR(INDEX(vacance!$E$4:$E$26,SMALL(IF(vacance!$C$4:$C$26=C$7,IF(vacance!$B$4:$B$26=$C$2,ROW($C$4:$C$26)-ROW($C$4)+1)),ROWS($A$1:A1))),"")

هل تقصد هكذا .. الجرد.mdb

تفضل db1w.rar

تفضل اخي الكريم .. اتمنى ان يكون هو المطلوب الجرد.mdb

وهذا حل آخر باستخدام مربع قائمة في نموذج خارج نموذج الفاتورة للبحث عن الأصناف .. أنقر مرتين على اسم الصنف اضافة صنف من مربع قائمة.accdb

رائـــــــع جزاك الله كل خير وبارك الله فيك الى الأمام دائما أستاذى

السلام عليكم ورحمة الله اضف هذا السطر قبل آخر Next ws.Range("C1").Value = ws.Name

بارك الله فيك أستاذنا الفاضل وجزاك خير الجزاء بالتأكيد هذا هو المطلوب الله يوفقك دنيا وآخره ويبارك لك في مالك ويصلح لك ذزيتك .آمين

السلام عليكم ورحمة الله استبدل الكود السابق بهذا الكود Sub AddSheets() Dim List As Range, C As Range Application.ScreenUpdating = False Set List = Sheet1.Range("B4:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row) On Error Resume Next For Each C In List If Len(Trim(C.Value)) > 0 Then If Len(Worksheets(C.Value).Name) = 0 Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = C.Value End If End If Next Dim Sh As Worksheet, ws As Worksheet Set Sh = Sheets("ahmed") Sh.UsedRange.Copy For Each ws In ThisWorkbook.Worksheets If ws.Name <> Sheets("Sheet1").Name Then ws.Range("A1").PasteSpecial xlPasteFormats ws.Range("A1").PasteSpecial xlPasteFormulas End If Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

تم تعديل الماكرو ليعمل في جميع الظروف حتى ولو تم تغيير اسماء الصفحات من 1و2و3 الى ما تريد من اسماء شرط اضافة الشيتات بين الصفحتين "تجميع " و "طباعة" Option Explicit Private Sub Worksheet_Activate() Dim t Dim first_sheet$: first_sheet = Sheets(3).Name Dim last_sheet$: last_sheet = Sheets(Sheets.Count - 1).Name ActiveSheet.Range("b3:b1000").ClearContents t = "=SUM(" & first_sheet & ":" & last_sheet & "!B4)" With Cells(3, "b").Resize(Sheets.Count - 3, 1) .Formula = t .Value = .Value End With End Sub الملف مع تغيير اسماء الشيتات تجميع قيم salim 1.xlsm

هذا يحث بالنموذج الاساسي Test41 (1).accdb