السلام عليكم اخي الحبيب :/ حمادة عمر
غير الكود السابق بهذا الكود
Sub qst()
Randomize
i = Int(Rnd(1) * 50) + 1
[b5] = Range("Quest")(i)
[j5] = Sheet1.Cells(i + 1, 3)
[k5] = Sheet1.Cells(i + 1, 4)
[l5] = Sheet1.Cells(i + 1, 5)
[m5] = Sheet1.Cells(i + 1, 6)
End Sub