سعيد 1428

السلام عليكم الا يوجد رد على هذا الموضوع أيها الاخوة الكرام

جميل بارك الله فيكم ونفع بكم

أيها الإخوة الكرام السلام عليكم ورحمة الله مرفق لكم ملف اكسيل يحتوي على يوزر فورم أريد المساعدة منكم في ما يلي : 1- معالجة سبب البطأ في عمل زر الإضافة 2- زر التعديل لا يعمل بالشكل المطلوب لم أعرف السبب وشكرا حركة المتعمرين.xlsm

نعم أخي الكريم تم حل المشكلة بفضل جهودكم ..بارك الله فيكم ونفع بكم

السلام عليكم ورحمة الله ..أخوتي مرفق لكم ملف يتضمن دالة البحث vloocup والمشكلة هي أن الدالة لا تعمل في حالة إخفاء الشيت الذي يتضمن مرجع البيانات وهذا جعلني أقوم بإظهار الشيت (sheet1) وتنشيطه عند فتح اليوزر فورم وحيث أني ارغب في بقاء هذا الشيت مخفي دائما فإني ارجو منكم المساعدة بحث تعمل دالة البحث حتى ولو كان الشيت مخفي وشكرا Private Sub ComboBox1_Change() Dim NAT As Long Dim sh As Sheets Dim Name As String Dim myrange As Range On Error Resume Next Sheets("sheet1").Visible = True Sheets("sheet1").Active Name = Me.ComboBox1.Value With Sheets("sheet1") Set myrange = Range("B3:M9") TextBox1.Value = Application.WorksheetFunction.VLookup(Name, myrange, 2, False) TextBox2.Value = Application.WorksheetFunction.VLookup(Name, myrange, 3, False) End With End Sub Private Sub UserForm_Initialize() Sheets("sheet1").Activate End Sub ملف العمل.xlsm

السلام عليكم تفضل هذا مثال من احد المواقع الاجنبية قمت بإضافة مربع لإظهار رقم الصف في الليست بوكس .. موفقين Userform_multipage_control.xlsm

UP

تمت إضافة دالة الخطأ إلى المعادلة vlookup&choose .vba (1).xlsm

تفضل أخي آمل أن يكون هذا هو المطلوب vlookup&choose .vba (1).xlsm

إخوتي الكرام السلام عليكم ورحمة الله مرفق ملف يتضمن يوزر فورم وأريد المساعدة في : 1- تعديل البيانات في ورقة العمل من خلال الضغط على زر تحديث 2- قمت بتحديد السطر المطلوب تعديل بياناته من خلال الضغط علبه في الليست بوكس فكيف يمكن اجراء بحث في اللسيت بوكس برقم الحجز بحيث يتم عرض السطر المطابق وشكرا لكم hote1l.xlsm

احسن الله إليكم

الإخوة الأفاضل السلام عليكم عندي ملف اكسيل يوجد فيه ماكرو يقوم بمجموعة من التأثيرات على الملف عند فتحه ولكن الاشكال هو أن بعد الخروج من الملف وتشغيل أي ملف اكسيل ثاني ألاحظ أن بعض خصائص هذه الملفات تغيرت هي الاخرى بسبب الماكرو الموجود في الملف السابق وعليه ارجو المساعدة في حل هذا الاشكال وشكرا Private Sub Workbook_Open() 'Worksheets("MINE").Activate 'With thisApplication 'Application.ScreenUpdating = False 'Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)" 'Application.DisplayFormulaBar = False 'ActiveWindow.DisplayHeadings = False 'Application.DisplayScrollBars = False 'Application.DisplayStatusBar = False 'Application.ScreenUpdating = True ' End With end sub

أيها الإخوة السلام عليكم تم التعديل على الملف المرفق حيث تم تعطيل زر الإغلاق القياسي في الاكسيل (x) إلا أنه ظهرت مشكلة أخرى وهي تعطيل ماكرو الإغلاق المرتبط بزر الإغلاق الشخصي وعليه آمل منكم المساعدة في هذا الموضوع ودمتم بخير close.xlsm

أخي أحمد شكرا على التجاوب بعد تجربة الملف اتضح أن الماكرو الخاص بالفلاش لم يعد يشتغل حيث تم تعطيل هذا السطر 'Application.OnTime BlinkTime, "Blink" وشكرا مرة أخرى

الإخوة في المنتدى السلام عليكم ورحمة الله في الملف المرفق قمت بإنشاء زر للخروج من الأكسيل وتعطيل ماكرو لفلاش غير أنه عند التنفيذ تظهر رسالة خطأ وعليه أرجو المساعدة في تشغيل هذا الماكرو ومن ناحية أخرى أريد تعطيل زر الإغلاق القياسي في الاكسيل ( X ) وجعل المستخدم ينفذ الخروج من خلال الزر المرتبط بالماكرو. وشكرا close.xlsm