Příspěvky uživatele
< návrat zpět
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
https://office.lasakovi.com/excel/funkce/index-pozvyhledat-vyber-unikatnich-dat/
zhruba v polovině: Jak nahradit SVYHLEDAT
nebo jak píše marjankaj pomocí vnořených cyklů.
Ja bych asi použil FIND ve VBA.
Asi jste nepochopil tuto funkci.
Funkce SVYHLEDAT vyhledá v prvním sloupci tabulky zadanou hodnotu a vrátí hodnotu buňky ve stejném řádku jiného sloupce dané tabulky.
Ten jiný sloupec je napravo. Takže vyhledá hodnotu ve sloupci jedna a vrací hodnotu ze stejného řádku ve sloupci 2 nebo 3 nebo 4...
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články