أب مارية

comment fait SVP

السلام عليكم اخي سليم مشكور على الاهتمام قمت بالطلاع على الكود لكن للأسف لم استطع تطبيقه على ملفي وفيما يلي الكود الذي لدي وارجو معالجته Private Sub Bout1AF_Click() If TextBoxAF48 = "" Or TextBoxAF49 = "" Or TextBoxAF50 = "" Or TextBoxAF51 = "" Or TextBoxAF52 = "" Or TextBoxAF53 = "" Then GoTo 1 Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Fournisseurs") iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = iRow - 8 ws.Cells(iRow, 2).Value = Me.TextBoxAF53.Value ws.Cells(iRow, 3).Value = Me.TextBoxAF52.Value ws.Cells(iRow, 4).Value = Me.TextBoxAF51.Value ws.Cells(iRow, 5).Value = Me.TextBoxAF50.Value ws.Cells(iRow, 6).Value = Me.TextBoxAF49.Value ws.Cells(iRow, 7).Value = Me.TextBoxAF48.Value Me.TextBoxAF53 = Empty Me.TextBoxAF52 = Empty Me.TextBoxAF51 = Empty Me.TextBoxAF50 = Empty Me.TextBoxAF49 = Empty Me.TextBoxAF48 = Empty Me.TextBoxAF53.Value = "" Me.TextBoxAF52.Value = "" Me.TextBoxAF51.Value = "" Me.TextBoxAF50.Value = "" Me.TextBoxAF49.Value = "" Me.TextBoxAF48.Value = "" Exit Sub 1 MsgBox "Il faut compléter les données", vbExclamation, "Erreur" End Sub

السلام عليكم ورحمة الله تعالى وبركاته أخوتي أود طرح سؤال وهو ما هو الكود الذي يضاف داخل الفورم حيث أنه بعد ترحيل بيانات الفورم إلى الجدول الموجود في الشيت يتم ترتيبها حسب الأبجدية باللغة الانجليزية أي الذي يبدأ بالحرف A ثم B ثم C وهكذا

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

للرفع

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

السلام عليكم ماهو الخطأ في كود التعديل والترحيل التالي حيث أنه بعد الضغط على زر التعديل تبقى المعلومات على حالها ولا يجرى التعيدل Private Sub Bout3MF_Click() Dim i As Integer For i = 9 To 17 If ComboBox4.Text = Cells(i, 1) Then Cells(i, 2) = TextBoxAF48.Text Cells(i, 3) = TextBoxAF49.Text Cells(i, 4) = TextBoxAF50.Text Cells(i, 5) = TextBoxAF51.Text Cells(i, 6) = TextBoxAF52.Text Cells(i, 7) = TextBoxAF53.Text End If Next MsgBox "Les cordonnées de fournisseur modifier avec succée" Me.ComboBox4 = "" Me.TextBoxAF48.Value = "" Me.TextBoxAF49.Value = "" Me.TextBoxAF50.Value = "" Me.TextBoxAF51.Value = "" Me.TextBoxAF52.Value = "" Me.TextBoxAF52.Value = "" ComboBox4.SetFocus End Sub

السلام عايكم ما شاء الله ابداع واصل في مزيد من الأفكار

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

السلام عليكم بارك الله فيكم وجزاكم كل خير

للرفع

للرفع

للرفع

السلام عليكم في المرفق فورم لادخال سلعة جديدة الى المخازن المطلوب هو الآتي 1 - عند الترحيل يجب مراعاة الترتيب الابجدي 2 - اذا تم اضافة سلعة موجودة مسبقا وبنفس سعر الشراء فيتم اضافة عدد الوحدات الجديدة مع القديمة 2n2014_65.rar

للرفع

للرفع

بارك الله فيك اخي لكن يقي المشكل قائم حيث وبعد ادحال عملية بيع جديدة لا يقوم باضافة هامش الربح في العمود I 2

للرفع

هنا خطأ بالملف حيث أنه في خانة سعر الشراء والمجموع يكتب General

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

السلام عليكم ما سبب ظهور سهم أخضر في جانب الخلية كما أنني قمت بوضع مجموع الخلايا من I 8 إلى غاية I 1000 في الخلية I 2 لكن العملية لم تنجح كذلك قمت بوضع المبلغ الموجود في الخلية I2 داخل الفورم في التكست بوكس باللون البرتقالي لكن لم يظهر المبلغ أرجو المساعدة 2n2014_63.rar

السلام عليكم من منطلق العنوان أريد تعلم كيفية تعديل وترحيل البانات وكذلك مسح محتويات الفورم فأرجو من الاخوة شرح مفصل وممل للكودين حتى يتسنى لي تطبيقه في أي ملف بارك الله فيكم مقدما 2n2014_62.rar

السلام عليكم تم شرح المطلوب في المرفق RRRRR.rar

للرفع

السلام عليكم مشكور أخي على الكود لكن هناك مشكل حيث أنه لا يقوم بإرجاع عدد الوحدات إلى صفحة Stocks