{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["aktivní řadek","najít řádek"],"not_rendered":{"charts":0,"images":3,"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":"aktivní řadek","index":0,"n_rows":29,"n_cols":7,"rows_kept":29,"cut":false,"hidden":false,"merged":[[0,0,0,6],[1,0,1,6]]}
["Formuláře VBA"]
["http://JakNaExcel.cz/"]
[]
["Jméno","Příjmení","Id"]
["Iv777","Malá",1]
["Ivo","Malý",2]
["Jan","Abc",3]
["Eva","Cde",4]
[]
[]
[]
[null,"Načti data z aktivního řádku",null,null,null,null,"'kam se bude zapisovat"]
[null,"'aktivní bunka",null,null,null,null,"RadekAktivni = ActiveCell.Row"]
[null,"RadekAktivni = ActiveCell.Row",null,null,null,null,"MsgBox (\"Zapisuji radek \" & RadekAktivni) ' Zapis hodnoty"]
[]
[null,"Jmeno = Cells(RadekAktivni, 1).Value",null,null,null,null,"Cells(RadekAktivni, 1).Value = UserForm1.TextBox1"]
[null,"Prijmeni = Cells(RadekAktivni, 2).Value",null,null,null,null,"Cells(RadekAktivni, 2).Value = UserForm1.TextBox2"]
[]
[null,"'nactu do TextBoxu"]
[null,"UserForm1.TextBox1.Value = Jmeno"]
[null,"UserForm1.TextBox2.Value = Prijmeni"]
[]
[]
[null,"' Barvy"]
[null,"Barva1 = Cells(RadekAktivni, 2).Interior.Color"]
[null,"UserForm1.TextBox2.BackColor = Barva1"]
[]
[null,"Barva2 = Cells(RadekAktivni, 2).Font.Color"]
[null,"UserForm1.TextBox2.ForeColor = Barva2"]

{"sheet":"najít řádek","index":1,"n_rows":29,"n_cols":9,"rows_kept":29,"cut":false,"hidden":false,"merged":[[1,0,1,6]]}
["Formuláře VBA"]
["http://JakNaExcel.cz/"]
[]
["Jméno","Příjmení","Id",null,null,null,null,null,"Označ hledaný řádek"]
["Iv777","Malá",1]
["Ivo","Malý",2,null,null,null,null,null,"zadani = InputBox(\"zadej id (demo nekontroluje špatné!)\")"]
["Jan","Abc",3]
["Eva","Cde",4,null,null,null,null,null,"Columns(\"C:C\").Select"]
["aaa","bbb",5,null,null,null,null,null,"    Selection.Find(What:=zadani, After:=ActiveCell, LookIn:=xlFormulas, LookAt _"]
[null,null,null,null,null,null,null,null,"        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _"]
[null,null,null,null,null,null,null,null,"        False, SearchFormat:=False).Select"]
[]
[null,null,null,null,null,null,null,null,"Načti do formuláře"]
[]
[null,null,null,null,null,null,null,null,"zadani = InputBox(\"zadej id (demo nekontroluje špatné!)\")"]
[]
[null,null,null,null,null,null,null,null,"Columns(\"C:C\").Select"]
[null,null,null,null,null,null,null,null,"    Selection.Find(What:=zadani, After:=ActiveCell, LookIn:=xlFormulas, LookAt _"]
[null,null,null,null,null,null,null,null,"        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _"]
[null,null,null,null,null,null,null,null,"        False, SearchFormat:=False).Select"]
[null,null,null,null,null,null,null,null,"        "]
[null,null,null,null,null,null,null,null,"RadekAktivni = ActiveCell.Row"]
[]
[null,null,null,null,null,null,null,null,"Jmeno = Cells(RadekAktivni, 1).Value"]
[null,null,null,null,null,null,null,null,"Prijmeni = Cells(RadekAktivni, 2).Value"]
[]
[null,null,null,null,null,null,null,null,"'nactu do TextBoxu"]
[null,null,null,null,null,null,null,null,"UserForm1.TextBox1.Value = Jmeno"]
[null,null,null,null,null,null,null,null,"UserForm1.TextBox2.Value = Prijmeni"]