hızlı okuma

[iskelet]

selam
yapmak istediğim şey dosyada belirlitilmiştir. Acaba böyle bişe yapılabilir mi.
Şimdiden teşekkürler.

 

[uzmanamele]

merhaba
böyle bişey olabilir ama üzerinde çalışmak lazım, tam olmadı

Sub Hizli5()
s = Sheets("kelime giriş").Range("A65000").End(3).Row
For i = 1 To s 

kelime_1 = Sheets("kelime giriş").Range(("a") & i)
kelime_2 = Sheets("kelime giriş").Range(("a") & i + 1)

Range(("e") & 8 + i) = kelime_1
Application.Wait (Now + TimeValue("0:00:01"))
Range(("e") & 8 + i) = ""

Range(("l") & 8 + i) = kelime_2
Application.Wait (Now + TimeValue("0:00:01"))
Range(("l") & 8 + i) = ""
Next i
End Sub

 

[iskelet]

sayın uzmanamele ilk önce ilginiz teşekkürler
biraz olmuş şunları düzeltebilirsek tamam olur kelimeler belli bi sırayla çıkıyor ben kelimelerin rastgele çıkmasını ve l13 e gelince programın durmasını istiyorum.

 

[dEdE]

... şunları düzeltebilirsek tamam olur kelimeler belli bi sırayla çıkıyor ben kelimelerin rastgele çıkmasını ve l13 e gelince programın durmasını istiyorum

Sayın iskelet,
Bu sorunu aşağıdaki linkte çözmemiş miydik? l13 e gelince bunu anlamadım.

http://www.excel.web.tr/f48/randomize-t62480.html

 

[iskelet]

sayın dEdE
evet orda çözmüştük ama yukarıdaki kodu tek yazdığım için bu sorunla karşılaştım
bu kod içerisine de nasıl yerleştirceğimi bilmiyorum.
l13 demek L13 le 13 hücresi

 

[dEdE]

Merhaba,

Ekli dosya istediğiniz gibi olmuştur sanırım.

 

[iskelet]

sayın dEdE çok teşekkür tek bişe dışında istediğim gibi olmuş eğer
tuşla tuşuna bastığımızda kelimeler aynı çıkıyo eğer kelimler de rasatgele çıkarsa tam istediğim gibi olacak
çok teşekkür ederim.

 

[dEdE]

Merhaba,

Kodlardaki satır=8 ifadesinin altında bulunan iki satırı aşağıda gördüğünüz yere taşıyınız.

 '/////////////////////////////////---------------------------------e9-13-5
            sonsayi = Sheets(1).[a65536].End(3).Row
            veri = Int((sonsayi * Rnd) + 1)
            Cells(satır, sütun) = Sheets(1).Cells(veri, 1) '****
    '/////////////////////////////////---------------------------------L9-13-12

 

[iskelet]

sayın dEdE çok teşekkür ederim. Ellerinize sağlık.

 

[dEdE]

sayın dEdE çok teşekkür ederim. Ellerinize sağlık.

Güle güle kullanın.