أبو حنــــين

السلام عليكم بالنسبة للسؤال الاول قم بما يلي امسح الخاصية RowSource لكل من الكمبوبكس الاول ة الثاني ثم انسخ هذا الكود بالنسبة للسؤال الثاني لم افهم المقصود Private Sub UserForm_Initialize() ComboBox1.Clear ComboBox2.Clear Dim R As Long With Sheets("æÑÞÉ1") For R = 2 To .Range("A" & .Rows.Count).End(xlUp).Row + 1 If CDate(.Cells(R, 3)) = Date Then If Application.WorksheetFunction.CountIf(.Range("A2:A" & R), .Cells(R, 1)) = 1 Then ComboBox1.AddItem CStr(.Range("A" & R)) ComboBox2.AddItem CStr(.Range("A" & R)) End If End If Next R End With End Sub

مرحبا هل جربت : التحقق من صحة البيانات ؟

جزاك الله خيرا تقبل تحياتي و تقديري

السلام عليكم جرب هذه الخربشة ربما تفيدك تحياتي Test2.rar

="الأسم " & VLOOKUP(B4;السجل;2;FALSE) غير المعادلة =VLOOKUP(B4;السجل;2;FALSE) و من الاحسن هكذا ="الأسم " & IFERROR(VLOOKUP(K4;السجل;2;FALSE);"")

أخي * الصقر * جزاك الله خيرا و أنعم عليك بالصحة و الهناء تقبل تحياتي و تقديري لشخصكم الكريم

=IF(AND(E4<>"";F4<>"");E4-F4;"") استعمل هذه الدالة و اسحبها للاسفل

السلام عليكم الشكر لجميع الاخوة الكرام تم تعديل الكود ليتوافق مع احجام مختلفة اختر الحجم المناسب و اكتبه في التصريح مثل Const iHeight As Integer = 150 Const iWidth As Integer = 600 الكود '---------------------------------------------------- Const iHeight As Integer = 150 Const iWidth As Integer = 600 '---------------------------------------------------- Private Sub UserForm_Activate() Ap_H = Application.Height Ap_W = Application.Width With Me For iHH = 1 To iHeight .Height = iHH: .Top = ((Ap_H - .Height) / 2) DoEvents Next For iWW = 1 To iWidth .Width = iWW: .Left = ((Ap_W - .Width) / 2) DoEvents Next End With End Sub Private Sub UserForm_Initialize() Me.Height = 0 Me.Width = 0 End Sub

الاستاذ ياسر خليل جزاكم الله خيرا فائق الشكر و التقدير و الاحترام

Private Sub UserForm_Activate() For i = 1 To 200 Step 0.1 With Me DoEvents .Height = i: .Width = i * 2 .Top = .Top - (i / 2000): .Left = .Top - (i / 2000) End With Next End Sub Private Sub UserForm_Initialize() Me.Height = 0 Me.Width = 0 End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) For ii = 1 To 20 Step 0.005 With Me DoEvents .Height = .Height - ii: .Width = .Width - ii * 3 End With Next End Sub مرحبا هذه محاولة شبيهة بما قام به الاستاذ الصقر

مرحبا اذهب الى خصائص العناصر اختر منها Label12 اذهب الى الخاصية Left ستجدها -200 القيمة بالسالب غيرها الى 300 مثلا بدون اشارة هذه الاداة غير مستعملة في الواجهة لهذا السبب قمت بإبعادها فقط

السلام عليكم أخي لم انتبه لعدم رفع الملف لكنني سارفعه الآن رغم انه يختلف عن ما ذكرت في مشاركتك الاخيرة و ساحاول العمل على ملفك الاخير ان شاء الله 2 - Copy.rar

السلام عليكم و رحمة الله جرب اخي المرفق

السلام عليكم رأيت أن الأخ طلعت محمد قد قام بالرد لكنني ارسلت هذه المحاولة للاثراء فقط modele03.rar

