Solo Me Falta Un 1 Dia Sobre Mi Ultima Ayuda Sobre El Sudoku!!

[0_kool]

hola mcf lamento no poder tener una solucion directa para ti

creo que por aqui esta la sol.
valsOK = GetValidVals(i, ValIsOK)
If valsOK <= 0 Then
CreateSudokuGrid = False
End If
numRand = Int(Rnd(valsOK)) + 1
k = 0
For j = 0 To 8
If ValIsOK(j) Then
k = k + 1
If k = numRand Then
Exit For
End If
End If
Next j
para ser mas exacto es donde se elige el numero al azar , deberías verificar que no se elija el mismo numero dos veces cargandolos en una matriz y recorriendo sus valores antes de este bucle.

mas no te ayudo por ahora pues tengo kilos de trabajo
mira de todas formas el foro el lunes en la noche ...