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

Příspěvky uživatele

Tak?

Ale máš tam více jmen než deset. Musel jsem ti rozšířit tabulku. Snad jsem to pochopil správně.

Tak vložte přílohu, já na to mrknu.

Nestačilo by zamknout buňky se vzorci?

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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse