حسونة حسين

وعليكم السلام ورحمه الله وبركاته تفضل Sub Transfer_Non_Adjacent_Columns_Using_Arrays_By_Yasser_Khalil() Dim arr As Variant, i As Variant, cr As Variant, j As Long arr = Sheets("ورقة1").Range("A1").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(5, 8, 11, 15, 17, 20) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(1, 2, 3, 4, 5, 6) Sheets("ورقة2").Cells(1, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub

السلام عليكم وبها نبدأ ارفق ملف اخي للعمل عليه

السلام عليكم ورحمه الله وبركاته وبها نبدأ جرب هذا لعله طلبك Option Explicit Sub Sort4() Dim Ws As Worksheet Set Ws = ThisWorkbook.Worksheets("Sheet1") With Ws .Sort.SortFields.Clear .Sort.SortFields.Add Key:=.Range("E10:E13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Sort.SortFields.Add Key:=.Range("F10:F13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Sort.SortFields.Add Key:=.Range("G10:G13"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal .Sort.SortFields.Add Key:=.Range("H10:H13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With .Sort .SetRange Ws.Range("E9:H13") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With End Sub

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

وعليكم السلام ورحمة الله وبركاته ممكن ترفق ملف للعمل عليه

وجزاكم مثله اخى الحمد لله الذي بنعمته تتم الصالحات

وعليكم السلام ورحمة الله وبركاته تفضل فصل الاسماء التي تحتوي على فاصل بينهم.xlsx

السلام عليكم ورحمة الله وبركاته اخي يقصد بها ان تضع بدلا من كلمه Range الخلايا التي تريد جمعها =SUM(ABS(AC41:AC46))

وعليكم السلام ورحمه الله وبركاته لو محتاج كود vba اجهز لك كود

التحصيل يظهر وليس به مشكله سواء 7 او 8 School Fee Collection لystem-.xlsm

وعليكم السلام تفضل اخي MKMK1.xlsm

اخي الكود يرحل كما طلبت وليس به مشكله عدد 8دفعات المطلوب ترحيل الدفعة الأخرة فقط ونطاق الدفعات من السطر 15 الي السطر 22 كما بالصورة التالية

السلام عليكم هذه هي صورة النتيجه الموجوده حاليا ما هي الصورة التي تحتاجها من الصور التالية 1- 2- 3- 4-

وعليكم السلام ورحمه الله وبركاته تفضل اخي تنفيذ ماكرو بناء على قيمة خليه2.xlsb

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل =IF(C4="";"";"Em" & TEXT(C;"dd/mm/yyyy"))

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ××××××××

السلام عليكم ورحمة الله وبركاته وبها نبدأ بارك الله فيك وجعله الله في ميزان حسناتكم يوم القيامة

تمام كده قم بتفعيل الماكرو يا اخي وقم بعمل trust بالضغط على الصورة

تفضل اخي Dim Stock_check As Boolean, Product_check As Boolean Stock_check = Application.WorksheetFunction.CountIf(fa.Range("E2:E" & Uf), ComboBox1) > 1 Product_check = Application.WorksheetFunction.CountIf(fa.Range("A4:A" & Uf), .Cells(J, 1)) > 1 If (fa.Cells(J, 4).Value) = 0 And Stock_check = True And Product_check = True Then fa.Cells(J, 4).EntireRow.Delete End If

اخي @Chenine Abdelhalim لقد تم ارسال لك رساله ببيانات الدخول

وعليكم السلام ورحمه الله وبركاته تفضل اخي 2024.xlsm

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل اخى If (fa.Cells(J, 4).value) = 0 and Application.WorksheetFunction.CountIf(fa.Range("e2:e" & uf), ComboBox1) > 0 Then Fa.Cells(J, 4).EntireRow.Delete

سؤالى فقط جواب بنعم او لا هل الملف الذي رفعته لك يعمل ام لا بدون اي تغييرات في المعادله ؟

هل الملف الذي رفعته لك يعمل ام لا بدون اي تغييرات

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