أبو حنــــين

مرحبا ارسل ملفا توضح فيه المعطيات و طريقة التعامل معها

مرحبا اخي لو نظرت الى الخلية O303 و الخلية O416 لوجدت انهما لاتحتويان على قيم لذلك وقع الخطأ فكلاهما يحتوي على الكلمة #NUM! غيرهما بأرقام و جرب مرة أخرى

ارسل نموذجا من الملف الذي لم يعمل عندك

السلام عليكم جرب أخي المرفق المصنف2.rar

جرب هذا حسب فهمي للسؤال =IF(OR(F7="ى";F7="ط");0;1)

السلام عليكم جرب المرفق 2حذف و لصق.rar

الأخ زياد جرب المرفق الذي أنجر بطريقة أخرى حذف و لصق.rar

المعادلة ترجمها أخي ياسر العربي في مشاركته

مرحبا بعد إذن أخي ياسر يمكن ان نستعمل الدالة التالية في الخلية D2 ونسحبها للأسفل =IFERROR(VLOOKUP(C2;المسافة!$A$1:$B$500;2;0);"")

السلام عليكم جرب الرفق حذف وتعديل اسم عميل.rar هل بهذه الطريقة

ان كنت تقصد مسح الاسم من مربع النص بعد الترحيل فيكون الكود كالتالي Private Sub CommandButton1_Click() x = Sheets("ورقة5").Cells(Rows.Count, "C").End(xlUp).Row + 1 Sheets("ورقة5").Range("C" & x) = TextBox1.Value TextBox1="" End Sub

استعمل هذا الكود Private Sub CommandButton1_Click() x = Sheets("ورقة5").Cells(Rows.Count, "C").End(xlUp).Row + 1 Sheets("ورقة5").Range("C" & x) = TextBox1.Value End Sub

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

كما ذكر اخي سليم السؤال الاول غير واضح بالنسبة للسؤال الثاني تصبح الدالة بالشكل التالي =IFERROR(INDEX([Priority];MODE(MATCH([Priority];[Priority];0)));"")

السلام عليكم تنسخ هذا الكود في زر الحفظ مع مراعات أن مربع النص الأول يملأ تلقائيا Private Sub CommandButton1_Click() Dim x As Byte, i As Byte, R As Integer, sh As Worksheet Set sh = Sheets("sheet2") With sh R = .Cells(Rows.Count, "B").End(xlUp).Row + 1 For x = 2 To 8 .Cells(R, x).Value = Me.Controls("TextBox" & x) '.Value Next End With TextBox1.Value = Sheets("sheet2").Cells(Rows.Count, "B").End(xlUp).Row - 1 For i = 2 To 8 Me.Controls("TextBox" & i) = "" Next End Sub و في حدث الفورم UserForm_Initialize تكتب هذا الكود الذي يقوم بمعرفة آخر صف مكتوب و ترقيمه Private Sub UserForm_Initialize() TextBox1.Value = Sheets("sheet2").Cells(Rows.Count, "B").End(xlUp).Row - 1 End Sub

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

جزاك الله خيرا على هذا العمل

جرب هذا الكود الذي يحفظ الملف باسم الخلية F3 و G3 لكن في المسار الموجود فيه الملف المصدر aman2.rar

السلام عليم جرب المرفق تجميع.rar

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

السلام عليكم جرب هذه الطريقة المنصرف اليومي.rar

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

العفو اخي

رغم انني لم استوعب الطرح لكن جرب هذه الدالة Function GetValue(C As Double, TAX As Integer) Dim MyResult As Single Select Case C Case 30 To 60: MyResult = C * 0.97 Case 61 To 90: MyResult = C * 0.94 Case Is > 90: MyResult = C * 0.91 End Select GetValue = MyResult + TAX End Function ' بعد وضع مؤشر الفأرة في المكان المناسب ثم كتابة الدالة = GetValue( ' نضغط على العلامة fx ' من شريط الصيغة تم تحدد الخلية الاولى و نحدد الخلية الثانية و التي هي ب10

ثالثا : هل ( b10) ثابتة او لا بمعنى هل ممكن ان يتغير عنوان او مكان الخلية مثلا C10 او F15 . . . .