{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["SudokuSolver","VBAkode"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"SudokuSolver","index":0,"n_rows":23,"n_cols":11,"rows_kept":23,"cut":false,"hidden":false,"merged":[]}
[]
[]
[null,null,null,null,9,null,3,2]
[null,null,null,null,null,7]
[null,null,1,6,2]
[null,null,null,1,null,null,2,null,5,6]
[null,null,null,null,null,9]
[null,null,null,5,null,null,null,null,1,null,7]
[null,null,null,null,null,null,null,null,4,null,3]
[null,null,null,2,6,null,null,9]
[null,null,null,null,5,8,7]
[]
[]
[]
[null,null,4,7,9,1,3,2,6,8,5]
[null,null,5,3,8,7,6,4,2,1,9]
[null,null,1,6,2,5,9,8,7,3,4]
[null,null,9,1,3,4,2,7,5,6,8]
[null,null,6,8,7,9,1,5,3,4,2]
[null,null,2,5,4,6,8,3,1,9,7]
[null,null,8,9,1,2,5,6,4,7,3]
[null,null,7,2,6,3,4,9,8,5,1]
[null,null,3,4,5,8,7,1,9,2,6]

{"sheet":"VBAkode","index":1,"n_rows":80,"n_cols":1,"rows_kept":80,"cut":false,"hidden":false,"merged":[]}
["Sub SudokuSolver()"]
["Dim r, c As Integer"]
[]
["Sheets(\"SudokuSolver\").Select"]
["Range(\"C15:K23\").ClearContents"]
["    Range(\"C3:K11\").Select"]
["    Selection.Copy"]
["    Range(\"C15\").Select"]
["    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _"]
["        :=False, Transpose:=False"]
["    Range(\"A1\").Select"]
["    Application.CutCopyMode = False"]
[]
["Range(\"A1\").Select"]
[]
["For c = 1 To 9"]
["For r = 1 To 9"]
["redor:"]
[]
["If ActiveCell.Offset(1 + r, 1 + c).Value <> \"\" And back = 1 Then"]
["    If r > 1 Then"]
["    r = r - 1"]
["    GoTo redor"]
["    ElseIf c > 1 And r = 1 Then"]
["    r = 9"]
["    c = c - 1"]
["    GoTo redor"]
["    ElseIf c = 1 And r = 1 Then"]
["    GoTo StopJob1"]
["    Else"]
["    GoTo StopJob1"]
["    End If"]
["ElseIf ActiveCell.Offset(1 + r, 1 + c).Value <> \"\" And back = 0 Then"]
["ActiveCell.Offset(13 + r, 1 + c).Value = ActiveCell.Offset(1 + r, 1 + c).Value"]
["GoTo nextr"]
["ElseIf ActiveCell.Offset(13 + r, 1 + c).Value = 9 Then"]
["ActiveCell.Offset(13 + r, 1 + c).Value = \"\""]
["    If r > 1 Then"]
["    r = r - 1"]
["    GoTo redor"]
["    ElseIf c > 1 And r = 1 Then"]
["    r = 9"]
["    c = c - 1"]
["    GoTo redor"]
["    ElseIf c = 1 And r = 1 Then"]
["    GoTo StopJob1"]
["    Else"]
["    GoTo StopJob1"]
["    End If"]
["Else"]
["ActiveCell.Offset(13 + r, 1 + c).Value = ActiveCell.Offset(13 + r, 1 + c).Value + 1"]
["back = 0"]
["End If"]
[]
[]
["If WorksheetFunction.CountIf(Range(\"C\" & 14 + r & \":\" & \"K\" & 14 + r), ActiveCell.Offset(13 + r, 1 + c).Value) <= 1 _"]
["And WorksheetFunction.CountIf(Range(Cells(15, 2 + c), Cells(23, 2 + c)), ActiveCell.Offset(13 + r, 1 + c).Value) <= 1 _"]
["And WorksheetFunction.CountIf(Range(ActiveCell.Offset(13 + WorksheetFunction.RoundUp(r / 3, 0) * 3 - 2, 1 + WorksheetFunction.RoundUp(c / 3, 0) * 3 - 2), ActiveCell.Offset(13 + WorksheetFunction.RoundUp(r / 3, 0) * 3, 1 + WorksheetFunction.RoundUp(c / 3, 0) * 3)), ActiveCell.Offset(13 + r, 1 + c).Value) <= 1 Then"]
[]
[]
["back = 0"]
["GoTo nextr"]
["Else"]
["back = 1"]
["GoTo redor"]
["End If"]
[]
[]
[]
[]
["nextr:"]
["Next r"]
["Next c"]
["MsgBox (\"Done\")"]
["GoTo exit1"]
["StopJob1:"]
["MsgBox (\"Error\")"]
[]
["exit1:"]
["End Sub"]