Randomly add a number

[hartless43]

Several months ago I ask for a way to remove a number from my Sudoku Game and got this reply:

Range("B2:J10").Replace What:=Application.WorksheetFunction.RandBetween(1, 9), Replacement:=""

This randomly picks a number from 1 - 9 and removes that number completely from the game. But in my Extreme games I don't use this because so many numbers have already been removed so is there a way to change that code above to randomly reverse the removal of a number but add a number from 1 - 9 and place it where it goes all 9 times.

I use UBI technology in my excel programming and don't know how to do this.

Thanks for a reply.,

Jerry

 

[StephenCrump]

... is there a way to change that code above to randomly reverse the removal of a number but add a number from 1 - 9 and place it where it goes all 9 times.

Can you please explain in more detail what you want to do? An example would be helpful.

Doesn't "reverse the removal" simply mean not running that line of code?

And doesn't "add a number" necessarily mean a number that's not already shown in the grid? So for example, if your set up grid shows only numbers 1 to 7, and not 8 and 9, you can change any of 1 to 6 to either 8 or 9 only. (Which won't change the difficulty of the puzzle at all.)

 

[hartless43]

StephenCrump, Thanks for your reply, but got to thinking about this. The formula above removes a number that is already in place, and if what I was requesting would not know which cell to place the random number because it does not know where it goes. This would work on the solution, but not the game generated from the solution.