ياسر خليل أبو البراء

وعليكم السلام تركيز مؤشر الماوس في التكست بوكس رقم 2 أي عندما يتم الخروج من التكست بوكس الأول ، يوضع المؤشر بشكل تلقائي في التكست بوكس الثاني

وعليكم السلام أخي الغالي أبو يوسف مع التواريخ جرب استخدام احدى الدالتين CDATE أو CLNG .. اقرأ حول الدالتين لمعرفة المزيد عنهما لربما يساعدك ذلك في إتمام الأمر إنن شاء الله

جرب الكود التالي Sub Copy_Selected_Range_As_New_Workbook() Dim a As Range, rng As Range Dim strDir As String Application.ScreenUpdating = False Set rng = Selection ActiveSheet.Copy If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Columns.Hidden = False Rows.Hidden = False Cells.ClearContents For Each a In rng.SpecialCells(xlCellTypeVisible).Areas Range(a.Address).Value = a.Value Next a strDir = ThisWorkbook.Path & "\Test\" If Dir(strDir, vbDirectory) = "" Then MkDir strDir End If ActiveWorkbook.SaveAs Filename:=strDir & ThisWorkbook.Name & ".xls", FileFormat:=56, CreateBackup:=False ActiveWorkbook.Close Application.ScreenUpdating = True End Sub

أخي الكريم يرجى طرح طلبك في موضوع مستقل حيث أن الطلبات في المشاركات الفرعية لا يلتفت إليها ، وعند طرح الموضوع ارفق ملف موضحاً فيه شكل النتائج المتوقعة ليساعدك الأخوة الكرام في المنتدى ويسهل تقديم المساعدة من الأخوة تقبل تحياتي

وعليكم السلام ورحمة الله وبركاته أخي الكريم إبراهيم الأمر يتوقف على أمور كثيرة .. حسب ظروف المصنفات التي تعمل عليها هل المصنفات التي سيتم الاستيراد منها تكون مفتوحة أم مغلقة ؟ هل توجد كلها في مجلد واحد ؟ هل يوجد معها مصنفات أخرى لا تريد التعامل معها؟ الأفضل إرفاق عينة من الملفات مع الملف الرئيسي المراد عمل الكود به ليقوم الأخوة بتقديم المساعدة المطلوبة

وعليكم السلام تطبيقاً لكلام الأخ الغالي زيزو إليك المعادلة =IF(LEN(A1)<>10,"مخالف","")

ارفق الملف للإطلاع عليه وتجربته

أخي الكريم هذا ما يقوم به الكود بالفعل ..قمت بتجربة الكود مرة أخرى فقام بتصدير الورقة Sheet1 إلى مصنف جديد وبه نفس اسم الورقة المنسوخ منها فقط تم تغيير السطر الخاص بالحفظ ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\YourFileName.xls", FileFormat:=56, CreateBackup:=False هذا السطر ليكون التصدير بصيغة 97/2003

احتمال أن تكون تلك الأزرار غير مربوطة بشكل صحيح بالماكرو أو أن الماكرو حذف أو تم تغيير اسمه اعمل كليك يمين على زر الأمر واختر Assign Macro واختر اسم الماكرو الذي ترغب في ربطه بزر الأمر

وعليكم السلام أخي الكريم أبو عبد النور بارك الله فيك على الكود الجميل .. يعيب الكود فقط أنه لابد أن تكون القيم المتشابهة متتالية وإلا لن تكون النتائج صحيحة ... أما الكود الذي قدمته لم أجربه على الملف لكن يعيب أنه لابد من التخلص من المسافات الزائدة لذا وجب إضافة إلى الكود لكي يتلاشى خطأ المسافات والكود بهذا الشكل Sub UniqueListAndSum() Dim ws As Worksheet Dim i As Long Dim j As Long Dim k As Long Dim x, y() ReDim y(1 To Rows.Count, 1 To 2) With CreateObject("Scripting.Dictionary") .CompareMode = 1 Set ws = Sheets("StockReport") x = ws.Range("A1:B" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value For i = 2 To UBound(x) x(i, 1) = Trim(x(i, 1)) If Len(x(i, 1)) Then If .Exists(x(i, 1)) Then k = .Item(x(i, 1)) y(k, 2) = y(k, 2) + x(i, 2) Else j = j + 1 .Item(x(i, 1)) = j y(j, 1) = x(i, 1) y(j, 2) = x(i, 2) End If End If Next i End With With ws .Columns("I:J").ClearContents .Range("I1:J1") = Array("Names", "Quantity") .Range("I2").Resize(j, 2).Value = y() End With End Sub

السلام عليكم إليك الرابط التالي فيه موضوع مشابه تماماً لموضوعك http://laernoffice.com/2016/12/23/استخراج-القيم-الفريدة-وجمع-القيم-في-ال/

ما هي نسخة الأوفيس التي تعمل عليها ؟ وما هو إصدارها؟ هل 32 بت أم 64 بت؟ وماذا يحدث بالضبط عند تشغيل الكود؟

وعليكم السلام الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله .. الحمدلله أن تم المطلوب على خير أخي الكريم سيف ولي نصيحة أخيرة : حاول عندما تطرح موضوع أن يكون الملف معبر عن الملف الأصلي تماماً لأن كل ملف وله طبيعته وعمله الخاص والبرمجة تستهدف الهيكلة الموجودة ، فكلما كانت المعطيات دقيقة كانت النتائج صحيحة ودقيقة تقبل وافر تقديري واحترامي

هذا الطلب مكرر للمرة الثالثة الرجاء عدم تكرار الموضوعات بدون داعي أخي الكريم

وعليكم السلام يوجد سطرين بالكود بهذا الشكل If Not IsEmpty(arr1(i, 2)) Then قم باستبدالهما بهذا الشكل If arr1(i, 2) <>"" Then انتبه بالنسبة للسطر الثاني ستستخدم كلمة arr2 وليس arr1 ...

ارفق ملفك بعد وضع الكود المشار إليه في الملف .. وتوضيح المشكلة بشكل أدق ولو بالصور

لا أدري ما المشكلة بالضبط لديك الآن في الرابط طريقة تصدير لورقة عمل محددة إلى مصنف جديد وأعتقد هذا طلبك إذا كانت المشكلة قائمة قم بإرفاق ملفك للإطلاع عليه وأخبرنا ماذا يحدث لديك

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

كلنا نخطيء ونتعلم من بعضنا البعض ... تقبل وافر تقديري واحترامي

وعليكم السلام لم أفهم المشكلة بشكل واضح ..ارفق ملف معبر عن الملف الأصلي

الحمد لله الذي بنعمته تتم الصالحات ..هذا من فضل ربي

كلمة xlup خطأ .. قم باستبدال الرقم 1 إلى حرف l

وعليكم السلام أخي الكريم أبو حمزة ممكن ترفق بعض النتائج المتوقعة .. وضرب مثال للمطلوب ..

اضبط إعدادات الماكرو بحيث يسمح للأكواد بالعمل للمزيد حول البدايات قم بزيارة الرابط التالي من هنا

تفضل نفس الملف بيان المؤسسة1 تنسيق شرطي قيمة_v001.rar