أبو شرف

اخووووووووووووووووووووووووووووووووووواني ارجوكم فقط امكانية الطباعة مع التقدير

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

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

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

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

اخواني اشكركم جزيل الشكر اخي محمود هل بالأمكان تزويدنا بمعلومات او صور اكثر شاكرين لك جزيل الشكر

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

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

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

اخواني الأعزاء لدي نظام مخزني متكامل من حيث العمل ومناسب جدا لنا ولكن هناك مشكلة في الأشارة الخاصة بالسعر في الحقل (H) حيث اني وبمساعدة جميع اخواني في الموقع اعطيت اشارة (- ) سالبة الى عمليات الشراء , والترجيع وباقي العمليات كلها هي بأشارة موجبة ولكي استخرج اي رصيد او اي حركة , مجرد اجمع حيث ان السالب مع الموجب يعطيني الرصيد وهذه هي الفكرة من العمل ولكن اشارة اسعر تكون سالبة عند امر شراء وايضا سالبة عند امر ترجيع وهذا ما يجعل لي مشكلة لذلك اتمنى من اخواني تعديل العمل ورفع الأشارة من الحق (H) نهائي لذلك واكرر لا حتاج سوى رفع الأشارة عند الترحيل من الحقل ( H) لا اكثر وهذا هو الكود بالكامل ارجو مساعدتي وانا صار لي اكثر من شهر واكتب بالموقع ولم اجد اي شخص يساعدني في هذا الخصوص علما ان اصل الفاتورة هي للأستاذ خبور المحترم كما ارفق لكم نسخة من البرنامج واليكم الكود بعد تعديلات الأصدقاء ................. وفقكم الله Dim KHBOOR As Integer Private Sub Combo_AMIL_Change() End Sub Private Sub Combo_NO_Change() On Error Resume Next Dim UU As String Dim NN As Integer, S As Integer, R As Integer If TabStrip1.Value = 0 Then GoTo 1 UU = Combo_NO.Text Combo_NO.Text = Format(UU, "0000") For S = 0 To 99 Me.Controls.Item(S).Text = "" Next TextBox43.Text = "" Combo_AMIL.Text = "" Label27.Caption = "" LastRow = Cells(Rows.Count, "E").End(xlUp).Row NN = 0 For S = 7 To LastRow If Cells(S, 3).Text = UU Then For R = 1 To 10 Select Case R Case 4 If ComboBox21.Text = "ÊÑÌíÚ" Or ComboBox21.Text = "ÔÑÇÁ" Then Me.Controls.Item(NN + R - 1).Value = -Cells(S, R + 4).Value Else Me.Controls.Item(NN + R - 1).Value = Cells(S, R + 4).Value End If Case Else Me.Controls.Item(NN + R - 1).Value = Cells(S, R + 4).Value End Select Next Label27.Caption = Format(Cells(S, 2).Value, "yyyy/mm/dd") Combo_AMIL.Text = Cells(S, 4).Value ComboBox21.Text = Cells(S, 10).Value TextBox85.Text = Cells(S, 11).Value TextBox86.Text = Cells(S, 12).Value TextBox43 = Val(TextBox43) + Val(Me.Controls.Item(NN + 4)) NN = NN + 5 End If Next TextBox43 = Format(TextBox43, "#,##0.00") Label22.Caption = "" & NoToTxt2(Val(TextBox43), "ÏæáÇÑ", "ÓäÊ") On Error GoTo 0 1 End Sub Private Sub CommandButton1_Click() On Error Resume Next Dim KH As Integer Dim S As Long, R As Long If TabStrip1.Value = 1 Then GoTo 2 KH_NO = Range("ÑÞã_ÇáÝÇÊæÑÉ")(2) If Combo_AMIL.Text = "" Or ComboBox21.Text = "" Or TextBox85.Text = "" Then GoTo 1 LastRow = Cells(Rows.Count, "B").End(xlUp).Row KH = 0 M = 0 T = 0 For S = 1 To 20 If Me.Controls.Item(KH).Text <> "" Then For R = 1 To 5 ' If Me.Controls.Item(KH + R - 1).Text <> "" Then (Êã ÇíÞÇÝ ÍÞ ÇáÕäÝ ááÊÑÍíá ÈÏæäå) T = T + 1 Next M = M + 1 End If KH = KH + 5 Next If T / M <> 5 Then 1 MsgBox "áÇ ÊÓÊØíÚ ÇáÊÑÍíá áæÌæÏ ÃÎØÇÁ Ýí ÇáÝÇÊæÑÉ", 524288, "ÊäÈíå" GoTo 3 End If ' LastRow = Cells(Rows.Count, "B").End(xlUp).Row KH = 0 For S = 1 To M Cells(LastRow + S, 2) = Date Cells(LastRow + S, 3) = KH_NO Cells(LastRow + S, 4) = Combo_AMIL.Text Cells(LastRow + S, 10) = ComboBox21.Text Cells(LastRow + S, 11) = TextBox85.Text Cells(LastRow + S, 12) = ComboBox22.Text Cells(LastRow + S, 5) = Me.Controls.Item(KH).Value Cells(LastRow + S, 6) = Me.Controls.Item(KH + 1).Value If ComboBox21.Text = "ÊÑÌíÚ" Or ComboBox21.Text = "ÔÑÇÁ" Then For R = 3 To 5 Cells(LastRow + S, R + 4) = "-" & Me.Controls.Item(KH + R - 1).Value Next Else For R = 3 To 5 Cells(LastRow + S, R + 4) = Me.Controls.Item(KH + R - 1).Value Next End If KH = KH + 5 Next If MsgBox(" Êã ÇáÊÑÍíá ÈäÌÇÍ" _ & Chr(13) & Chr(13) & "åá ÊÑíÏ ØÈÇÚÉ ÇáÝÇÊæÑÉ ¿¿¿", vbYesNo + vbQuestion + vbMsgBoxRight, "ÊÃßíÏ ØÈÇÚÉ ") = vbYes Then 2 KHBOOR = InputBox("ÝÖáÇð ÃÏÎá ÚÏÏ äÓÎ ÇáÇæÑÇÞ ÇáÐí ÊÑíÏåÇ " & Chr(13) & Chr(13) & "ÇáÇÝÊÑÇÖí äÓÎÉ æÇÍÏÉ", "ÚÏÏ ÇáäÓÎ", "1") KH_PRINT End If End On Error GoTo 0 3 End Sub Private Sub KH_PRINT() On Error Resume Next Dim MM As Integer, SS As Integer MM = 0 For SS = 1 To 20 Me.Controls.Item(MM).ShowDropButtonWhen = 0 MM = MM + 5 Next With Me .Height = 520 .ScrollBars = 0 .CommandButton1.Visible = False .TabStrip1.Visible = False .Combo_AMIL.ShowDropButtonWhen = 0 End With Do Until KHBOOR = 0 Me.PrintForm KHBOOR = KHBOOR - 1 Loop On Error GoTo 0 End Sub Private Sub CommandButton2_Click() Dim i As Integer Dim cl As Range Dim KH As Integer Dim S As Long, R As Long If Combo_AMIL.Text = "" Or ComboBox21.Text = "" Then MsgBox "áÇ ÊÓÊØíÚ ÇáÊÑÍíá áæÌæÏ ÃÎØÇÁ Ýí ÇáÝÇÊæÑÉ", 524288, "ÊäÈíå" GoTo 2 End If For Each cl In Range("C7:C" & Cells(Rows.Count, "C").End(xlUp).Row) If cl.Value = Val(Combo_NO) Then For i = 1 To Application.CountIf(Range("C7:C" & Cells(Rows.Count, "C").End(xlUp).Row), Val(Combo_NO)) '------------- KH = 0 M = 0 T = 0 For S = 1 To 20 If Me.Controls.Item(KH).Text <> "" Then For R = 1 To 10 If Me.Controls.Item(KH + R - 1).Text <> "" Then T = T + 1 End If Next M = M + 1 End If KH = KH + 5 Next If T / M <> 5 Then ' 1 MsgBox "áÇ ÊÓÊØíÚ ÇáÊÑÍíá áæÌæÏ ÃÎØÇÁ Ýí ÇáÝÇÊæÑÉ", 524288, "ÊäÈíå" ' GoTo 2 End If ' LastRow1 = cl.Row KH = 0 '******************************************************************* ' When Items = 1 If M = 1 Then For S = 0 To M - 1 Cells(LastRow1 + S, 2) = Date Cells(LastRow1 + S, 4) = Combo_AMIL.Text Cells(LastRow1 + S, 10) = ComboBox21.Text Cells(LastRow1 + S, 11) = TextBox85.Text ' Cells(LastRow1 + S, 12) = TextBox86.Text Cells(LastRow1 + S, 5) = Me.Controls.Item(KH).Value Cells(LastRow1 + S, 6) = Me.Controls.Item(KH + 1).Value If ComboBox21.Text = "ÊÑÌíÚ" Or ComboBox21.Text = "ÔÑÇÁ" Then For R = 3 To 5 Cells(LastRow1 + S, R + 4) = Me.Controls.Item(KH + R - 1).Value Next Else For R = 3 To 5 Cells(LastRow1 + S, R + 4) = Me.Controls.Item(KH + R - 1).Value Next End If KH = KH + 5 Next Else For S = 0 To M - 2 Cells(LastRow1 + S, 2) = Date Cells(LastRow1 + S, 4) = Combo_AMIL.Text Cells(LastRow1 + S, 10) = ComboBox21.Text Cells(LastRow1 + S, 11) = TextBox85.Text ' Cells(LastRow1 + S, 12) = TextBox86.Text Cells(LastRow1 + S, 5) = Me.Controls.Item(KH).Value Cells(LastRow1 + S, 6) = Me.Controls.Item(KH + 1).Value If ComboBox21.Text = "ÊÑÌíÚ" Or ComboBox21.Text = "ÔÑÇÁ" Then For R = 3 To 5 Cells(LastRow1 + S, R + 4) = Me.Controls.Item(KH + R - 1).Value Next Else For R = 3 To 5 Cells(LastRow1 + S, R + 4) = Me.Controls.Item(KH + R - 1).Value Next End If KH = KH + 5 Next End If '******************************************************************* LastRow1 = LastRow1 + 1 '-------------- Next Exit For End If Next 2 End Sub Private Sub Label40_Click() End Sub Private Sub Label2_Click() End Sub Private Sub Label37_Click() End Sub Private Sub SpinButton1_SpinDown() Dim Y As Date Y = Label27.Caption Label27.Caption = Format(Y - 1, "yyyy/mm/dd") End Sub Private Sub SpinButton1_SpinUp() Dim Y As Date Y = Label27.Caption Label27.Caption = Format(Y + 1, "yyyy/mm/dd") End Sub Private Sub TabStrip1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) On Error Resume Next Dim NN As Integer, S As Integer, R As Integer Dim MM As Integer, SS As Integer 'If TabStrip1.Value = 1 Then GoTo 1 NN = 0 TextBox43.Text = "" MM = 2 For SS = 1 To 20 If Me.Controls.Item(MM).Text <> "" Then Me.Controls.Item(MM + 2).Value = Val(Me.Controls.Item(MM).Text) * Val(Me.Controls.Item(MM + 1).Text) TextBox43 = Val(TextBox43) + Val(Me.Controls.Item(MM + 2)) End If MM = MM + 5 Next Label22.Caption = "" & NoToTxt2(Val(TextBox43), "ÏíäÇÑ", "ÝáÓ") TextBox43 = Format(TextBox43, "#,##0.00") On Error GoTo 0 1 End Sub Private Sub TextBox5_Change() End Sub Private Sub TextBox85_Change() End Sub Private Sub UserForm_Activate() On Error Resume Next Dim NN As Integer, S As Integer, R As Integer If TabStrip1.Value = 0 Then NN = 0 For S = 1 To 20 Me.Controls.Item(NN).RowSource = "ÑÞã_ÇáÕäÝ" Me.Controls.Item(NN).ShowDropButtonWhen = 2 NN = NN + 5 Next Label27.Caption = Format(Date, "yyyy/mm/dd") Combo_NO.Text = Format(Range("ÑÞã_ÇáÝÇÊæÑÉ")(2), "0000") Combo_NO.Locked = True CommandButton2.Enabled = False ElseIf TabStrip1.Value = 1 Then Combo_NO.ShowDropButtonWhen = 2 Combo_NO.Clear NN = 0 For S = 1 To 20 Me.Controls.Item(NN).RowSource = "ÑÞã_ÇáÕäÝ" Me.Controls.Item(NN).ShowDropButtonWhen = 2 NN = NN + 5 Next LastRow = Cells(Rows.Count, "C").End(xlUp).Row For R = 7 To LastRow If Application.WorksheetFunction.CountIf(Range("C7:C" & R), Cells(R, 3).Value) = 1 Then Combo_NO.AddItem Cells(R, 3) End If Next SpinButton1.Visible = False CommandButton1.Caption = "ØÈÇÚÉ" Combo_AMIL.ShowDropButtonWhen = 0 ComboBox21.ShowDropButtonWhen = 0 Combo_NO.ShowDropButtonWhen = 2 Combo_NO.SetFocus End If On Error GoTo 0 End Sub فاتورة حركة بضاعة.rar

