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

Příspěvky uživatele

Důležité je, že jste si poradil.

Není za co.

Pravda.

Takhle?

Ještě bych chtěl říct, že u makra "tlačítko2_Kliknutí" to mazání, že nemusíte odemykat list pořád dokola. Stačí pouze na začátku.

ActiveSheet.Unprotect Password:=""
Range("F14:K60,P14:Q60").ClearContents
Range("W14:AB60,AG14:AH60").ClearContents
.
.
.
.

Něco jsem pro Vás zbastlil.

Případně si ještě zkontrolujte chyby v kódu.

Rádo se stalo.

Bez přílohy si to musíte napasovat už sám.

Sub Seradit()

Dim Pocet As Long

Pocet = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

With ActiveSheet.Sort
.SortFields.Add Key:=Range("G1"), Order:=xlAscending
.SetRange Range("A1" & ":" & "N" & Pocet)
.Header = xlYes
.Apply
End With

End Sub

Vložte přílohu co kam chcete importovat.

Nechcete snad aby jsme si ještě vymýšleli soubory?

Tak?

Zde je oprava makra.

Sub Filtr()

' Filtr Makro

Range("BA6").AutoFilter Field:=1, Criteria1:="PRAVDA"

Range("B9").Select

End Sub

Sub Vse()

' Vse Makro

Range("BA6").AutoFilter Field:=1

Range("C9").Select

End Sub


Nebylo by lepší data z CSV kopírovat než na buňky odkazovat?

Já asi nepochopil zadání.

Příloha nedorazila.

Nemůžeš řadit sloupec D, když v něm odkazuješ na sloupec K.

Ale to jste původně nenapsal, že záhlaví listu.

To mohlo být také v záhlaví tabulky a potom je otázka jestli je tabulka naformátovaná nebo ne.

Ale když je to v záhlaví listu, tak v tom případě to máte již vyřešené od elninoslov.

elninoslov ty jsi vážně ze zadání poznal o co jde jo?

Příloha?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje