vba - Generate Random No repeating Unique Number -
i need extract random set of data given dump. have prepared data , working fine.
i have used rnd() function picking data in random manner gives same output.
for = 1 worksheets("output").range("d7").value - 1 lowest = 1 highest = worksheets("output").range("t5") randomize generateno = int((highest - lowest + 1) * rnd() + lowest) gen = generateno sheets("workings").select range("b1").select activecell.offset(gen, 0).select range(selection, activecell.offset(0, 3)).select selection.copy sheets("output").select activecell.offset(1, 0).select selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _ :=false, transpose:=false next
Comments
Post a Comment