أبو حنــــين

السلام عليكم هذه محاولة ربما تحتوي على اخطاء جربها متابعة مهاره الطلاب1.rar

بالنسبة للطريقة الاولى تصبح بهذا الشكل مع مراعات تسمية ورقة البيانات في هذا المثال ورقة البيانات هي sheets("data") Private Sub UserForm_Initialize() ' '************************************************************************************************************** ComboBox1.Clear With Sheets("Data") .Activate ComboBox1.List = .Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value End With End Sub بالنسبة للطريقة الثانية تبقى كما هي بالنسبة للطريقة الثالثة يصبح الكود كالتالي Private Sub UserForm_Initialize() ComboBox3.Clear With Sheets("Data") .Activate ComboBox3.RowSource = "A2:A12" End With End Sub

السلام عليكم شاهد المرفق 111.rar

السلام عليكم شاهد المرفق 000000000001.rar

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

السلام عليكم بعد استفادتي بالبراءة قمت بهذا العمل تكفيرا عن ما اقترفته سابقا مع السيد زمزم AAAAAA.rar

السلام عليكم من الخاصية Picture للفورم يمكن اختيار الصورة

جزاك الله خيرا اخي سامي سلام

السلام عليكم انظر المرفق الطبيب تعديل1.rar

السلام عليكم عندما تكون علامة الدولار في يسار الحرف مثل A$ معناها الخلية مثبتة أفقيا ، اي عند السحب الأفقي لا تتغير القيمة المدخلة في الخلية عندما تكون علامة الدولار في يمين الحرف مثل $A معناها الخلية مثبتة رأسيا، اي عند السحب الرأسي لا تتغير القيمة المدخلة في الخلية عندما تكون علامة الدولار في يسار و يمين الحرف مثل $A$ معناها الخلية مثبتة أفقيا و عموديا ، اي عند السحب الأفقي و العمودي لا تتغير القيمة المدخلة في الخلية

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

عمل أكثر من ممتاز جزاك الله خير اخي عبد الله

السلام عليكم اكتب الكود التالي في آخر السطر اي تحت السطر MsgBox "تم تسجيل التعديلات" For j = 3 To 22 Me.Controls("TextBox" & j) = "" Next

السلام عليكم استعمل هذا الكود Private Sub CommandButton1_Click() Dim iRow1 As Long, iRow2 As Long, iRow3 As Long, j1 As Long, j2 As Long, j3 As Long Dim t1 As Integer, t2 As Integer, t3 As Integer With Sheet2 iRow1 = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 iRow2 = .Cells(.Rows.Count, 11).End(xlUp).Row + 1 iRow3 = .Cells(.Rows.Count, 20).End(xlUp).Row + 1 For j1 = 1 To iRow1: For t1 = 2 To 8 .Cells(iRow1, t1).Value = Me.Controls("TextBox" & t1).Value: .Cells(iRow1, 1).Value = iRow1 - 5 Next: Next For j2 = 1 To iRow2: For t2 = 10 To 16 .Cells(iRow2, t2 + 1).Value = Me.Controls("TextBox" & t2).Value: .Cells(iRow2, 10).Value = iRow2 - 5 Next: Next For j3 = 1 To iRow3: For t3 = 18 To 24 .Cells(iRow3, t3 + 2).Value = Me.Controls("TextBox" & t3).Value: .Cells(iRow3, 19).Value = iRow3 - 5 Next: Next End With End Sub

السلام عليكم المرفق 2003 مثال.rar

السلام عليكم جرب المرفق 2003 ملف اكسل زمزم 11.rar

السلام عليكم جرب هذه الطريقة مثال مبسط.rar

السلام عليكم اعتذر عن التأخر هل بهذه الطريقة 2ملف اكسل زمزم.rar

العلامة $ تستعمل لتثبيت الخلية و تكتبها بالضغط على الحرف F4 من لوحة المفاتيح مثال مثلا قف عند الخلية B1 و اكتب =A1 ثم اضفط على F4 بعد ذلك اسحب الى الاسفل الى عدد من الخلايا ستجد ان المعادلة لم تتغير كل الخلايا مساوية للخلية A1 لاننا ثبتناها اعد نفس العمل دون ان تضغط على F4 ستجد أن A1=B1 و A2=B2 و A3=B3 و الى آخر خلية

السلام عليكم استسمح اخي بن عليه يمكن عمل ذلك باستبدال المعادلة التالية =IF($I8="";"";SUMPRODUCT(($A$2:$A$44=$I8)*($C$2:$C$44=$J8)*($D$2:$D$44=$K8)*($E$2:$E$44=$L8)*($G$2:$G$44))) بالمعادلة التالية =IF($I8="";"";SUMPRODUCT(($A$2:$A$44>=$I8)*($C$2:$C$44=$J8)*($D$2:$D$44=$K8)*($E$2:$E$44=$L8)*($G$2:$G$44))) و اكمل على باقي المعادلات بنفس الطريقة لاحظ التغير في الجزئية A$2:$A$44=$I8 تصبح $A$2:$A$44>=$I8 يعني اضفنا علامة أكبر و الله اعلم

السلام عليكم استعمل هذا الكود Private Sub ListFind_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Range("B" & iRow + 4 & ":H" & iRow + 4).Select End End Sub

السلام عليكم و الله لم افهم القصد مما ذكرته لو توضح بأكثر من مثال بمعنى تعطي ثلاث او اربع حالات لكي استطيع استيعاب الطلب

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

السلام عليكم هل تقصد بهذه الطريقة ملاحظة هامة المثال التالي يعمل بواسطة زر و ليس بتغير التاريخ ان كنت تقصد هذه الطريقة فساعمل على تغيير الزر بالتاريخ AAA.rar

السلام عليكم جرب الكود التالي Sub tarheel() 'gr1 Dim LR As Integer LR = [a10000].End(xlUp).Row Sheets("ناجحون صف اول اخر العام").Range("a14:ca1000").ClearContents Sheets("راسبون صف اول اخر العام").Range("a14:ca1000").ClearContents Application.ScreenUpdating = False With Sheets("رصد اول اخر العام") x = 14: y = 14: For i = 14 To LR If .Cells(i, 77) = "ناجح" And .Cells(i, 2) <> "" Then .Range("F" & i).Resize(1, 74).Copy Sheets("ناجحون صف اول اخر العام").Range("D" & x).PasteSpecial xlPasteValues Sheets("ناجحون صف اول اخر العام").Range("A" & x) = x - 13 Sheets("ناجحون صف اول اخر العام").Range("b" & x) = .Range("b" & x) Sheets("ناجحون صف اول اخر العام").Range("C" & x) = .Range("C" & x) x = x + 1 ElseIf (.Cells(i, 77) = "راسب" Or .Cells(i, 77) = "غ" Or .Cells(i, 77) = "له دور ثانى") And .Cells(i, 2) <> "" Then .Range("f" & i).Resize(1, 74).Copy Sheets("راسبون صف اول اخر العام").Range("d" & y).PasteSpecial xlPasteValues Sheets("راسبون صف اول اخر العام").Range("A" & y) = y - 13 Sheets("راسبون صف اول اخر العام").Range("b" & y) = .Range("b" & y) Sheets("راسبون صف اول اخر العام").Range("C" & y) = .Range("C" & y) y = y + 1 End If Next Application.CutCopyMode = False Application.ScreenUpdating = True End With End Sub