commandos1975

اخفاء محتولات الصف عند كتابة حرف معين في خلية في الصف I لاخفاء محتويات هذا الصف عدا A و F aaxlsx.xlsx

يوجد مجموعه من الاسماء لها اكواد وتم حذف بعض الاسماء والمطلوب كود ماكرو ينسخ الكود المقابل للاسم الي المكان الجديد له بجواره copy.xlsm

ترتيب العمود الثالث وليكن c ايضا تصاعدي

Sub a_b() ' ' a_b Macro ' Macro recorded 12/11/2009 by USER ' ' Application.GoTo Reference:="sheet" Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Key2:=Range("F7") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("A1").Select End Sub

بعد نسخ الاكواد لم تعمل

نقل اسماء الطلبة من الورقي الاوالي الي الثانية حسي الاسم المكتوب في e3 data.xlsx

السلام عليكم دا ملف متجمل من النت بهذه الطريقة ونريد وضع الارقام في خلايا

كود نسخ الارقام الي عمود اخر aa.xlsx

تلوين الارقام الموجودة في الجدول مع التسلسل العمود الاول باللون والعمود الثاني باللون اخر Boo.xlsx

بارك الله فيكم

كود يساعد في طباعة البرقيات بحيث يتغير الاسم والمسلسل وطباعة برقية في ورقة او 3 برقيات في ورقة طباعة.xlsx

اريد دمج دوال الملفين ملف يستخرج البيانات من الرقم القومي والملف الاخر يستخرج اسم الاب انتبه من فضلك ... مشاركة مكررة ,تــــم بالفعل حذف المشاركة الأخرى 1.xls 2.xls

اذا كان الناتج سالب يظهر صفر بدلا منه .... عنوان مخالف , تم تعديل عنوان المشاركة ليعبر عن طلبك Book1.xlsx

ربنا يبارك فيك يا غالي شغل عالي استفسار هذا الكود يعمل مع اي ملف اي ل اعداد كثيرة من الاعمدة وجدت هذا الكود كيف يمكنني الاستفادة منه Sub SortTable() Dim myTable As Range Dim myColToSort As Long Dim curWks As Worksheet Dim mySortOrder As Long Dim LastRow As Long Dim iCol As Integer Dim strCol As String iCol = 170 '10 columns strCol = "A" ' column to check for last row Set curWks = ActiveSheet With curWks ActiveSheet.Unprotect myColToSort = .Shapes(Application.Caller).TopLeftCell.Column LastRow = .Cells(.Rows.Count, strCol).End(xlUp).Row Set myTable = .Range("a6:a" & LastRow).Resize(, iCol) If .Cells(myTable.Row + 1, myColToSort).Value _ < .Cells(LastRow, myColToSort).Value Then mySortOrder = xlDescending Else mySortOrder = xlAscending End If myTable.Sort Key1:=.Cells(myTable.Row, myColToSort), _ Order1:=mySortOrder, _ Header:=xlYes End With ActiveSheet.Protect End Sub اجعل وقت لغيرك فى طلب الإستفسار والمشاكل, طالما تحصلت على الإجابة المطلوبة

السلام عليكم اريد معرفة طريقة تشغيل ميكرو الترتيب علي اكثر من عمود اي عند التوجة للمسلسل يرتب المسلسل وعند التوجه لعمود الاسم يرتب الاسم وعند التوجة لعمود المستوي يرتب المستوي الضغطة الاولي تصاعدي والضغطة الثانية تنازلي agh.xlsm

ربنا يبارك فيك بتظهر الرسالة دي

شكرا جزيلا الملف الاول افضل من الثاني لكن المطلوب ظهور اسم العمود من اعلي الاول كما بالصورة المرفقة

شكرا يا غالي علي مجهودك بس المشكة ان الاسماء فعلا كثيرة لا يمكن تصغيرها فهل من طريقة تتعامل وتظهر اماكن المكرر فيها من اسماء الاعمدة سواء الاول او الثاني

المساعدة في استخراج المكرر في اكتر من عمود مع كتابة اماكن التكرار data.xlsm

اضافة كود لماكرو يرحل البيانات من الصفحة الحالية الي صفحة البيانات مع امكانية التعديل والبحث من خلال هذة الصفحة الاخ الفاضل نقل البيانات من الصفحة الاولي الي الصفحة الثانية في نفس الترتيب في جدول ddff.xlsm

اذا كانت القيم الموجودة في العمود E هى كمابالعمود B يظهر في العمود F رقم المسلسل اي الرقم الموجود في العمود A الموجود في الملف المرفق aaa.xls

بارك الله فيك

اضافة ماكرو لنسخ الاسماء من الورقة السابقة الي الورقة الحاليه علي حسب من الي المكتوبه aaaa.xls

الاخ الفاضل تعير الدرجة مكانها في نفس العمود بماكرو

كود يقوم بتغير الدرجه اذا توافر شرطان في الملف المرفق aa.rar