إختيار اسماء بطريقة عشوائية

[منياوى]

المطلوب فى الملف المرفق ولكم جزيل الشكر

اسماء عشوائية.rar

[طارق محمود]

السلام عليكم

أخي العزيز

تفضل المرففق

اسماء عشوائية2.rar

[أبو حنــــين]

بعد اذن اخي الاستاذ طارق

اسماء عشوائية2.rar

[رجب جاويش]

بعد اذن إخوتى الأفاضل

الاستاذ / طارق

وأخى الحبيب أبو حنين

ولائراء الموضوع

هذا حل آخر

Sub ragab()

[A1:C5].ClearContents

For i = 1 To 3

    For ii = 1 To 5

1	   x = Int((15 - 1 + 1) * Rnd + 1)

		    Cells(ii, i) = Cells(x, 11)

		    y = Application.WorksheetFunction.CountIf(Range(Cells(ii, 1), Cells(ii, 3)), Cells(ii, i))

		    yy = Application.WorksheetFunction.CountIf(Range(Cells(1, i), Cells(5, i)), Cells(ii, i))

	    If y > 1 Or yy > 1 Then GoTo 1

    Next

Next

End Sub

اسماء عشوائية.rar

[أبو حنــــين]

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

جزاك الله خيرا

[رجب جاويش]

أخى الحبيب / أبو حنين

هذه شهادة أعتز بها من أخى المبدع صاحب الروائع أبو حنين

جزاك الله كل خير أخى الحبيب

[حمادة عمر]

السلام عليكم

والله العظيم شي رائع في هذا المنتدي الكبير

ان تري تصارع وتسابق العلماء والاساتذة والخبراء في الموضوع الواحد

ليصل صاحب الموضوع الي افضل الحلول

فقط لوجه الله تعالي وحباً للعلم

جزاكم الله خيرا اساتذتي

[منياوى]

اساتذنى الافاضل لكم جميعا منى وافر الشكر والتقدير والاحترام

[أبو أنس80]

اساتذنى الافاضل لكم جميعا منى وافر الشكر والتقدير والاحترام