Random hücre seçme

[anubis026]

Çok teşekkürler hocam,ne kadar teşekkür etsem azdır.

 

[hsayar]

işinize yarayacağına sevindim

 

[Muhammet Okumuş]

hsayar hocam benim istediğim sütunlardaki illeri kendi aralarında değiştirecek. a sütunundaki iller a sütununda b sütununda b sütununda iller b sütununda .... bu şekil sıralanacak

 

[adslboy]

Degerli Hocam,

Hazirlamam gereken bir donem odevi projem icin asagidaki ekledigim dosyadaki olayi gerceklestirmem isteniyor! Sayin Hocam ilk sayfadaki kura dosyaniza bakinca cok gelismis ve epey uzmanlik gerektiren kura doyasini bunla ilgili
kaynak ararken guzel bir tesaduf sonucu bulup indirdim inaniyorumki bana ancak siz yardimci olabilirsiniz

Musait bir zamanda bakarsaniz cok mutlu olucam

Saygilarimla

 

[78eagle]

Kura Yardım

Selamlar;

Excelin içine kura programı koymak istiyorum.
Örneği gönderiyorum yapabilirseniz sevinirim.

 

[Muhammet Okumuş]

Merhaba,
Kodu deneyiniz.

Sub Karıştır()
Application.ScreenUpdating = False
Range("E2:F5") = Range("A2:B5").Value
Range("D25") = "=RAND()"
Range("D2:E5").Sort Range("D2"), xlAscending
Range("D2:F5").Sort Range("D2"), xlAscending
Range("D25") = ""
End Sub

 

[78eagle]

Kura Yardım

Muahmmet Bey ;

Teşekkürler çok işimi gördü.