إبراهيم ابوليله

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

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

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

السلام عليكم ورحمة الله وبركاته اخى عاشق الاسلام --------------------------------------- Set Q = .Range("B2:B" & LastRow).Find(M) هذا السطر هو السطر الخاص بالبحث اى ان البحث سوف يكون بداية من الخليه b2 حتى اخر خليه بها بيانات فى نفس العمود وهو العمود b اى العمود الثانى ListBox1.List(V,0) هذا السطر هو السطر الخاص بتحديد اعمده الليست بوكس وبالاخص كل سطر على حده فرقم صفر هنا يشير الى العمود الاول فى الليست بوكس ولو قمنا بتغير الرقم الى 1 اصبحنا نشير الى العمود الثانى فى الليست بوكس وهكذا Q.Offset(0, 2).Value Q كما قلنا سابقا هو عباره عن عمود البحث وهو العمود الثانى بداية من الخلية B2 Offset(0, 2).Value بمعنى ان الناتج سوف يكون بعد الخليه فى عمود البحث اى بعد الخليه B بمقدار (الصفر يشير الى عدد السطور) اى ان هنا الناتج سوف يكون عباره عن نفس السطر التى به الخليه B الرقم 2 يعن ان الناتج سوف يكون بعد العمود B بمقدار عمودين اى فى العمود D وهكذا لذلك اذا اردت زياده عمود فى الليست افعل الاتى 1-زياده عدد الاعمده من 4 الى 5 كما تم التوضيح من قبل فى الصوره المرفقه فى المشاركه رقم 6 2- قم بزيده الاعمده فى الكود فلو ان اخر عمود فى الكود عباره عن ListBox1.List(V,3) يصبح شكبل الككود ListBox1.List(V,4) 3- تغير الناتج وهنا يجب عليك تحديد العمود الذى سوف يستخرج منه البيانات الخاصه بالعمود المضاف الى الليست فلو انه العمود مثلا F يصبح شكل الكود كالاتى Offset(0,4).Value اى ان الاستخراج سوف يتم بعد العمود B ب باربعه اعمده الى هما C,D,E,F وبذلك يصبح شكل الكود النهائى ListBox1.AddItem Q.Value ListBox1.List(V, 0) = Q.Offset(0, 2).Value ListBox1.List(V, 1) = Q.Offset(0, 1).Value ListBox1.List(V, 2) = Q.Offset(0, 0).Value ListBox1.List(V, 3) = Q.Offset(0, -1).Value ListBox1.List(V, 4) = Q.Offset(0, 4).Value V = V + 1 ارجو ان اكون وفقت فى الشرح فهذا الشرح على قدر فهمى تقبل تحياتى

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

للرفع

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

اخى هل تقصد هكذا مساعدة.rar

اخى اليك الصوره 1.bmp

السلام عليكم ورحمة الله وبركاته ----------------------------- اخى الكريم ........... الخطأ الاول كما هو موضح فى الصوره المرفقه ........................................................ الخطأ الثانى كان فى كتابة الكود فقد كان الكود مكتوب بالشكل الاتى فى حدث التيكسنت بوكس ListBox1.AddItem Q.Value ListBox1.List(V, 1) = Q.Offset(0, 1).Value ListBox1.List(B, 2) = Q.Offset(0, 2).Value ListBox1.List(B, 3) = Q.Offset(0, 3).Value ListBox1.List(B, 4) = Q.Offset(0, 4).Value اما الكود الصحيح فيكون بالشكل الاتى ListBox1.AddItem Q.Value ListBox1.List(V, 0) = Q.Offset(0, 2).Value ListBox1.List(B, 1) = Q.Offset(0, 1).Value ListBox1.List(B, 2) = Q.Offset(0, 0).Value ListBox1.List(B, 3) = Q.Offset(0, -1).Value

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

للرفع

اخى ممكن ارفاق ملف

اخى هل تقصد هكذا textbox1.value= format(date,"dd-mm-yyyy") 'help me تقبل تحياتى

اخى مازن اعزرنى فقد حاولت مره اخرى وفشلت فى انتظار ردود الاساتذه الافاضل تقبل تحياتى

السلام عليكم ورحمة الله وبركاته اخى طاهر تم عمل جزء من المطلوب وهو علم فورم به بيانات خاصه بالمورد-المخزن-الصنف ------------------------------------------------ ولكن كنت اتسائل هل يمكن الاستغناء عن المعادلات الموجوده بالشيت اى انه يمكن الحصول على البيانات الخاصه بكود الاصناف والخاصه باسم العميل واسم المخزن دون الحاجه لوجود المعادلات فى الشيت -------------------------------------------------- ولكل حرية الاختيار فقط انا فى انتظار ردك ------------------------ تقبل حياتى ترحيل1.rar

اخى طاهر السلام عليكم ورحمة الله وبركاتة تم التعديل على كود البحث باسم العميل ------------------------------------ ارجو تجربة الكود جيدا ------------ تقبل تحياتى نموزج فاتورة بدون فورم نهائى.rar

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

اخى الشيبانى اتمنى لك التوفيق تقبل تحياتى

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

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

