الرائد77

بارك الله فيك استاذنا سليم حاصبيا. عمل رائع و ممتاز .جزاك الله خيرا

Private Sub CommandButton1_Click() UserForm1.PrintForm End Sub

عفوا حبيبي. هدا واجبنا

هل قمت بفتح outlook!!! و تسجيل الدخول؟؟ بعد تسجيل الدخول قم بتفعيل signature على الاوتلوك. الكود ييقوم باظهار signature الافتراضي على الاوتلوك المشكل عندك حبيبي

تفضل. اللانتقال التلقائي بمجرد الانتهاء من الرقم الرابع أو غير هدا السطر في الملف الأول من 6 الى 4 و يعمل 100/100 If TextBox1.TextLength = 4 Then OK UserForm TextBox MaxLength.xls

تفضل UserForm TextBox MaxLength.xls

=IF(D4>=3000;D4*0.2;IF(D4>=250001;D4*0.22;IF(D4>=500001;D4*0.17;""))) Book18.xlsx

تفضل Private Sub CommandButton6_Click() Select Case ComboBox1.Value Case "بحث في الاسماء" ListBox1.Clear For i = 1 To 12 Controls("textbox" & i + 1).Value = "" On Error Resume Next Next i If TextBox1 = "" Then Exit Sub Sheets("Sheet1").Activate ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row j = 0 For Each C In Range("a2:a" & ss) If C Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(j, 0) = Cells(C.Row, 1).Value ListBox1.List(j, 1) = Cells(C.Row, 2).Value ListBox1.List(j, 2) = Cells(C.Row, 3).Value j = j + 1 End If Next C Case "بحث في الرقم القومي" ListBox1.Clear For i = 1 To 12 Controls("textbox" & i + 1).Value = "" On Error Resume Next Next i If TextBox1 = "" Then Exit Sub Sheets("Sheet1").Activate ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row j = 0 For Each C In Range("c2:c" & ss) If C Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(j, 0) = Cells(C.Row, 1).Value ListBox1.List(j, 1) = Cells(C.Row, 3).Value j = j + 1 End If Next C Case "بحث في تاريخ الميلاد" ListBox1.Clear For i = 1 To 12 Controls("textbox" & i + 1).Value = "" On Error Resume Next Next i If TextBox1 = "" Then Exit Sub Sheets("Sheet1").Activate ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row j = 0 For Each C In Range("b2:b" & ss) If C Like TextBox1.Value & "*" Then ListBox1.AddItem ListBox1.List(j, 0) = Cells(C.Row, 1).Value ListBox1.List(j, 1) = Cells(C.Row, 2).Value j = j + 1 End If Next C End Select End Sub 1- 2- 3- project.xlsm

تفضل Private Sub UserForm_Initialize() Dim rMonth As Long For rMonth = 1 To 12 Me.ComboBox1.AddItem Format(DateSerial(2020, rMonth, 1), "MMMM") Next rMonth End Sub monnth.xlsm

لا شكر على واجب أخي

ضع هذه العلامة ( ' ) التي بين القوسين قبل النص أو الملاحظة

أخي عصام عادل. أنا استعملت الكود الذي استعملته انت للبحث بالدالة vlookup عوض أن تكتب أنت الكود يقوم الماكرو بذلك و يصدر جميع الملفات pdf يمكنك توضيح طلبك الجديد بالملف و اعد ارفاقه و بإدن الرحمن ستجد الاجابة.

أخي تم إجابة طلبك و الكود يعمل بدون أي مشاكل. أنت أرفقت ملف آخر جديد و بطلب جديد . كان عليك أان تضعه في موضوع جديد. و لكن لا تقل توجد مشكلة بالكود . لأن الكود قد يستفيد منه أعضاء المنتدى.

تم تصحيح الاخطاء Reservation Form (111) (1).xlsm

تفضل الاساسى.xlsm

تفضل ترحيل بيانات جدول.xlsx

تفضل . طباعة الجميع بنقرة واجدة . انشىء مجلد باسم raed على القرص c اختر طباعة من مثلا : 101 االى 106 . من الخلية e1 الى c1 . اكتب من الرقم الذي تريد الى الرقم الذي تريد عند انشاء الملفات و تريد اعادة انشاءها مرة ثانية . قم بمسح الملفات من المجلد raed و اعد تشغيل الماكرو تجد جميع الملفات pdf في المجلد و اسم كل ملف هو كود الطالب Sub svPDF() Dim i As Integer For i = Range("e1") To Range("c1") Range("d3").Value = i Dim expfd As String expfd = "C:\raed\" & Range("d3").Value & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=expfd, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Next i End Sub Student Plan.xlsm

تفضل أحمد فرج1.xls

تلوين خلايا نطاق.xlsm

بعد اذن حبيبي abouelhassan تفضل Private Sub CommandButton1_Click() Sheets("feuil3").Activate Sheets("feuil3").Range("c69").Select End Sub

لعدم جعل قيم الصفر تظهر هده الميزة موجودة في أوفيس بدون معادلات 1 2 3 انزع علامة الصح من show zero in a cell that have zero value

تفضل تم تعديل الكود ليعمل بشكل أسرع بكثير من قبل Financial.xlsb

تفضل هدا الكود اكتب الرقم بدون الرقمين الاولين ثم اضغط على أضف ارقمين فيقوم الكود باضافة الرقمين الاولين الى جميع الارقام في العمود و اذا كانت ارقام الهواتف تحتوي مسبقا على الرقمين الاوليين لا يعيد اضافتهما. Book1.xlsm

تفضل تلوين خلايا نطاق.xlsx