ابو اسامة العينبوسي

السلام عليكم من بيانات>التحقق من الصحة>قائمه> اختر المدى الذى ستاخذ منها القائمه البيانات

السلام عليكم لم افهم طلبك

السلام عليكم Gaza.rar

السلام عليكم عدل المعادله الى الاتى Me.Cells(Target.Row, 3) = Application.WorksheetFunction.SumIf(Range("f2:f600"), Cells(Target.Row, 1), Range("g2:g600")) جربتها و عملت لكن من غير باقي اسطر الكود

السلام عليكم اخى... و انت في وضع التصميم >كبسه باليمين على combobox>خصائص> انتق خيار Alphabatic> من Font اختر حجم الخط الذي تريد و السلام

السلام عليكم هذا اخى الكريم يقوم باختيار اول خلية فارغه في العمود A الذى يحوي بيانات (من اسفل لاعلى) Range("a1").Cells(65000, 1).End(xlup).Offset(1, 0).Select استخدمت داله offset لاختيار الخليه التى تقع اسفل اخر خليه غير فارغه من العمود A فالرقم 1 من offset يمثل عدد الصفوف التى تبعدها الخليه المراد اختيارها و الصفر يمثل عدد الاعمده التى تبعدها الخليه المراد اختيارها (بمعنى ان القيمتين المرافقتين ل offset تمثلان X,Y كانهما محور (س,ص))

السلام عليكم من Tools<References عطل مكتبات ال Missing References

السلام عليكم ممكن تعطيل خيار ال missing refrences من محرر البيسك و الله اعلم

السلام عليكم الاخوة الادارة المحترمين استخدم internet explorer 8 beta لكن اجد مشكله في التصفح خاصة عند الرد على المشاركات حيث لا يظهر المربع الخاص بادراج المرفقات

السلام عليكم ________________3.rar

السلام عليكم تفضل

السلام عليكم ________________.rar

Sub Test() Dim Sh As Worksheet Dim Rng As Range Dim i As Integer Dim x As Variant Dim Msg As String Dim F As Integer Set Sh = Worksheets(1) With Sh Set Rng = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row) End With F = Application.InputBox("enter the start of series") For i = F To Cells(65350, 1).End(xlUp).Row On Error Resume Next x = WorksheetFunction.Match(i, Rng, False) If Err <> 0 Then Err.Clear Msg = Msg & vbCrLf & i End If On Error GoTo 0 Next i If Msg = "" Then Msg = "no missing numbers " Else Msg = " :missing numbers is " & Msg End If MsgBox Msg End Sub

السلام عليكم لو سمح لي الاخوه باضافه بسيطه ممكن استخدام دوال التفقيط للترقيم مع الداله التى استخدمها الاخوه (دون الحاجه للكتابه يدويا) 2ay________________.rar

السلام عليكم نعم اخى صاحب هذا الموقع من محترفى برمجة للاوفيس https://mvp.support.microsoft.com/profile/Ron استفدت من اكواده في عمل نسخه احتياطيه مضغوطه كل مده محدده شكرا لك

السلام عليكم اخى حسام نور الله فكرك

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim cell As Range Sheets("a1").Rows.EntireRow.Interior.ColorIndex = xlNone Sheets("a1").Rows.EntireRow.Hidden = False If Target.Column <> 2 Then Exit Sub For Each cell In Sheets("a1").Range("a2:a200") If cell.Value = ActiveCell.Value Then cell.EntireRow.Interior.ColorIndex = 6 Else cell.EntireRow.Hidden = True Cells(1, 1).EntireRow.Hidden = False End If Next cell End Sub

السلام عليكم ممكن نضيف للكود اخفاء الاسطر الغير متعلقه بالعميل المحدد link_Example2.rar

السلام عليكم ليس لدى طابعة لكن جرب هذا Sub print_colored_rows() For i = 1 To 20 If Cells(i, 1).Interior.ColorIndex <> xlNone Then Range(i, 1).EntireRow.PrintOut End If Next End Sub

السلام عليكم تستخدم لتسريع الكود حيث توقف عملية تحديث الشاشة(وميض الشاشة)اثناء تنفيذ الكود

السلام عليكم داله تستحق التقدير كما انت ايضا

السلام عليكم حل الطلب الثانى لم اعرف حلا للاول __________2.rar

السلام عليكم __________1.rar

السلام عليكم هل هذا المقصود Book1.rar

السلام عليكم عدله الى ملف اكسل 2003