rastgele cümle

[osmanfenerli1907]

merhabalar
SY hocalarım ben commandbutton1e tıklayınca label1e sayfa2deki A1:A100 de yazan cümlelerden birinin rastgele yazmasını istiyorum.Yardımlarınızı bekliyorum.
teşekkürler
iyi günler

 

[Levent Menteşoğlu]

Commandbuttona aşağıdaki kodu yazın.

label1 = Cells(Int(Rnd() * 100) + 1, "a")

 

[osmanfenerli1907]

sy. hocam herzaman aynı sırayla rastgele cümle veriyor.bu rastgelelik değişik sıralarla olmaz mı?
teşekkürler
iyi günler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
Başla:
    X = Evaluate("=RASTGELEARADA(1,100)")
    If X = Label1 Then GoTo Başla
    Label1 = Cells(X, "A")
End Sub

 

[osmanfenerli1907]

sy.cost control
hata veriyor.

 

[Korhan Ayhan]

Selamlar,

Verdiğim cevapları test etmeden kesinlikle göndermiyorum. Çalışan örnek dosya ektedir.

 

[Levent Menteşoğlu]

sy.cost control
hata veriyor.

Hata vermesi normal çünkü Sn COST_CONTROL sanıyorum hatırlatmayı unuttu, toolpak çözümleyicisi eklentisinin pcnizde yüklü ve işaretli olması gerekir.

 

[Korhan Ayhan]

Selamlar,

Sn. leventm haklısınız bende belirttiğiniz çözümleyici sürekli aktif olduğundan hata mesajı almadım. Arkadaşımız hata mesajı alıyorum deyince şaşırdım. Dalgınlığıma verin lütfen. (Yıl sonu işlemleri yoğun bu aralar...)

 

[osmanfenerli1907]

merhabalar
şu rastgele cümle işini biraz değiştirmek istedim

ben userform1 deki commandbutton1 e tıklayınca label1e a2:a200 arası cümlelerden birinin rastgele gelmesini istiyorum.birde label1e gelen cümlenin sayfa1deki karşılığındaki satırdaki b sutunu label2de c sutunu label4te d sutunuda label3 te yazsın.Umarrım sorumu anlamışsınızdır?
teşekkürler
iyi günler