طلب كود لكتابه سلسلة أرقام بالترتيب فى خلايا متباعدة

[ياسر أحمد الشيخ]

السلام عليكم ورحمه الله وبركاته

اريد كود لكتابه سلسلة أرقام بالترتيب فى خلايا متباعدة

انظر المرفق

Rand_Nums.rar

[ابو اسامة العينبوسي]

السلام عليكم

نكمل ان هذا هو المطلوب

Private Sub Worksheet_Calculate()

z = Sheet3.Cells(4, "IV")

For i = 1 To 8

	    Range("RN" & i).Cells(1, 1) = Sheet2.Cells(z + 2, 1)

	    Range("RN" & i).Cells(2, 1) = Sheet2.Cells(z + 2, 2)

	    Range("RN" & i).Cells(3, 1) = Sheet2.Cells(z + 2, 5)

	    Range("RN" & i).Cells(4, 1) = Sheet2.Cells(z + 2, 7)

	    z = z + 1

Next i

End Sub

11.rar

[عبدالله باقشير]

السلام عليكم

نورت اخي ابو اسامة

والحمد لله على سلامتك

ودمتم في حفظ الله

[ياسر أحمد الشيخ]

حل أكثر من رائع

تمت الاجابة

تم تعديل ديسمبر 18, 2011 بواسطه leprince2007