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

Příspěvky uživatele

ano lze
přiložte nějaký vzorový soubor se smyšlenými daty ale stejnou strukturou (jména stačí klidně jen dvě taktéž smyšlené) a co chcete mít v grafu

Je pravda že nad dlouhým textem jsem nepřemýšlel.
No šlo by to tedy takto.

Pokud je číslo oddělené mezerami jako v zadání, tak pomocí PowerQuery by to šlo třeba takto.

Asi by to šlo extrahovat číslo i kdyby mezery nebyly, to je na mě ale zatím moc

bez použití VBA jen asi spíš takovým ne zrovna hezkým fíglem.

Zmenšit písmo v celém listu třeba na velikost 8 a list pak nazoomovat na 120%

edit: a ještě jsem objevil že už to tu kdysi bylo

http://wall.cz/index.php?m=topic&id=30455

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse