MS Excel

Neviem si dať rady s týmto.
Už mi to všetko šlo, až kým...

Meno je imrdom19
Heslo je 4444.

Vďaka za pomoc.

monier(10.7.2017 9:27)#036823

ukazuje mi tu chybu
Sub GetSheets()
'add the sheet names to the sheet
Sheet2.Range("R8:R108").ClearContents
Dim i As Integer
* For i = 1 To Sheets.Count
Sheet2.Range("R" & i + 7) = Sheets(i).Name
Next i
End Subcitovat

monier(10.7.2017 20:54)#036834

Takže nevie nikto ?
:(citovat

anyman(10.7.2017 21:12)#036835

Mně ne.citovat

Jeza(11.7.2017 12:11)#036841

V přiloženém souboru to funguje. Nemáš třeba jinou verzi kde je list Login zamčený?

M@citovat

monier(11.7.2017 15:08)#036844

nie
keď ja stiahnem tento súbor, otvorím excel a povolím upravy, tak mi vypíše error(viď príloha).

Příloha: jpg

36844_error.jpg.jpg (92kB, staženo 57x)

citovat

Jeza.m(11.7.2017 16:25)#036846

Upřímně, mě nic moc nenapadá, když nám to jde :-).
Ještě mě napadlo, že by se mu mohlo nelíbit to že vlastnost visible se mění až po zamčení, ale i to projde.

Sheet1.Protect Password:= ...
Sheet1.Shapes.Range(Array("Obrázok 2")).Visible = msoFalse

Taková oblíbená IT rada - zkusit restart PC :-)

M@citovat

monier(11.7.2017 16:45)#036847

Neviem naozaj prečo to neide.
Možno taká maličkosť, keď povolím úpravy a vybehne mi to okno error, tak zrazu mám otvorené 2 excely a to Katalóg kníh a výpožičky a Katalóg kníh a výpožičky (chránené zobrazenie).citovat

Palooo(12.7.2017 10:53)#036849

monier napsal/a:

nie
keď ja stiahnem tento súbor, otvorím excel a povolím upravy, tak mi vypíše error(viď príloha).Příloha: 36844_error.jpg.jpg (92kB, staženo 15x)

radsej ako chybovu hlasku ukazte kde sa zasekne v debugeru. tj. ked stlacite debug buttoncitovat

monier(12.7.2017 13:01)#036851

tam kde som dal hviezdicku, t.j. pred FOR

Příloha: jpg

36851_vba.jpg.jpg (24kB, staženo 47x)

citovat

Téma: Chyba

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje