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

السلام عليكم ممكن For i = 2 To 10 x = Application.WorksheetFunction.Sum(Worksheets(1).Range(Cells(i, 2), Cells(i, 11))) If x = 0 Then Rows(i).Hidden = True Next hide column3.rar

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

السلام عليكم Private Sub Worksheet_Change(ByVal Target As Range) Dim My_Rng As Range, cell As Range, z As Integer z = Range("H6").End(xlDown).Row Set My_Rng = Range(Cells(7, "H"), Cells(z, "H")) For Each cell In My_Rng If cell.Value < Range("Min") Then cell.Font.ColorIndex = Range("colorcode") Else cell.Font.ColorIndex = 1 End If Next cell End Sub جمع الخلايا الملونه2.rar

السلام عليكم اخى قطان اسمح لى بهذا الكود Sub Oval1_Click() If Sheets(1).Shapes("Oval 1").TextFrame.Characters.Text = "ÇÎÝÇÁ ÇáÇÚãÏÉ" Then Sheets(1).Shapes("Oval 1").TextFrame.Characters.Text = "ÇÙåÇÑ ÇáÇÚãÏÉ" For i = 2 To 12 If Cells(11, i) = 0 Then Columns(i).Hidden = True Sheets(1).Shapes("Oval 1").TextFrame.Characters.Text = "ÇÙåÇÑ ÇáÇÚãÏÉ" End If Next Else ActiveSheet.Columns.Hidden = False Sheets(1).Shapes("Oval 1").TextFrame.Characters.Text = "ÇÎÝÇÁ ÇáÇÚãÏÉ" End If End Sub hide column2.rar

السلام عليكم تفضل بيانات العاملين2.rar

السلام عليكم الاخ خبور الاخوة الاعضاء هذا ملف تجربيبي و هو يعمل ليوم واحد (تحت التجريب) **** ملاحظه مهمه (عند غلق الملف اختر حفظ التعديلات نعم) فكره الملف تقوم على: 1- تشغيل كود عند الفتح (بحيث يحفظ تاريخ فتح الملف في الخليه A1) 2- عند غلق الملف يقوم كود ( حملته من موقع Ozgrid) بحذف الكود السابق(لنحصل لعى تاريخ ثابت عند اعادة تشغيل الملف) **اذا كانت الفكره سليمه نستطيع ان نحدد عدد الايام التى نريد لعمل الملف ********************* باسوورد الملف 123456 وضعته على اعتبار انه سيكون من واجبات العمل على الملف الاصلى demo.rar

السلام عليكم بهذه المعادله اخى سالم =SUM(INDIRECT(ADDRESS(ROW(),(((COLUMN())-9)*2)+(COLUMN()-11))&":"&ADDRESS(ROW(),(((COLUMN())-8)*2)+(COLUMN()-11)))) Tray This One.rar

السلام عليكم ممكن هكذا اخى سالم =SUM(INDIRECT(ADDRESS(ROW(),(((COLUMN())-9)*2)+(COLUMN()-11))&":"&ADDRESS(ROW(),(((COLUMN())-8)*2)+(COLUMN()-11))))

السلام عليكم اخى خبور زادك الله علماً ورفعةً مبدع كعادتك

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

السلام عليكم الخلايا المونه بالاحمر ثلاثه!! بينما البيانات في الورقه المراد ترحيل اليها تتعدى التسعه!! ؟ الرجاء تحديد كل خليه الى اين ترحل

السلام عليكم الموضوع سهل لكن اخى حدد الخلايا المراد ترحيلها

السلام عليكم BESO - DEM2.rar

السلام عليكم النسخ يبدا من الخليه A4 Book155555.rar

السلام عليكم و هنا قائمه بكل الالوان http://www.tayloredmktg.com/rgb/ test2.rar

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

السلام عليكم الجدول لا يحوي اي قيم

لا يوجد مرفقات يجب ان تقومى بضغط الملف اولا ثم تعملى له Attach

السلام عليكم كل عام وانت بخير ارفقى ملف يوضح المطلوب

السلام عليكم اخى abu الكود يرحل كل البيانات في اي صفحه من الصفحات الثلاث (المطلب الاول) حدد عدد الصفحات التى تريد الترحيل منها و نعمل الازم(المطلب الثانى) ساقوم بشرح الكود لاحقا(المطلب الثالث)

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

السلام عيكم في اقرب وقت ساشرح الكود

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

السلام عليكم تقبل الله طاعتكم و كل عام و انتم بخير ارفق ملف اخى العزيز ليتسنى معرفة المطلوب

السلام اسم العائلة.rar