عبدالله باقشير

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

و نعم بالله بيده الخير وهو على كل شي قدير ----------------------------------- فقط اريد اشعارك ان ما لديا من معلومات لا تمكني من القيام بذلك ففوق كل ذي علم عليم تقبل اعتذاري وتحياتي وشكري

السلام عليكم غير كود الزر عرض CommandButton4 بهذا Private Sub CommandButton4_Click() III = 4 Do Until ورقة3.Cells(III, "a").Text = "" If Me.ComboBox1.Text = ورقة3.Cells(III, "a").Text Then With ورقة3.Cells(III, "a") Me.TextBox2 = .Offset(0, 1).Text Me.TextBox3 = .Offset(0, 2).Text Me.TextBox4 = .Offset(0, 3).Text Me.TextBox5 = .Offset(0, 4).Text End With Exit Sub End If III = III + 1 Loop MsgBox ("!!! عفوا .. اختر اسما الذى تبحث عنه") Me.ComboBox1.SetFocus End Sub

السلام عليكم اخي الفاضل/ جمال الفار ---------حفظه الله احسنت بارك الله فيك وجزاك خير الجزاء تقبل تحياتي وشكري

حاول تغير مقاس الخط او اسم الخط للكمبوكس

السلام عليكم نورت المنتدى اخي ابو لميس تقبل تحياتي وشكري

' هذا الكود يرغمك بادخال تاريخ بعد استكمال ادخالاتك بالكامل واذا فرضنا انك ادخلت اليوم فقط يعتمد ادخالك للشهر الحالي وللسنة الحالية Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Const dFT As String = "dd/mm/yyyy" If Not IsDate(Me.TextBox6) Then If IsNumeric(Me.TextBox6) Then Me.TextBox6 = Format(DateSerial(Year(Date), Month(Date), Val(Me.TextBox6)), dFT) Else Me.TextBox6 = Format(Date, dFT) End If Else: Me.TextBox6 = Format(CDate(Me.TextBox6), dFT) End If End Sub ------------------------------------------------------------------------- ويمكنك استخدام نفس الكود خاصتك في نفس الحدث Private Sub TextBox6_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) TextBox6.Value = Format(Date, "dd/mm/yyyy") End Sub

السلام عليكم هكذا يظهر عندي الفورم في ملفك

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

اكرمك الله اخي ابو حنين وبارك فيك وجزاك خيرا وزادك من العلم النافع تقبل تحياتي وشكري

احسنت اخي ابو حنين

السلام عليكم اخي الحبيب دغيدي----------- حفظه الله مع ملاحظة ان ارقام الصفوف توخذ من خلايا الجمع حسب ما فهمت Sub kh_Sum() Dim RngTest As Range Dim R As Integer, C As Integer Dim RR1 As Integer, RR2 As Integer Set RngTest = Range("MySumRow") With Range("A4:H61") For R = 1 To RngTest.Rows.Count RR1 = RngTest.Cells(R, 1).Value RR2 = RngTest.Cells(R, 2).Value For C = 1 To .Columns.Count Range("A64").Cells(R, C) = WorksheetFunction.Sum(Range(.Cells(RR1, C), .Cells(RR2, C))) Next Next End With Set RngTest = Nothing End Sub تفضل المرفق 2003 الجمع بمعلومية خلايا.rar

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

افهم من كلامك انك لا تريد المعادلة نهائيا في الخلية

السلام عليكم لماذا لا تجعل الشرط الذي تريده في نفس المعادلة في العمود L =IF(E3<>0;F3*K3;0) ويبقى الكود مثل ما هو عليه

السلام عليكم المعادلة منقولة ولم اقم الا بتعديلها لتناسب هذا الملف (نسخ ولصق) ================ استاذنا الفاضل ابو علي حفظك الله لي سوال يشغلني اتمنى الرد عليه لاحظت في اعمالك مؤخراً انك تستخدم دالة الشرط IF لكن دون شرط مثال For Each cotl In Me.FrameList.Controls If Len(Trim(cotl)) Then وكذلك في هذا الملف في المعادلة استخدمت دالة IF دون شرط =IF(LEN($A5);INDEX(mydate;$A5;COLUMN());"") فهل الشرط ان تساوي صفر لتكون FALSE واي قيمة لتكون TRUE صحت لسانك الصفر FALSE اي قيمة اخرى غير الصفر TRUE ودمتم في جفظ الله

