أبو عبد النور

السلام عليكم، تستطيع جلب البيانات بدون تفعيل الصفحة. جرب بدون Feuil3.Activate

ارفق الملف الذي جربت عليه وظهر فيه الخطأ.

اهلا اخي ياسر، الناتج فعلا ليس به مسافات لاني قمت بحفذفها اثناء المعالجة. فكرتك في الحل جميلة ايضا عدلت الكود (وهو حدف المكرر بدل استخراجه مثل المرة الاولى) Sub StockReport() Dim Ts(), Tb() Dim j As Integer Dim i As Integer Dim Sm As Integer Sm = 0 Ts = Range([A2], Cells(Rows.Count, 1).End(xlUp)).Value For i = 2 To UBound(Ts) If Trim(Ts(i, 1)) = Trim(Ts(i - 1, 1)) Then Sm = Sm + 1 Else j = j + 1 ReDim Preserve Tb(1 To 2, 1 To j) Tb(1, j) = Trim(Ts(i - 1, 1)) End If If i = UBound(Ts) Then j = j + 1 ReDim Preserve Tb(1 To 2, 1 To j) Tb(1, j) = Trim(Ts(i, 1)) End If Next [E:F].ClearContents [E2].Resize(UBound(Tb, 2), UBound(Tb, 1)).Value = Application.Transpose(Tb) [F2] = Sm & " من الأرقام تم حدفها " End Sub

وعليكم السلام ورحمة الله، اليك هذه المحاولة. المكرر من الارقام_ن001.rar

السلام عليكم، لعد إذن الاستاذ ياسر، هاك حل آخر. StockReport_(v001).rar

وفيك بارك الله.

تم عمل البحث بالاسم للحصول على الاسم / موبايل1 / المبلغ (تستطيع استبدال موبايل1 باالتاريخ) TEL INDEX - alraqi_v007.rar

السلام عليكم، المثال مرة أخرى مرفق مع الشرح. SUM_ARRAY_v001.rar

اذن طبق التنسيق التالي على الخلايا المعنية بالتاريخ. [$-1860000]B2yyyy/mm/dd;@

وعليكم السلام ورحمة الله، محاولة بالمرفق. تغيير صيغة التاريخ_ن001.rar

تعديل آخر : بحث مع تصفية_ن003.rar

السلام عليكم، بعد إذن استاذنا الفاضل ابو البراء، انظر اخي ابو حمزة الى المرفق. SUM_ARRAY_v001.rar

جرب التعديل الجديد. بحث مع تصفية_ن002.rar

واحدة بواحدة اخي الراقي. جرب التعديل هذا. TEL INDEX - alraqi_v006.rar

جرب الملف الاتي. لانه حتى بكتابة 1500.50 يتم تفقيطها عادي. TEL INDEX - alraqi_v005.rar

انا عندي لا اصادف هذه المشكلة. سوف ابحث في الامر ان شاء الله.

اقصد في ورقة الاكسل

يجب ان تكون صيغة العمودين عبارة عن "Date".

كيف تكتب الارقام العشرية عندك ؟ بالفاصلة ام بالنقطة ؟

السلام عليكم، يجب ان تكون التكسات بوكس التي ما قبلها فيها قيم، يعني يجب ان تراعي الترتيب في الادخال والبحث لا ارى اهمية للسطر 5 لان الادخال يتم مباشرة اثر ضغط على زر Enter في التكست بوكس 8 لا توجد اي ماكرو آخر من غير Check_Copy

جرب الرقم بالصيغة التالية : 1500,50 (المشكلة في الفاصلة العشرية) هل تقصد الفورم الثاني ؟ لان البحث يتم عن طريق الاسم وبالنقر عليه مرتين يتم عرض المعلومات الخاصة بالاسم في الفورم الاول.

جرب المثال التالي TEL INDEX - alraqi_v004.rar

السلام عليكم، ربما هذا الملف سيفي بالغرض المطلوب. بحث مع تصفية_ن001.rar

هل الاوفيس لديك غير عربي ؟

جرب المثال في المرفقات. TEL INDEX - alraqi_v003.rar