MESUT K
Altın Üye
- Katılım
- 26 Nisan 2019
- Mesajlar
- 221
- Excel Vers. ve Dili
-
İş'te:Excel 2016 eng
Ev'de:Excel 2013 tr
- Altın Üyelik Bitiş Tarihi
- 29-04-2025
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Soruyu eksik sordum kusuruma bakmayın.hangi sayı aralığında olduğunu yazmadım.Deneyin.
Kod:Sub rastgele() For t = 2 To 26 Cells(t, "B") = Round((1000 * Rnd + 1), 1) Next End Sub
Sub Test()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
Cells(i, 2).Value = WorksheetFunction.RandBetween(Range("C2").Value * 10, Range("C3").Value * 10) / 10
Next i
End Sub