amine14

كيف جرب لم تكتب الحرف  ث  في مربع الجنس راح يرحل لك في السطر 100

تفضل اخي  لا شيئ مستحيل في لغة البرمجة 

تسجيل بيانات متفرقة وترحيل02.xlsm

السلام عليكم 

ممكن حل مشكل الحساب داخل تكست بوكس لم تكون القيمة بالفاصلة لا يحسبه

اي يعني لا يقبل الحساب بـ (,)  يقبل الحساب فقط النقطة (.)

حساب.xlsm

على ما اظن الامر لا يحتاج الى رفع ملف الامر واضح فقط تقليص المعادلة هي عبارة عن سطر كبير ارغب في جعل المعادلة صغير شكرا على تنبيه 

أى مشاركة تحتاج بالتأكيد الى ملــف .فكيف يتم تجربة هذا الكود اليس هذا سهلاً .فان كان هذا سهلا لك لقمت انت بعمله بنفسك ولا احتجت لرفع المشاركة هنا ؟!!!

السلام عليكم هل من طريقة لي تقليص حجم المعادلة 

If ComboBox2.Value = ComboBox3 Or ComboBox2.Value = ComboBox4 Or ComboBox2.Value = ComboBox5 Or ComboBox2.Value = ComboBox6 Or ComboBox2.Value = ComboBox7 Or ComboBox2.Value = ComboBox8 Or ComboBox2.Value = ComboBox9 Then
MsgBox " لا يمكنك تكرار"
End If

لقد قمت بالتعديل على الملف واعادة رفعه يمكنك الاطلاع عليه بالتوفيق

تفضل لا تنسنى بصالح الدعاء

المصنف2 .xlsm

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

Right Click Image Converter 

تفضل الملف هذا  افضل بالتوفيق

لا تنسنى بالدعاء 

https://drive.google.com/file/d/0B-U9DKo5z-PbcHdNTXFLbVRiaFU/view

مع عليك سوى حذف هذا  30,70,70,40,45,70,60,60,70,0,0,0

تفضل

Reservation Form (2).xlsm

السلام عليكم ممكن طريقة لي منع ادخال رموز

مثال: /*-:;,!=)('"& ........ على التكست بوكس

السلام عليكم لقد تعبت من البحث 

هل من طريقة لتشغيل كود الماكرو مرة واحدة في اليوم

بحيث ان الملف يغلق ويفتح عدة مرات في اليوم 

وضعت مرفق معه اكود جربت عليه ولم تنجح 

تشغيل مكرو مرة1 .xlsm

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

شكرا لك استاذا انت دائما متألق بورك فيك 

سلام ورحمة الله 

تفضل اخي 

جمع القوائم تلقائيا01 .xlsx

السلام عليكم 

زر تعديل البيانات لا يعمل 

زر تعديل .xlsm

اعد فقط ضبط الجدول حسب الاول لقد تم اضافة لك زر الطباعة بالتوفيق

شهادة02.xlsm

بالبحث والمناقشة والتقويم والتعقيب، مما يزيد من إثراء الموضوع اليك النتيجة 

شكرا على المتابعة استاذ

Number_search_date and delete(2).xlsm

السلام عليكم معي ملف بحث بين تاريخين 

بحيث ارغب انا لم اختار تاريخ يعرض لي رقم صف على تكست بوكس 

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

Me.TextBox2.Value = WorksheetFunction.VLookup(Val(Me.ComboBox3.Value), Worksheets(Me.ComboBox1.Value).Range("a2:" & Range("b2").End(xlDown).Address), 1, False)

اذا امكن احد ما تعديل الكود 

بحث بالتاريخ01.xlsm

شكرااااا لك ☘️

لقد تم الامر للاستفادة فقط 

كل ما في الامر هو  مسح معدلة وترك القيم 

Sheets("TOTAL").UsedRange.Value = Sheets("TOTAL").UsedRange.Value

ترحيل تقرير .xlsm

السلام عليكم 

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

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

ترحيل تقرير .xlsm

السلام عليكم 

ممكن اخفاء قيمة خطاء في الخلية لم يطرح رقم مع نص

معادلة.xlsx

السلام عليكم

ترحيل البيانات مع الحفاظ على صف الاجمالي الاخير 

اضافة بيانات قبل صف الاجمالي

ترحيل.xlsm

بورك فيك استاذ لقد وجدت الحل 

جزاك الله خير

Private Sub UserForm_Initialize()
    Dim X As Long
    For X = 4 To Sheets.Count - 1
       Me.ComboBox1.AddItem Sheets(X).Name
    Next
End Sub

السلام عليكم 

لو سمحتم ارغب بإخفاء اسمين الاول والاخيرة ("end") من الكمبوبوكس 

تعبئة الكومبوبوكس بأسماء أوراق العمل .xlsm