حسونة حسين

وعليكم السلام ورحمه الله وبركاته عدل هذا السطر Set xRg = Worksheets("Sheet1").Range("C1:C" & I) الى Set xRg = Worksheets("Sheet1").Range("E1:E" & I)

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

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

تفضل اخي INVOICE.xlsm

السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل اضغط مرتين في اي خليه في عامود اسم الصنف في الفاتورة واكتب ما تريد البحث عنه في التيكست بوكس سوف يظهر لك الاصناف في الليست بوكس اضغط مرتي علي اي صنف تريده من الليست بوكس سوف يتم وضعه في اول خليه فارغه INVOICE.xlsm

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

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

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

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

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

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

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