رجب جاويش

أخى الفاضل / ريان أحمد لا شكر على واجب جزاك الله كل خير

بعد اذن أخى الحبيب / أبو حنين أخى ريان أحمد هذه هى الطريقة التى تريدها فى اخفاء واظهار الأعمدة اخفاء واظهار أعمدة.rar

أخى الحبيب / أبو حنين بسم الله ما شاء الله تسلم ايديك وتسلم ابداعاتك المتجددة

أخى الفاضل غير السطريين التاليين Range("B2:J47").Select Selection.PrintOut Copies:=1, Collate:=True الى السطر التالى Range("B2:J47").PrintOut Copies:=1, Collate:=True

السلام عليكم أخى الفاضل جرب هذا الملف ربما يفى بالغرض الجمع بالالوان.rar

أخى الفاضل بالنسبة لاضافة سطر للمجموع نهاية كل صفحة لجميع الخلايا التى بها أرقام يمكنك متابعة الرابط التالى للأستاذ عباد http://www.officena.net/ib/index.php?showtopic=44377 حيث أننى حاولت تطبيقة على ملفك ولم يفلح معى ربما يتفضل احد الأخوة بمحاولة تطبيق الكود على ملفك

أخى الفاضل وجود دمج خلايا فى البيانات الموجودة فى بداية الشيت يمنع عمل الكود لذا تم عمل فواصل صفحات وتثبيت البيانات العلوية لتظهر فى جميع الصفحات ( يمكن رؤيتها عند المعاينة ) ولكن أحيانا يحتاج الأمر تعديل الفواصل يدويا فى بعض الحالات ( لصعوبة ضبطة بالكود فى كل مرة ) جرب الملف المرفق ترحيل مع تقسيم البيانات3.rar

السلام عليكم هذا هو التعديل ليحل مشكلة وجود صفين فى بداية البيانات ترحيل مع تقسيم البيانات2.rar

أخى الفاضل اضغط الملف أولا ببرنامج ضغط مثل Winrar ثم ارفقه

السلام عليكم تفضل أخى Sub ragab() Sheets("sheet2").Range("A2:C1000").ClearContents LR = [A10000].End(xlUp).Row - 1 Application.ScreenUpdating = False Range("A2:C" & LR + 1).Copy Sheets("sheet2").Range("A2").PasteSpecial xlPasteValues R = Range("D1").Value + 1 XX = Application.WorksheetFunction.RoundUp(LR / R, 0) - 1 Sheets("sheet2").Select Range("A1").Select For e = 1 To XX ActiveCell.Offset(R, 0).Range("A1").Select Rows(ActiveCell.Row).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next e Range("1:1").Select Selection.Copy For e = 1 To XX ActiveCell.Offset(R, 0).Range("A1").Select ActiveSheet.Paste Next e Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح", vbMsgBoxRight, "اكتمال الترحيل" End Sub ترحيل مع تقسيم البيانات.rar

بعد اذن أخى الفاضل / محمود رواس وحسب ما فهمت من الملف جرب أخى الكود التالى Sub ragab1() [C7:G20].ClearContents For i = 3 To 7 For ii = 7 To Cells(3, i) + 6 Cells(ii, i) = Int(Rnd(1) * Cells(3, i) + 1) Next Next End Sub فرز عشوائي.rar

أخى وجارى الحبيب / ياسر خليل أحبك الله الذى أحببتنى فيه وجزاك الله كل خير على هذه الكلمات الطيبة

السلام عليكم هذا حل باستخدام كود يوضع فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = [B10].Address Then For Each cl In [K3:K30] If cl <> "" Then myarr = myarr & cl & "," Next With Range("F10").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=myarr End With End If End Sub ويتم تشغيلة بمجرد كتابة رقم فى خلية سعر التكلفة ( B10 ) قائمة منسدله1.rar

أخى الفاضل / ali_altaaiy شكرا جزيلا لك ولاثراء الموضوع هذا حل آخر search1.rar

السلام عليكم تفضل أخى search.rar

أخى الحبيب / محمود لا يوجد ما يقال بعد هذا الكلام الرقيق جدا والبليغ جدا فجزاك الله عنا خير الجزاء

بارك الله فى إخوتى الأحبة المشاركين فى الموضوع على هذا المجهود الرائع ولاثراء الموضوع هذا حل باستخدام كود آخر Sub ragab() Application.ScreenUpdating = False LR = [A1000].End(xlUp).Row [H3:I1000].ClearContents For Each cl In Range("A3:A" & LR) x = Application.WorksheetFunction.CountIf(Range("A3:A" & cl.Row), cl) If x = 1 Then Arr = Arr & cl & "," Next Arr = Left(Arr, Len(Arr) - 1) For Each c In Split(Arr, ",") Cells([H1000].End(xlUp).Row + 1, 8) = c Next For Each cll In Range("H3:H" & [H1000].End(xlUp).Row) For Each cel In Range("A3:A" & LR) If cel = cll Then cll.Offset(0, 1) = cll.Offset(0, 1) + cel.Offset(0, 1) End If Next Next Range("H3:I" & [I1000].End(xlUp).Row).Sort Key1:=Range("I3"), Order1:=xlDescending Range("H13:I" & [I1000].End(xlUp).Row) = "" Application.ScreenUpdating = True End Sub Top Ten 2.rar

أخى الفاضل / dah_med الموضوع بسيط مجرد ضبط فواصل الصفحات تفضل معدلات التلاميذ س5 حسب المؤسسات1.rar

أخى الفاضل / ابو تميم شرفنى جدا هذا المرور العطر وهذه الكلمات الطيبة

تفضل أخى معدلات التلاميذ س5 حسب المؤسسات1.rar

أخى الفاضل / محمود رواس داله index وداله vlookup من دوال البحث ولكل منهما أسلوب فى طريقة جلب البيانات ويكون بينهما تشابه عند استخدام دالة match مع دالة index ومرفق ملف يوضح الشرح التفصيلى لكل منهما index & vlookup.rar

أخى الفاضل / ريان أحمد جزاك الله كل خير

أخى الحبيب / أبو حنين جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة من أخى الحبيب المبدع / أبو حنين

أخى وجارى الفاضل / ياسر خليل جزاك الله كل خير تقبل أجمل تحياتى

تفضل أخى معدلات التلاميذ س5 حسب المؤسسات.rar