randomize

[iskelet]

yapmak istediğim şey ekli dosya da belirtilmiştir. Yapabilen arkadaş olursa çok sevinirim.
şimdiden teşekkürler.

 

[Kemal Demir]

İyi akşamlar,

sonsayi = Sheets(1).[a65536].End(3).Row
veri = Int((sonsayi * Rnd) + 1)
Range("e9") = Sheets(1).Cells(veri, 1)

Yukarıdaki kod zannedersem işinizi görür.

Ek'teki dosyaya bakınız.

 

[iskelet]

sayın kemal demir teşekkür ederim. Yalnız benim kod hakkında hiç bi bilgim yok o programı da ben yapmadığım için kodun nereye yazılacağını bilmiyorum acaba dediğiniz kodu nereye yazmam gerekli.

 

[iskelet]

arkadaşlar başka yardım edebilecek kimse yok mu?

 

[dEdE]

Dosyanız ekte

 

[iskelet]

sayın dEdE ve sayın demir ilgiliniz için teşekkür ederim. Sayın dEdE istediğim gibi olmuş öğrenmek adına nasıl yaptığınızı öğrenebilir miyim.

 

[dEdE]

Merhaba,
Aslında ben birşey yapmadım. Sayın Demir'in yazdığı kodu yerine yerleştirdim.
Programınız açıkken Alt tuşunu basılı tutarak F11e basınız. Açılan pencerenin sol tarafındaki Modül yazısına çift tıklayınız. Kodlarınız sağ pencerede görünür. Ben de sayın Demirin yazdığı kodları kopyalayıp, bu pencerede olması gereken yere yapıştırdım.
Bu kodları inceleyerek mantığını kavramaya çalışınız.
Unutmayınız burada öğrenmek isteyen herkese yardımcı olmaya hazır dostlar her zaman bulunur.
Saygılar.