Příspěvky uživatele

1) proměnná i se musí nastavit na 21 (i = 21), což je sloupec U. Původní verze byla od 1 sloupce.

3)Vždy se zamkne celý list. Buňky, které nechci zamknout, tak u nich přes Formát změním zámek.
Tudíž, jestli chcete zamykat jen některé buňky, označte si celý list (Ctrl+A) a nastavte u nich, aby se nezamykaly. Pak si označte jen ty buňky, které chcete zamykat a ty nastavte na zamknuto. Po zamčení listu se uzamknou jen tyto buňky.

2) později

Ještě mě napadly dvě možnosti, jak si ulehčit přepisování (do budoucna).
1. Potřebuji vytvořit prostor pod tabulkou "Měřidla". Označím si G18:T18, kliknu do označených buněk pravou myší a vyberu možnost "Vložit buňky" a následně "Posunout dolů". Tímto krokem se mi tabulka "Rozsahy" posune o jeden řádek dolů a automaticky se změní i jednotlivé odkazy v posunuté tabulce. Tímto si vytvořím jednoduše pprostor pro zvětšení tabulky "Měřidla"
2. Použít pojmenování oblasti (nevím jak se to správně jmenuje) takže např. Seznamy!$G$20:$G$33 si pojmenuji jak "rozsah". Toto pak použiji ve vzorečku, kdy místo: =POSUN(POSUN(Seznamy!$G$20:$G$33;;Index... použiji =POSUN(POSUN(rozsah;;Index... Logicky pak místo přepisování vzorečku upravím parametry pojmenované oblasti.

Jsem rád, že to funguje.
S komplimenty bych to moc nepřeháněl (i když se to fakt dobře čte

Není zač.
A pomohly ty rady? Funguje ti to? Nebo je ještě nějaký problém?

Ve sloupci C je maticový vzorec. Pokud v něm budete něco měnit, nezapomeňte zadávání ukončit Ctrl+Shift+Enter.
Stačí ten první v C20. Do dalších řádků pak stačí rozkopírovat klasicky.

Zkuste otestovat.

Třeba takto.

Aha, špatně jsem četl a jak jsem viděl žlutá, vztahoval jsem to na buňky A2: F10 listu OHL19.

To by mělo jít, ale nebudu to dělat podle barvy, ale ke každému číselníku vytvořím "Seznam povolených slov",což budou ty žlutě označené.

Ale dostanu se k tomu až v noci nebo zítra.

1) Je to VBA. Procedura je umístěna v modulu listu OHL19

2) Pochopil jsem to tak, že v momentě, když se vyplní poslední žluté pole (v jednom řádku), tak se odemkne buňka v daném řádku ve sloupci L.
Kdy tedy má dojít k odemknutí buňky L? Kdykoli vyplním nějakou buňku A:F? Pak mi není jasné, kdy má být buňka L zamknuta.

Vycházím z toho, že když je list prázdný, tak je L uzamknuto. Vyplním hodnoty A1,B1,C1,D1,E1 a F1 a až po vyplnění poslední hodnoty se odemkne buňka L1.
Vyplním B7, D7, E7, F7, A7, C7 (napřeskáčku) a teprve po vyplnění poslední žluté buňky se odemkne L7.

No, ale wikipedii jako relevantní zdroj neuznají.

I když v Plzni na právech možná ano.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim cell As Range
Dim i As Integer

Set KeyCells = Range("A1:F10")
If Intersect(Target, KeyCells) Is Nothing Then Exit Sub

i = 0
For Each cell In Range("A" & Target.Row & ":F" & Target.Row) 'kontrola, zda jsou všechny buňky v řádku A - F vyplněny
If Not IsEmpty(cell) Then 'když není buňka prázdná
i = i + 1 'připočítej 1
End If
Next cell

ActiveSheet.Unprotect

If i = 6 Then 'když jsou všechny buňky vyplněné
Range("L" & Target.Row).Locked = False 'buňku L odemkni
Else
Range("L" & Target.Row).Locked = True 'jinak zamkni
End If

ActiveSheet.Protect

End Sub

Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls", ReadOnly:=True)

Česky: Země
Slovensky: Zem

https://sk.wikipedia.org/wiki/Plan%C3%A9ta

Několik pomocných sloupců.

Vzorečky jsou od eLCHa:
http://wall.cz/index.php?m=topic&id=26884&page=1#posts

http://wall.cz/index.php?m=topic&id=46813#post-46814

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje