حسونة حسين

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

وعليكم السلام ورحمة الله وبركاته أكواد VBA لا تعمل على الجوال لأن الجوال لا يدعم تشغيل برامج Excel التي تحتوي على VBA

السلام عليكم ورحمة الله وبركاته وبها نبدأ قم بالضغط على enable content كما بالصورة ولو لم تحل المشكله يمكنك الاطلاع على هذا الموضوع

وعليكم السلام ورحمة الله وبركاته تفضل =SUBSTITUTE(B2;",";" ")

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ وحضرتك بخير اخي ايهاب وبصحه جيده يرجي تصميم الفورم بالشكل الذي تحب ورفع الملف وان شاء الله ستجد ما يسرك

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل ورقة عمل Microsoft Excel جديد.xlsx

جرب هذا الكود Sub test() Dim cell As Range For Each cell In Range("D2:D5000") If not IsNumeric(cell.Value) Then cell.Value = Val(Replace(cell.Value, "٫", ".")) End If Next cell End Sub

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل =IF(G2>=0;ROUND(G2; 0);ROUND(ABS(G2);0)) او =IF(G2>=0,ROUND(G2, 0),ROUND(ABS(G2),0))

وعليكم السلام ورحمة الله وبركاته اخى عمليه الاستبدال بسيطه لا تحتاج لاكواد قم بالاتي ١ - حدد العامود الذي به الارقام ٢ - قم بالضغط على الزر ctrl + h ٣ - قم بوضع هذه العلامه ٫ واستبدلها بهذه . وستحل المشكله ان شاء الله وستجد انا الارقام اصبحت سليمه مع التركيز علي نفس الفاصله قم باخذها copy

وعليكم السلام ورحمة الله وبركاته يرجى رفع ملف للعمل عليه

وعليكم السلام ورحمة الله وبركاته تفضل لعله المطلوب نقل المبلغ.xlsx

السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل اخي وعليك بالشرح المستفيض حتى يتم فهم مشكلتك بصورة اوضح تصنيع.xlsb

السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل اخي Option Explicit Sub Search_Transfer() Dim WS As Worksheet, cel As Range, lr As Long, Temp(), I As Long, J As Long, X Set WS = ThisWorkbook.Worksheets("Sheet2") lr = WS.Cells(Rows.Count, "R").End(xlUp).Row For Each cel In WS.Range("R5:R" & lr) If cel <> "" Then X = Application.Match(cel, WS.Columns(13), 0) If Not IsError(X) Then I = I + 1 ReDim Preserve Temp(1 To 15, 1 To I) Temp(1, I) = I For J = 2 To 15 Temp(J, I) = WS.Cells(X, J).Value Next J End If End If Next cel Temp = Application.Transpose(Temp) If I > 0 Then WS.Range("V5").Resize(I, UBound(Temp, 2)).Value2 = Temp End Sub

وعليكم السلام ورحمه الله وبركاته تفضل 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