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

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

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

السلام عليكم و حمة الله و بركاته اخواني الكرام رمضان كريم وكل عام وأنتم بخير ارجو المساعدة في المطلوب اريد تعديل الفورم 2 لجلب رقم الهاتف مع اسم العمل اسم العمل في الخانة e3 ورقم الهاتف في الخانة e4 تعديل فورم 2 لجلب رقم الهاتف مع اسم العمل.zip

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

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

لسلام عليكم ورحمة الله أخى الفاضل / الأستاذ علي الشيخ شكرا لتفضلك بمتابعة الموضوع ملف منفصل

السلام عليكم ورحمة الله وبركاته استفسار بارك الله فيكم ارجو المساعدة لدي مشكلة لماد يتم تحديث البيانات في ملف تلقائيا متل الاسماء والرقم

رفع

السلام عليكم و حمة الله و بركاته مشكور اخي ياسر العربي بارك الله فيك على المساعدة ارجو منك لو سمحت اريد منك اضافة طريقة في هدالكود يبدو ان الملف لي رفعت ليس مطابق الملف الأصلي لدي 'كود الليست بوكس 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") UserForm5.Show x = UserForm5.TextBox1.Value y = UserForm5.TextBox2.Value z = UserForm5.TextBox3.Value Unload UserForm5 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

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

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

اخي الكريم ممكن رفع الايقونات بارك الله فيك

السلام عليكم ورحمة الله وبركاته اخي ياسر العربي ياريت توضح كيف يمكنني تغيير اسم الملف لي توفيق مع الملف الشخصي لدي yasser.zip

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

بارك الله فيك اخي ياسر العربى على المساعدة جزاك الله خيرا

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

طلب طريفة لخفاء سعرشراء في الليست بوكس واظهاره عند الحاجة

السلام عليكم و حمة الله و بركاته سؤال هل لايزل الملف معطوب يتعذر فتحه المرجو الاجابة عنه بارك الله فيكم

السلام عليكم و حمة الله و بركاته أخى الكريم أبوعيد جرب الملف في المرفق زر اخفاء واظهار السعر اشراء.zip

ارجو المساعدة عمل زر اخفاء واظهار السعر اشراء

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

رفع

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

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

السلام عليكم و حمة الله و بركاته طلب عمل زر اخفاء واظهارسعر شراء في الليست بوكس جزاكم الله خير الجزاء زر اخفاء واظهار عمود في الليست بوكس.zip