ضبط هذا الكود بحيث لا يكرر الاعداد

[hamed.34552]

اريد ان يوزع الكود المدى في e2 دون ان يكرر الارقام ....ارجو من الاستاذ ياسر خليل او الاستاذ سليم حاصيبيا ان يفيدوني

انتبه من فضلك... مشاركة مكررة , تـــــم بالفعل حذف المشاركة الأخرى

hamed3.xlsm

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

أولاُ لم افهم عليك ما تريد

ثانياُ في اي صفحة تريد العمل

ثالثاً ارقع ملف يحنوي على النتيجة التي تتو قعها (مثال عما تريد)   
(اكتب البيانات والتتائج يدوياً)

[hamed.34552]

اريد توزيع المدي من١ b1١ 😛 في الذي في ورقة١

في ورقة Hamed في المدي e2 الي e5 

بعد الضغط علي زر التوزيع

hamed4.xlsm

وشكرا الاستاذ الفاضل سليم حاصبيا

ارسلت لك الملف مرة ثانية للتوضيح

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

هذا الكود

Option Explicit
Sub RANDOM_INDEX()
    
    Dim n%, x%, i%
    Dim m%, y%, z%, T%
    Dim My_rg As Range
    Dim colL As Collection
  
  Set My_rg = Sheets("Main").Range("B11:B14")
  Set colL = New Collection
  y = 1: z = My_rg.Columns(1).Rows.Count: n = 1
 

With CreateObject("System.Collections.SortedList")
    Do Until .Count = z
        T = Rnd
        x = Int((z - y + 1) * Rnd()) + y
        .Item(x) = n
        On Error Resume Next
         colL.Add x, CStr(x)
        On Error GoTo 0
        n = n + 1
    Loop
    m = 5
    For i = 0 To .Count - 1
      Sheets("hamed").Cells(2, m) = _
       My_rg.Cells(colL(i + 1))
      m = m + 1
    Next
End With
End Sub

الملف مرفق

Hamed_Rand.xlsm

[hamed.34552]

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

[hamed.34552]

حضرتك عملت الكود من b11 الي b14  والكود يعمل بامتياز .....****

لكن هل يمكن ان يكون المدي في الورقة main من b11   الي b18 ويوزع الارقام في الورقة Hamed   بحيث يتجاهل الخلايا الفارغة ويوزع الارقام فقط

hamed4.xlsm