• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Pokud se jedná jen o 3 listy tak bych použil KDYŽ
=KDYŽ($B$2="Prvni"; SVYHLEDAT(C6;Prvni!A:R;18;0);KDYŽ($B$2="Druhy";SVYHLEDAT(C6;Druhy!A:R;18;0);SVYHLEDAT(C6;Treti!A:R;18;0)))

doplňte si tam třeba podmínku
vzorec jsem zkoušel ve spodnější tabulce vašeho posledně uploadovaného soubrou tzn.: vložit do F17 a rozkopírovat

=KDYŽ(ZVOLIT(A(L$16>=$B26;L$16<=$C26)+(L$16=$C26)+1;"";8;MOD($E26;8))=0;"";ZVOLIT(A(L$16>=$B26;L$16<=$C26)+(L$16=$C26)+1;"";8;MOD($E26;8)))

nevím jakou verzi Office používáte
pomocí PowerQuery
při zadání nových dat je potřeba aktualizovat Tabulky
Data->Aktualizovat vše

napadlo mě zkopírovat sloupec A, vložit, nastavit bez výplně, automatickou barvu písma a vymazat obsah.Makro jsem nahrál přes záznamník a kopíroval do sloupce G, takže by se to muselo upravit třeba na sloupec aktivní buňky (to už není pro mě )
Sub Makro1()
Columns("A:A").Select
Selection.Copy
Columns("G:G").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.ClearContents
End Sub

řešením je
Nastavit prázdnou(é) buňku(buňky) s Ověřením dat jako odemknutou(é),zamknout List pod heslem.
Pravý klik na název Listu->Zobrazit kód
vložit tento kód
Dim mRg As Range
Dim mStr As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
upravit oblast které se to týká a upravit heslo v kódu
a uložit soubor s podporou maker.

Otázka je ale, co když udělá dotyčný chybu a vybere špatnou položku ze seznamu?

Další možností by bylo na zvlášť listu sledovat případné změny buněk a zaznamenávat datum, čas, případně uživatele který změnu provedl. To už by ale museli zdejší guru na VBA jako marjankaj elninoslov a jim podobní

a co pomocí PQ?
při změně dat Data->Aktualizovat vše

a nemohlo by to být pomocí kontingenční tabulky a využití filtrů?
Na jednotlivých listech jsem z dat udělal z tabulek Tabulky a pojmenoval je podle měsíce a roku (např:Leden2020)
Tvorba výstupních dat je použitím PowerQuery, výstupní data jsou na listu Vystup a z těchto dat máte na listu Souhrny kontingenční tabulku a připravené fitry.
Třeba to pro Vás bude východisko.

Obarvit jak? aby v průzkumníkovi nebo v nějakém správci souborů byl barevně? nejsem si jistý jestli je tohle možné
řešil bych to asi zástupcem s vlastní ikonou

jestli myslíte název Listu tak přes pravý klik

takhle?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse