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