Alttear

السلام عليكم اخواني الكرام لو سمحتم طلب تعديل على الملف التالي 1- حذف الخلايا الملونة و حذف الاعمدة المتشابهة الشرح في داخل الصفحات شكرا لكم Test Modify.rar

السلام عليكم أستاذي الكريم ,, الكود يحوي خطأ ما في الملف التالي لايوجد اية اعمدة متشابهة و مع ذلك يقوم بالحذف ! , ما السبب ؟ مااريده : حذف الاعمدة المتطابقة تماما من ناحية القيم Del Col.rar

جزاك الله خيرا استاذي الكريم وهو المطلوب.

السلام عليكم اخواني الكرام ,, لدي الملف التالي يحوي على عدد كبير من الخلايا و فيه بعض الاخطاء في تكرار نفس الخلايا لو تكرمتم ,, جعل الخلايا التي تحوي على نفس التاريخ بقيمة مختلفة و لكم الشكر Same Date.rar

السلام عليكم لو تكرمتم ,,كود لحذف الاعمدة المكررة التي تحوي على نفس القيم و شكرا Dub Clm.rar

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

السلام عليكم اخواني لو تكرمتم .. طلب تلوين الخلايا التي تحوي على + بداخلها ( اشارة + و ليس معادلة ) و تحديدها بمربع اسود ثم ازلة اشارة ال + شكرا لكم Color.rar

نعم استاذي .. في الورقة الواحدة تتجاوز العدد المسموح به طريقة الاضافة تتم عن طريق الكود التالي : ActiveSheet.Cells(1, clmresult + 1).EntireColumn.Insert القضية هي اضافة عامود فارغ عند تحقيق شرط ما ليصبح العمود ذاته يحوي بيانات وفق المعادلة المشكلة ان الصفحة عندما تملأ بالاعمدة لا استطيع اضافة اي عامود و المطلوب : تتمة عمل ال VBA في صفحة اخرى ( SHEET 1.1 ) دون ان يفقد اي من العمليات الحسابية التي يقوم بها . او طريقة بديلة ..

السلام عليكم ملف ال vba لدي يقوم بعملية اضافة للاعمدة ( عند شرط معين ) و عندما يتجاوز الحد المسموح به في عدد الاعمدة لملف الاكسل يتوقف عن العمل. هل من طريقة معينة استطيع تخطي بها الحد المسموح به من الاعمدة ؟ او القيام بتتمة العمل في صفحة اخرى من الملف نفسه مثلا ؟ شكرا

السلام عليكم UP

UP

السلام عليكم جزاك الله خيرا استاذ ياسر هذا هو المطلوب وقد قمت بتعديله ليلبي احتياجاتي بشكل اكبر فما رأيك Sub SortColumnsByColorCount() Dim iCol As Long Dim firstRow As Long Dim firstcol As Long Dim lastRow As Long Dim LastCol As Long Dim i As Long Dim x As Long Application.ScreenUpdating = False firstRow = 1 firstcol = 1 lastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + firstRow - 1 LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column For iCol = 1 To LastCol Cells(1, iCol).Value = ColorFunction(Range(Cells(1, iCol), Cells(lastRow, iCol))) Next iCol Range(Cells(firstRow, firstcol), Cells(lastRow, LastCol)).Sort Key1:=Range("A" & 1), Header:=xlNo, Orientation:=xlLeftToRight Range(Cells(firstRow, firstcol), Cells(firstRow, LastCol)).ClearContents Application.ScreenUpdating = True End Sub Function ColorFunction(rRange As Range) Dim rCell As Range Dim vResult As Long For Each rCell In rRange If rCell.Interior.ColorIndex <> -4142 Then vResult = vResult + 1 End If Next rCell ColorFunction = vResult End Function

تمام استاذي .. و لكن الا يمكن الغاء عملية النسخ ؟ بعض الملفات لدي تحوي على عدد كبير من الاعمدة و نسخها يتطلب وقتا

ما شاء الله .. دائما في قمة الابداع استاذ ياسر وضعت النتيجة لاشرح المطلوب و ليس لاجل اجراء عملية النسخ حاولت ازالت عملية النسخ و تبديلها بعملية الترتيب فقط و لم استطع اما كتعديل للملف فارجو جعل iCol يبدأ بعد أول عمود فارغ وينتهي بأخر قيمة قرأت قليلا و اظن انها تتم بهذا الشكل AfterFirstEmpty = ? LastCol = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column For iCol = AfterFirstEmpty To LastCol و جزاك الله كل خير

السلام عليكم كيف اقوم بترتيب الخلايا حسب الالوان الاعمدة التي تحوي على خلايا بيضاء اولا ثم الملونة ؟ Sort Colored Cell.rar

السلام عليكم اخواني الكرام .. لدي مشكلة في بيانات ملف الاكسل التواريخ لدي بهذه الصيغة Date : 02/2017/26 ارغب بكتابة اليوم عوضا عن التاريخ على الشكل Date : Monday مع الشكر Date Fix.rar

السلام عليكم أستاذ ياسر لقد قمت بالعديد من المعادلات و اصبح لدي نوعين من الخلايا ارجو لو تكرمت ان تنظر في الملف تخبرني كيف اصلحه جزاك الله كل خير Date Fix.rar

السلام عليكم استاذي الكريم هل ممكن لو تفضلت و اخبرتني ما المشكلة في هذا الملف الايام لاتكتب ,, بل يكتب التاريخ عوضا عنها test comment.rar

السلام عليكم و رحمة الله و بركاته لو سمحتم اريد نسخ و لصق الاعمدة من ملف الى اخر الشرط : 1 - اسم الملف يحدد من الخلية الاولى 2 - ان تكون باقي الخلايا تساوي الخلايا المطلوب نسخها في نفس العمود 3 - يحفظ الملف الجديد ايضا باسم اول خلية جزاكم الله خيرا الملف المرفق يوضح الفكرة بشكل اكبر Same Data.rar

السلام علييكم اخواني الكرام .. هل الفكرة صعبة ام غير واضحة ! شكرا

UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP UP

يرجى من احد الاخوة التكرم و الاجابة

up

up