Change a number to text.

[Sjakalen]

Hi all.

I am writing a code which should generate the letters m or f (male/female)
in A2:A21. I am able to generate random 1's and 0´s, but now i can't convert them to the letters. Below is the code (note: i know it might not be the smartest way to do this, but to keep the same datastructure which i have in previous coding, i would like to keep it this way)

****
t = 1

Range("A1").Select

Low = 1
High = 2

Do

t = (t + 1)
ActiveCell.Offset(1, 0).Select
value= Int((High - Low + 1) * Rnd() + Low)
ActiveCell.Value = value
Loop Until t = 20

****

All help appreciated.

 

[tigeravatar]

Sjakalen,

One way...

    t = 1
    
    Low = 1
    High = 2
    
    Do
        t = t + 1
        Value = Choose(Int((High - Low + 1) * Rnd() + Low), "Male", "Female")
        Cells(t, "A").Value = Value
    Loop Until t = 20

 

[Sjakalen]

Perfect, just what i needed.
Thanks a lot.

 

[tigeravatar]

You're very welcome