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

السلا م عليكم تم اضافه الحذف او التلوين الى طلبك new5.rar

السلام عليكم ما رايك بهذا =IF(B3<>"",ROW(A3)-2,"") و اذا شئت بالكود ممكن

السلام عليكم اخى الحبيب يقول تعالى في الحديث القدسى "انا اغنى الاغنياء عن الشرك" عندما اقوم بعمل اقصد منه الاتى : 1- وجه الله تعالى 2-مساعدة الاخوه 3-انا استفيد و اتعلم اكثر مما يستفيد السائل 4-انا لا استعرض عضلات 5- لا انتظر من احد ردا او شكرا وا كيلا للمدائح *************** اما شرح الكود الذى سالت عنه فهو كالاتى : تعريف المتغيرين I & iRow كرقم استخدمت الداله choose مع المتغير i الداله choose لها 2 بارميتر الاول ليحدد موقع العنصر المختار من البارميتر الثانى (العناصر) البارميتر الثانى تاخذ عده عناصر تفصل بينها , مثلا choose(1,10,9,8,7,6,5,4,3,2,1) هنا الداله ترجع الرقم الاول من السلسله و هو 10 choose(2,10,9,8,7,6,5,4,3,2,1) هنا الداله ترجع الرقم الثانى من السلسله و هو 9 و هكذا نعود للكود i = 1 to 10 iRow = Choose(i, 6, 5, 15, 10, 16, 21, 1, 17, 13, 2) i ستكون في الدوره الاولى 1 اذا ستختار العنصر الاول في السلسه و هو 6 اذا irow = 6 اذا اضفنا 6 الى 4 في عنوان الخليه cells(irow,4) ستكون اذا cells(6,4) اي d6 ثم اخيرا يجعل هذه الخليه قيمتها = I و i = تساوى 1 اذا الخليه d6 ستساوى 1 في الدوره التاليه ستكون i =2 و ستختار العنصر الثانى من السلسله وهو 5 و هكذا و الله الموفق omarhajy@hotmail.com

السلام عليكم =IF(AND(J11="",I11="",H11="",G11="",F11="",E11="",D11="",C11=""),B11,IF(AND(J11="",I11="",H11="",G11="",F11="",E11="",D11=""),C11,IF(AND(J11="",I11="",H11="",G11="",F11="",E11=""),D11,IF(AND(J11="",I11="",H11="",G11="",F11=""),E11,IF(AND(J11="",I11="",H11="",G11=""),F11,IF(AND(J11="",I11="",H11=""),G11,IF(AND(J11="",I11=""),H11,IF(J11="",I11,J11))))))))

السلام عليكم 2all____________.rar

السلام عليكم لكل مجتهد نصيب شكرا على الكود الرائع

السلام عليكم اخى الكريم الجواب نعم ممكن دائما حاول ارفاق ملف هل هنا المقصود ؟ الخليه c1 مبنيه على ناتج الخليه b1 و كلاهما بهما شرط if if___if.rar

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

السلام عليكم Application.EnableEvents = False If Target.Address = "$J$6" Then Cells(6, 10).Value = Cells(6, 10).Value - (Cells(6, 4).Value + Cells(17, 4).Value + Cells(28, 4).Value + Cells(39, 4).Value + Cells(50, 4).Value + Cells(61, 4).Value + Cells(72, 4).Value + Cells(83, 4).Value + Cells(94, 4).Value + Cells(105, 4).Value + Cells(116, 4).Value + Cells(127, 4).Value) End If Application.EnableEvents = True

السلام عليكم Application.Goto Reference:=Workbooks("book2").Worksheets("Sheet1").Range("A100"), Scroll:=True

السلام عليكم السلام عليكم ممكن عمل زر امر و تضعه ضمن شريط الادوات لا حاجه لبقائه على الصفحه هنا زر في شريط للادوات على شكل قلب احمر مرتبط بكود ان لم يضهر هذا الزر عندك اعمل الاتى : من اشرطه ادوات اختر تخصيص من الاوامر اختر زر ماكرو امسكه بالماوس و ضعه في شريط الادوات ثم ضع الموشرعلى الزر و اضغط ريت كلك من اخر خيار اختر تعيين ماكرو botton.rar

السلام عليكم استخدم الكود التالى Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$D$17" Then Cells(17, 4).Value = Cells(17, 4).Value - Cells(6, 4).Value Application.EnableEvents = True End Sub

االسلام عليكم حل اخر خطر ببالى و انا متفرغ عدل كما تشاء في اسما النطاقات TEST2.rar

السلام عليكم الاخ معتز الا خ يريد بدون حماية _____________________________.rar

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

السلام عليكم الخلية التى تكون ناتج صيغة و ان كانت "" او صفر(في حال كان الخيار اخفاء قيم الصفر) لا تعتبر (فى الاكسل)فارغة ارسل ملف لو تكرمت

السلام عليكم حل السيد نزار صحيح و هذا حل اخر CHANGE_1_TO_02.rar

السلام عليكم اذا كنت تقصد كناتج للصيغه فلا فرق لكن خلاف ذلك يوجد فرق (المرجع نسبى او مطلق)

السلام عليكم ارفق الملف

السلام عليكم استبدل Selection ب activecell.offset(0,2)

السلام عليكم اخى احمد يعقوب نهنئك و انفسنا بتقدمكم و الى الامام

السلام عليكم اخ تامر تعلمت منك طريقة جديده للتنقل و اليك الطريقة المتعارف عليها:- ActiveCell.Copy ActiveCell.Offset(1, 0).Select

السلام عليكم الكود الاول للخروج مع الحفظ Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close True End Sub الكود الثانى للخروج دون حفظ التغغيرات Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close false End Sub

السلام عليكم لكن بحاجه الى عمل اضافى abuzzouz.rar

السلام عليكم Combo_emp.Value = Sheet2.Range("C65536").End(xlUp).Value عوضا عن هذا Private Sub Comm_last_Click() LastRw = Sheet2.Range("C65536").End(xlUp).Row LastName = "C" & LastRw Combo_emp.Value = Sheet2.Range(LastName) ''Combo_emp.Value = Sheet2.Range("C65536").End(xlUp).Row ' كود غير عملي End Sub الكود عملى لكن اخره .value وليس .row