على ما اظن الامر لا يحتاج الى رفع ملف الامر واضح فقط تقليص المعادلة هي عبارة عن سطر كبير ارغب في جعل المعادلة صغير شكرا على تنبيه
أى مشاركة تحتاج بالتأكيد الى ملــف .فكيف يتم تجربة هذا الكود اليس هذا سهلاً .فان كان هذا سهلا لك لقمت انت بعمله بنفسك ولا احتجت لرفع المشاركة هنا ؟!!!
السلام عليكم هل من طريقة لي تقليص حجم المعادلة
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
السلام عليكم لقد تعبت من البحث
هل من طريقة لتشغيل كود الماكرو مرة واحدة في اليوم
بحيث ان الملف يغلق ويفتح عدة مرات في اليوم
وضعت مرفق معه اكود جربت عليه ولم تنجح
تشغيل مكرو مرة1 .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
السلام عليكم
ممكن طريقة ارحل به تقرير من عدد من الصفحات الى صفحة واحدة بشرط ينسخ اسم الصفحة
انا وجدت كود ولكن هو بيعمل ارتباط ان عوز ينسخ فقط
ترحيل تقرير .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