اخواني هل من مساعدة عاجلة مع التقدير

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

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

بسم الله الرحمن الرحيم اخواني ارجو منك مساعدتي في هذا الملف المساعدة تحتاج الى دقة في الفهم بعد اذنكم . حيث اني عندما اكتب عملية الشراء او الترجيع ترحل العملية باشارة سالبي وفي البيع والسماح يتم الترحيل بالأشارة الموجدة المشكلة هو عندما اكتب عملية شراء او ترجيع يتم الترحيل بأشارة سالبة وكذلك السعر يكون بأشارة سالبة ارجو منكم الغاء الأشارة السالبة من جدول السعر بحيث في السعر لا تظهر اي اشارة في اي عملية شراء او ترجيع او بيع رجاء مع التقدير فاتورة.rar

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

بسم الله الرحمن الرحيم اخواني الأعزاء انا لدي اكثر من شهر احاول على ترتيب فاتورتي والحمد لله استطيع تحقيق الكثر فيها ولكن محتاج مساعدتكم بأنه عندما اكتب اي رقم بالكمية بعدها اضع نوع العملية ( رصيد . شراء . ترجيع ) تكون الأشارة سالبة تلقائيا ارجومساعتكم بالخصوص . مع التقدير ابو شرف فاتورة 1.xls.rar

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

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

هل من مسسسسسسسسسسسسساعدة

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

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

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

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

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

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