السلام عليكم ورحمة الله وبركاته اخى الشيبانى استبدل الاكواد الاتيه Private Sub CheckBox100_Click() x = InputBox("Please Enter the Pass Word ??") If x <> "111" Then Exit Sub CheckBox100.Value = False End If For i = 2 To Sheets.Count If CheckBox100.Value = True Then Sheets(Me.Controls("CheckBox" & i).Caption).Visible = False End If If CheckBox100.Value = False Then Sheets(Me.Controls("CheckBox" & i).Caption).Visible = True End If Next i Me.Hide End Sub Private Sub CommandButton1_Click() x = InputBox("Please Enter the Pass Word ??") For i = 2 To Sheets.Count If x <> "111" Then Exit Sub If Me.Controls("CheckBox" & i).Value = True Then Sheets(Me.Controls("CheckBox" & i).Caption).Visible End If If Me.Controls("CheckBox" & i).Value = False Then Sheets(Me.Controls("CheckBox" & i).Caption).Visible = True End If Next i Me.Hide End Sub Private Sub UserForm_Initialize() Dim CheckB As Control For t = 1 To Sheets.Count Set CheckB = Frame1.Controls.Add("forms.CheckBox.1", "CheckBox" & t, True) With CheckB .Left = Frame1.Width - 100: .Top = 2 + (t * 20): .Width = 60: .Height = 15: .TextAlign = 3: .Alignment = 0: .Caption = Sheets(t).Name Frame1.Controls("CheckBox" & 1).Visible = False End With Frame1.ScrollHeight = Frame1.ScrollHeight + Frame1.Controls("CheckBox" & t).Height + 10 Next End Sub بالاكواد التاليه Private Sub CheckBox100_Click() x = InputBox("Please Enter the Pass Word ??") If x <> "111" Then Exit Sub CheckBox100.Value = False End If For i = 2 To Sheets.Count If CheckBox100.Value = True Then Sheets(Me.Controls("CheckBox" & i).Caption).Visible = xlSheetVeryHidden End If If CheckBox100.Value = False Then Sheets(Me.Controls("CheckBox" & i).Caption).Visible = xlSheetVisible End If Next i Me.Hide End Sub Private Sub CommandButton1_Click() x = InputBox("Please Enter the Pass Word ??") For i = 2 To Sheets.Count If x <> "111" Then Exit Sub If Me.Controls("CheckBox" & i).Value = True Then Sheets(Me.Controls("CheckBox" & i).Caption).Visible = xlSheetVeryHidden End If If Me.Controls("CheckBox" & i).Value = False Then Sheets(Me.Controls("CheckBox" & i).Caption).Visible = xlSheetVisible End If Next i Me.Hide End Sub Private Sub UserForm_Initialize() Dim CheckB As Control For t = 1 To Sheets.Count Set CheckB = Frame1.Controls.Add("forms.CheckBox.1", "CheckBox" & t, True) With CheckB .Left = Frame1.Width - 100: .Top = 2 + (t * 20): .Width = 60: .Height = 15: .TextAlign = 3: .Alignment = 0: .Caption = Sheets(t).Name Frame1.Controls("CheckBox" & 1).Visible = xlSheetVeryHidden End With Frame1.ScrollHeight = Frame1.ScrollHeight + Frame1.Controls("CheckBox" & t).Height + 10 Next End Sub تقبل تحياتى

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

السلام عليكم ورحمة الله وبركاته بالفعل اخى طاهر زر التعديل كان به خطأ ---------------------- اذهب الى محرر الاكواد واختار الموديول DELETINV_ قم باستبدال الكود الاتى Sub DELETINV() Dim LR As Long Dim ss As String Dim StDate As Date Dim EndDate As Date Dim LR1 As Long Dim LR2 As Long Dim Lr3 As Long Dim WS As Worksheet Dim WS1 As Worksheet Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("MAT") On Error GoTo 1 If WS.Range("I6").Value = "" Then: Exit Sub If WorksheetFunction.CountIf(WS1.[C6:C10800], WS.Range("I6").Value) = 0 Then MsgBox " ÎØà ÑÞã ÇáÝÇÊæÑå]--åÐå ÇáÝÇÊæÑå ÛíÑ ãÓÌáå ãä ÞÈá] " Exit Sub End If ss = WS.Range("I6").Value LR1 = WS1.Cells(Rows.Count, 3).End(xlUp).Row + 4 WS1.Range("B5:l5" & LR1).AutoFilter Field:=2, Criteria1:=ss WS1.Range("B6:l00000" & LR1).SpecialCells(xlCellTypeVisible).EntireRow.Delete 'WS1.Range("B5:l5" & LR1).AutoFilter Call clear_data 1 End Sub ب الكود الاتى Sub DELETINV() Dim LR As Long Dim ss As String Dim StDate As Date Dim EndDate As Date Dim LR1 As Long Dim LR2 As Long Dim Lr3 As Long Dim WS As Worksheet Dim WS1 As Worksheet Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("MAT") On Error GoTo 1 If WS.Range("I6").Value = "" Then: Exit Sub If WorksheetFunction.CountIf(WS1.[C6:C10800], WS.Range("I6").Value) = 0 Then MsgBox " ÎØà ÑÞã ÇáÝÇÊæÑå]--åÐå ÇáÝÇÊæÑå ÛíÑ ãÓÌáå ãä ÞÈá] " Exit Sub End If ss = WS.Range("I6").Value LR1 = WS1.Cells(Rows.Count, 3).End(xlUp).Row + 4 WS1.Range("B5:l5" & LR1).AutoFilter Field:=2, Criteria1:=ss WS1.Range("B6:l" & LR1).SpecialCells(xlCellTypeVisible).EntireRow.Delete 'WS1.Range("B5:l5" & LR1).AutoFilter Call clear_data 1 End Sub تقبل تحياتى

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