اخي عبدالله في خطا بسيط في المعادلة في ملفك على ما اظن تحتاج الى اضافة العدد 1 في معادلة تحديد صف النتيجة ارجوا ان تراجعة

السلام عليكم الشكر واصل للاخ الحبيب عبدالله المجرب -------------------------------------- لاثراء الموضوع نضيف عمود بجانب الجدول ونستخدم دالة MATCH بطريقة معينة لتعطينا الصفوف بالتوالي ثم نستخدم دالة INDEX في جميع جدول الاستعلام حسب الصف لنتيجة دالة MATCH المرفق 2007 تمديد1.rar

السلام عليكم ضع المعادلة التالية في الخليه آي 8 ثم اسحبها على باقي الصفوف =IF(SUM(D8:H8);SUBTOTAL(9;$D$8:E8)-SUBTOTAL(9;$F$8:H8);0) ودمتم في حفظ الله

عند الغاء الحماية ActiveSheet.Unprotect "123" عند الحماية ActiveSheet.protect "123" ودمتم في حفظ الله

السلام عليكم Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim R As Integer If Not Intersect(Target.Cells(1, 1), Union(Range("D18:D39"), Range("F18:F39"), Range("O18:O39"))) Is Nothing Then R = Target.Row If Cells(R, "D").Value <> "" Then Cells(R, "C").Value = R - 17 Cells(R, "G").Value = Val(IIf(Cells(R, "O") <> "", Cells(R, "O"), Cells(R, "N"))) Cells(R, "H").Value = Val(Cells(R, "F")) * Val(Cells(R, "G")) Cells(R, "N").Value = WorksheetFunction.VLookup(Cells(R, "D"), [prices], 3, 0) Cells(R, "P").Value = WorksheetFunction.VLookup(Cells(R, "D"), [prices], 4, 0) Cells(R, "Q").Value = (Val(Cells(R, "G")) - Val(Cells(R, "P"))) * Val(Cells(R, "F")) Else Union(Cells(R, "C"), Cells(R, "H"), Cells(R, "N"), Cells(R, "P"), Cells(R, "Q")).ClearContents End If End If On Error GoTo 0 End Sub

تحدد نطاق المعيار من عمودين وصفين في العمود الاول في الصف الاول : تاريخ الولادة في الصف الثاني : ">="&"التاريخ" في العمود الثاني في الصف الاول : تاريخ الولادة في الصف الثاني : "<="&"التاريخ" والله اعلم

غير كود الزر الى التالي Private Sub CommandButton1_Click() On Error GoTo kh_err If ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox "يجب اختيار اسم الورقة و اسم المسار و اسم الملف و اسم المجلد", vbCritical, "خطأ" Exit Sub End If ''''''''''''''''''' Dim MyPathDirectory, MyNime MyPathDirectory = ComboBox1.Text & ":\" & TextBox1.Text & "\" If Dir(MyPathDirectory) = "" Then MsgBox MyPathDirectory & vbCr & "هذا المجلد غير موجود مسبقا", vbCritical, "Faute" Exit Sub End If '''''''''''''''''''' MyNime = TextBox2.Text & ".xls" If Not Dir(MyPathDirectory & MyNime) = "" Then MsgBox "هذا الملف موجود مسبقا يجب اختيار مسار آخر", vbCritical, "Faute" Exit Sub Else Sheets(ComboBox2.Text).Copy With ActiveWorkbook .SaveAs MyPathDirectory & MyNime .Close End With MsgBox "تم حفظ الملف في المسار التالي بنجاح " & vbNewLine & MyPathDirectory & MyNime, vbInformation, "حفظ" Unload Me Application.Quit End If ''''''''''''''''''' kh_err: If Err Then MsgBox "Err.Number : " & Err.Number, vbCritical, "Faute" End If End Sub

السلام عليكم تعديل بسيط لمظهر الفورم في الملف المرفق 2003-2007 Enter.rar

السلام عليكم اخي الحبيب عباد اخي الحبيب amfouad555 حفظكم الله لو عندكم تصور لملف مخزون مرتب حيكون احسن للقيام بالعمل عليه تقبلوا تحياتي وشكري