محمد عبدالسلام

السلام عليكم ورحمة الله وبركاته هل يمكن الربط بين الورقتين ارغب بمجرد تعديل على البايانت في ورقة invoice يتم تعديل تلقائي في ورقة codes الربط بين ورقتين.zip

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

اخي ياسر والله انا اسف انى زعلتك يا خي معي على عدم التوضيح الأمر اريدحذف المحتويات على المعادلة في سطر من c61 الىH61

السلام عليكم ورحمة الله وبركاته اخي ياسر خليل أبو البراء اسف على عدم التوضيح الأمر الخلايا فيها المعادلات sum

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

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

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

السلام عليكم ورحمة الله وبركاته اخي ياسر انا بدوي لا أدري أي كود بالضبط على ماظن وحد في هده الاكود ارجو من الاخوة الكرام من يعريفه ان يشر اليه Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Dim Rng As Range, LR As Long Dim x, y, z 'x = InputBox("Please enter a Quantity") UserForm2.Show x = UserForm2.TextBox1.Value y = UserForm2.TextBox2.Value z = UserForm2.TextBox3.Value Unload UserForm2 If x = False Or StrPtr(x) = 0 Or Not IsNumeric(x) Then Exit Sub Else LR = Sheet1.Cells(Rows.Count, "E").End(xlUp).Row + 1 Set Rng = Sheet1.Cells(LR, 4) If ListBox1.Value <> "" Then Rng.Value = ListBox1.Value Rng.Offset(0, 1).Value = y Rng.Offset(0, 2).Value = x Rng.Offset(0, 3).Value = ListBox1.List(ListBox1.ListIndex, 2) Rng.Offset(0, 4).Value = z End If TextFind.SelStart = 0 TextFind.SelLength = Len(TextFind.Text) TextFind.SetFocus End If End If End Sub Private Sub TextFind_Change() Dim MyValue Dim MyAr() As String Dim R As Integer, i As Integer, ii As Integer Dim MyColmnFind As Integer, Lastrow As Integer MyColmnFind = Me.ComboBox1.ListIndex + 1 If MyColmnFind = 0 Then Exit Sub If MyColmnFind = 3 Then Me.TextFind = "" Me.ListBox1.Clear With Rng.Worksheet Lastrow = .Range("A65536").End(xlUp).Row End With Colmn = "" With Rng For R = 2 To Lastrow If .Cells(R, MyColmnFind) Like "*" & TextFind & "*" Then Colmn = Colmn & R & " " ii = ii + 1 ReDim Preserve MyAr(1 To ContColmn, 1 To ii) For i = 1 To ContColmn MyValue = .Cells(R, i).Value2 MyAr(i, ii) = MyValue Next End If Next End With If ii Then Me.ListBox1.Column = MyAr: Me.ListBox1.ListIndex = 0 End Sub

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

السلام عليكم ورحمة الله وبركاته اخي ياسر اريد تعديل الكود يوزر فورم لترحيل البيانات من E10 الى اخر سطر في الفاتورة E60

السلام عليكم ورحمة الله وبركاته طلب عمل حد كود يوزرفورم (1) ليعمل من E10 الى E60 1 تعديل يوزر فورم.zip

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

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

السلام عليكم ورحمة الله وبركاته طلب تعديل كود ترقيم تلقائي ليعمل من c10 الى c60 Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range, LR As Integer If Target.Row > 9 And Target.Column = 5 Then Application.EnableEvents = False LR = Cells(Rows.Count, "E").End(xlUp).Row Set Rng = Range(Cells(10, "C"), Cells(LR, "C")) Rng.Formula = "=IF(NOT(ISBLANK(E10)),COUNTA(E$10:E10),"""")" Application.EnableEvents = True End If End Sub

السلام عليكم و حمة الله و بركاته رجاء من الاخوة الكرام كود لجعل ورقة العمل مطاطية بمعنى هو اخفاء سطر التى ليس بها بيانات ويبدء الخغاء من سطر 59 وبعدا سطر 59 يتم اضافة سطرجديد اتوماتيكي عندما يتم اضافة بيانات في سطر E59 لجعل ورقة العمل مطاطية.zip

طلب تعديل الكود ليوضع في الورقة invoice

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

السلام عليكم و حمة الله و بركاته جزاكم الله خير اخي أبو حنــــين توجد مشكلة في الكود ولا اعرف ماهي يمكنك تجريب الكود في هذا الملف http://www.officena.net/ib/applications/core/interface/file/attachment.php?id=114619

السلام عليكم و حمة الله و بركاته لطلب اريد تحويل المعادلات إلى كود وارجو ان يكون كود يعمل بكفاءة عالية جزاكم الله خير وبارك الله فيكم واثابكم الله الجنه ان شاء الله =H10*F10 =SUM(I10:I60) =H62+H61-H63

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

السلام عليكم و حمة الله و بركاته هل من طريقة عندما يتم نقل بيانات من اي خانة في عمود C من خلال يوزرفورم 2 يتم المسح تلقائي من خانة عمود C من ورقة Customers

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

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

ربط الملف جلب بيانات من عمود C الى الخانة H62 في الفاتورة (2).zip

السلام عليكم و حمة الله و بركاته اخواني الكرام طلب مساعدة تعديل في يوزر فورم( 2 ) اريد لما يتم جلب اسم العمل ورقم الهاتف من ورقة Customers اريد ان يتم جلب بيانات من عمود C الى الخانة H62 في الفاتورة جلب بيانات من عمود C الى الخانة H62 في الفاتورة.zip