كود لإظهار القيم المكررة ومكان تكرارها في MSGBOX

[الرائد77]

السلام عليكم . رمضان مبارك تقبل الله منا و منكم 

في الملف كود لإظهار القيم المكررة   مع رقم الصف الموجود فيه التكرار في MSGBOX

اظهار المكرر في رسالة.xlsm

[سليم حاصبيا]

بارك الله بك اخي رائد

اليك كود اخر  بنفس الموضوع لكنه يفوم بترتيب النتيجة ابجدياً (مع حق اختيار القيم الفريدة) 

Option Explicit
Sub My_code()
  Dim list As Object
  Dim Rng As Range, rcell As Range
  Dim D As Worksheet, Lr_A%
  Dim Answer As Byte
Set D = Sheets("Duplicates")
Lr_A = D.Cells(Rows.Count, 1).End(3).Row
Set list = CreateObject("System.Collections.ArrayList")
Set Rng = D.Range("A2:A" & Lr_A)
D.Range("D1").CurrentRegion.Clear
Answer = MsgBox("Do you want all data Or Only the Unique values", 4)
 
  For Each rcell In Rng.Cells
  '++++++++++++++++++++++++++++++++++++++++++++++++++
If Answer <> 6 Then
    list.Add (rcell.Text) '*
    Else
   If Not list.Contains(rcell.Text) Then list.Add (rcell.Text) '**
End If
   '+++++++++++++++++++++++++++++++++++++++
  Next rcell
list.Sort

 MsgBox Join(list.ToArray, vbCrLf)

D.Range("D1").Resize(list.Count) = _
Application.Transpose(list.ToArray())
Set list = Nothing
End Sub

الملف مرفق

Sortig_Data.xlsm

[Ali Mohamed Ali]

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

كل عام وأنتم بخير

[احمد ابوزيزو]

السادة

الرائد77

تحية طيبة ..

اذا كانت مفردات القيم المكررة كثيرة ...هنا لاتظهر هذه المفردات جمعيها

فهل يمكن ان تظهر النتائج من خلال فورم يظهر به شريط تمرير راسي

 

السادة

سليم حاصبيا

ظهرت هذه الرسالة عند استخدام الملف في المشاركة اعلاه

[سليم حاصبيا]

تم التعديل

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

Sortig_Data_with list.xlsm

[احمد ابوزيزو]

الاستاذ / سليم حاصبيا

شكرا علي اهتمامكم

ما زالت الرسالة تظهر عند الضغط علي زر الماكرو .......والاوفيس 2013

[سليم حاصبيا]

لا أعلم حقيقة ما المشكلة

لان عندي  Windows7  و Office2016

 

 

تأكد من هذا الشيء

[الرائد77]

أخي احمد ابوزيزو

تفضل المطلوب

المكرر على اليوزرفورم.xlsm

[Mohmad83]

الاستاذ الرائد77  ،،، الاستاذ سليم حاصبيا

فعلاً عمل مميز جزاكم الله خيراً