Problemleri sıralı ve rastgele dağıtma

[mehmetaltin]

Arkadaşlar sorular sayfasına yazdığım problemleri problemler kısmında 6 probleme sıralı şekilde yan 1-6. sorular sonra 7-12. sorular gibi sıralı şekilde f9 a basınca değişsin diyelimki sorular 120 tane bitince rastgele değişsin olabilir mi?


http://www.dosya.tc/server39/ktQWBT/problemhaz_rlama.rar.html

 

[Muhammet Okumuş]

Merhaba,

Sub Soru_Seç()
a = InputBox("Soru başlangıcını giriniz.", "Soru Seç")
x = 9

For i = 1 To 3
Cells(x, 1) = Sheets("Sorular").Cells(a, 3).Value
a = a + 1
Cells(x, 14) = Sheets("Sorular").Cells(a, 3).Value
a = a + 1
x = x + 12
Next
End Sub

Kodu deneyiniz.

 

[mehmetaltin]

hocam makrosuz nasıl yaparım...

 

[Muhammet Okumuş]

"=sorular!C1" formülünü kullanınız.

 

[Merhum İdris SERDAR]

.

Dosyanız burada.

http://s4.dosya.tc/server/yxVvjZ/problemhaz_rlama.rar.html


.

 

[mehmetaltin]

teşekkürler