السلام عليكم إستعمل هذه الطريقة كما في الصورة بالنسبة للطلب الأول AA.rar

السلام عليكم جرب اخي طارق هذا الحل 3 - Copy.rar

اخي جلال هذا لازم يضيف السطر التالي قبل ما يصرف الراتب : On Error Resume Next

السلام عليكم اجعل تنسيق الخلية mmm بالنسبة للشهر و اجعل تنسيق الخلية yyyy بالنسبة للسنة و ذلك بالضغط على الخلية باليمين ثم اختيار تنسيق ثم مخصص و اكتب التنسيق السابق تحياتي

السلام عليكم جزاكم الله خيرا اخي سعيد بيرم على هذا العمل الرائع ملاحظة اخوك لا يفهم في المرتبات و طريقة حسابها و كل ما اعرفه عن الراتب هو سحبه في آخر الشهر و التمتع به لبضع ايام ثم انتظاره في الشهر القادم ثم ....... Next تقبل تحياتي

السلام عليكم يوجود كود يقوم بالتدمير الذاتي للملف لكن حينما يكون هذا الملف مفتوحا و برامج فك رمز الحماية تعمل عندما يكون ملف الاكسل مغلق لذلك لا يمكن تشغيل كود التدمير الذاتي طالما ان ملف الاكسل مغلق و الله اعلم

السلام عليكم يصبح الكود كما يلي Sub amir() Dim cl As Range, i As Integer, j As Integer, Last As Integer Application.ScreenUpdating = False For i = 2 To 4 For Each cl In Range("O2:O" & [O10000].End(xlUp).Row) If cl.Value = Sheets(i).Name Then cl.Offset(0, -13).Resize(1, 16).Cut Sheets(i).Range("B" & Sheets(i).[B10000].End(xlUp).Row + 1) End If Next Next Last = Cells(Rows.Count, "O").End(xlUp).Row For j = Last To 2 Step -1 If IsEmpty(Cells(j, "O")) Then Range(Cells(j, 1), Cells(j, 16)).Delete Shift:=xlUp Next Application.ScreenUpdating = True End Sub

السلام عليكم اخي ابو ليمونة هذا هو الكود مع الأخذ بعين الاعتبار اسم الشيت اذا كان اسم الشيت لديك هو Result فغير هذا الجزئ Sheets("Sheet1") بهذا الجزئ Sheets("Result") و ان كان اسمه عندك هو Sheet1 فاترك الكود كما يلي Sub Button1_Click() With Union(Sheets("Sheet1").Range("J:J,Q:Q,X:X"), Range("AE:AE,AL:AL,AS:AS,AZ:AZ"), _ Range("BG:BG,BN:BN,BU:BU"), Range("CB:CB,CI:CI,CP:CP,CW:CW"), _ Range("DD:DD,DK:DK,DR:DR,DY:DY"), Range("EF:EF,EM:EM,ET:ET"), _ Range("FA:FA,FH:FH,FO:FO,FV:FV"), Range("GC:GC,GJ:GJ,GQ:GQ,GX:GX"), _ Range("HE:HE,HL:HL,HS:HS,HZ:HZ"), Range("IG:IG,IN:IN,IU:IU"), _ Range("JB:JB,JI:JI,JP:JP,JW:JW"), Range("KD:KD,KK:KK,KR:KR,KY:KY"), _ Range("LF:LF,LM:LM,LT:LT"), Range("MA:MA,MH:MH,MO:MO,MV:MV"), _ Range("NC:NC,NJ:NJ,NQ:NQ,NX:NX"), Range("OE:OE,OL:OL,OS:OS,OZ:OZ"), Range("PG:PG")).EntireColumn If .Hidden = True Then .Hidden = False Else .Hidden = True End With End Sub

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

السلام عليكم تفضل اخي Hide-Show.rar

السلام عليكم اخي الحبيب الاستاذ : ابو الحسن جزاكم الله خيرا و حفظكم و رعاكم