Random seçimde 0 gelmemesi

[pcci]

Merhaba. random seçim yaparak hücre içeriğini mesajbox'a alıyorum. Yalnız bazen 0 da random olarak seçiliyor. cells(0,1) gibi birşey olmayacağı için hata veriyor.
Kodu aşağıya yazıyorum.

rastgele = Int(Rnd() * satir)
MsgBox (Cells(rastgele, 2))

rastgele : Random olarak rastgele seçilen sayı.
satir : excel sayfasında kaç dolu satır olduğunu tutan değişken.

rastgele'nin 0 olmaması için ne eklemeliyim?
Önceden teşekkürler...

 

[alpi]

rastgele = Int(Rnd() * satir)+1
MsgBox (Cells(rastgele, 2))

Bu şekilde olmaz mı?

 

[pcci]

O zaman sanırım dolu satır sayısından fazla olduğundan hata verir. Mesajımı göndereliden beri forumu karıştırıyorum. Aradığım çözümü buldum. Cevabın için çok teşekkür ederim...

Cevabı şöyle : sayi=((üstsınır-altsınır+1)*rand )+1

Bu formülden oldu.