الـعيدروس

وعليكم السلام تريد تكرار بيانات الوصل في ورقة واحدة تصوير المدى عند الطباعه وحذف الصورة بعد الطباعه جرب المرفق طبع وصولات A1- وصلين.xls

السلام عليكم عدل بهذا السطر ActiveWindow.SelectedSheets.PrintOut , , 2

السلام عليكم جرب المرفق غياب_A2 مع الغياب بعذر .xlsm

تم التعديل على المشاركة السابقه اعد تحميل الملف

تفضل هذا التعديل تعديل بسيط بحيث اذا لم يجد الاسم يضيفه بعد اخر اسم مع التاريخ في صفحة الغياب غياب_A1.xlsm

السلام عليكم بعد اذن الاستاذ حسين جرب المرفق غياب_A.xlsm

السلام عليكم بعد اذن اخي احمد يوسف جرب المرفق Ot1.xlsm

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

السلام عليكم تفضل شاهد التوضيح في المرفق شرح.rar

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

السلام عليكم اخ ايهاب ملاحظ انك نسخت اكواد حدث Workbook لماكرو وهذا غير صحيح تعتبر احداث خاصة لاتعمل الا بواجهة المصنف فقط او يرمز لها بأكواد مثلا حدث WorkBook Open بـ Auto_Open Private Sub Workbook_Open() Ref_Sh End Sub اذا اردات استخدامه عبر مودويل كالتالي Sub Auto_open() Application.Run "Thisworkbook.Ref_Sh" End Sub واليك المرفق وبه طلبك ehab3.xlsm

السلام عليكم تفضل بحث_للاوراق.xlsm

وعليكم السلام تفضل جرب المرفق ehab2.xlsm

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

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

'-- نسخة خاصة لأحد أعضاء منتدى أوفيسنا ، الرجاء عدم استخدامها من قبل الآخرين هذه الملاحظة موجودة في محرر الاكواد ؟

هذا كود ينفذ اختصار زري Ctrl+F ^ يرمز لزر Ctrl و f حرف وهذه اختصارات بالامكان استخدامها عبر Application.SendKeys + يرمز لزر ShIFT % يرمز لزر ALT وهكذا بتفعيل زري سهم يمين مع زر شفت SendKeys ("+{RIGHT}")

اطلع على المرفق اضغط زر طباعه Print_Hid.xls

السلام عليكم بالامكان استخدام الكود التالي للطباعه اخفاء الاعمدة عند الطباعه واظهارها فور الانتهاء Sub Ali() Dim Rng As Range Set Rng = [L:N] With Rng .EntireColumn.Hidden = True ActiveSheet.PrintPreview ' PrintOut .EntireColumn.Hidden = False End With Set Rng = Nothing End Sub

عرف المتغيرات هذا احتمال وايضا تأكد خيار اعدادت الماكرو هل ابشن "الثقة في الوصول الى كان مشروع VBA" مفعل

السلام عليكم تفضل Hepr_Ali2.xlsm

السلام عليكم ضيف هذا السطر اول كود Private Sub Find_T On Error Resume Next ليصبح كالتالي Private Sub Find_T() Dim Ar() Dim cel As Range Dim i As Long Me.CM_ListFind.Clear On Error Resume Next ' <<< i = 1 For Each cel In MRng If InStr(1, cel, CStr(Me.CM_TextFind), vbTextCompare) Then ReDim Preserve Ar(i) Ar(i) = cel.Value i = i + 1 End If Next If i Then Me.CM_ListFind.List = Ar Erase Ar End Sub وهذا هو الملف محرك 3بحث.xlsm

في حدثي كود Private Sub CM_ListFind_DblClick(ByVal Cancel As MSForms.ReturnBoolean) وهذا Private Sub Button1_Click() استبدل رقم العمود بـ 0 بدلا عن 1 .List(.ListIndex, 0)' محرك 3بحث.rar

جرب المرفق محرك 2بحث.rar

السلام عليكم اظن طلبك بسيط غير نوع المتغير y As Long, z As Long الى التالي y As Currency, z As Currency