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

Příspěvky uživatele

Dobrý den,
velice děkuji, dal jsem to dohramdy. Musel jsem se na to více podívat - funguje to :-) . Chtěl bych se jeste zeptat, co se tyce ukladani, mam ty soubory csv. Kdyz je ulozim opet v csv, tak se rozhazi formatovani,co makro vytvorilo, jak ulozim v makru soubor s priponou xls, nebo xlm? se stejnym nazvem, co soubor mel jako csv?

Dobrý den,
mám makro, které jsem nahrál. Omlouvám se za zbytečné řádky, ale jsem úplný začátečník.
Potřeboval bych, aby se toto makro spustilo na vsechny soubory ve slozce, takto musim vsechny soubory jednotlive otevirat a ukladat, coz zabira strasne casu, Budu vdecny za kazdou radu. Preji hezky den.

Rows("1:6").Select
Selection.Delete Shift:=xlUp
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 38
Rows("53:367").Select
Selection.Delete Shift:=xlUp
Range("G46").Select
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 1
Columns("A:A").ColumnWidth = 50
ActiveCell.Replace What:=",", Replacement:=";", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=",", Replacement:=";", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 1
Range("A1:A52").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
Range("L18").Select
Columns("A:A").ColumnWidth = 15.43

Dobry den,
nasel jsem zde na foru makro, ktere umi neco podobneho, co potrebuji, zkousel jsem ho editovat, ale jelikoz jsem zacatecnik, tak makro nedelalo, co jsem potreboval. O co jde, potrebuji makro, kde dam do jedne slozky vsechny soubory (1000), ktere obsahuji jednoduchou tabulku o range A1:J51. Kdyz se makro spusti, chtel bych, aby se kazda tabulka nakopirovala pod sebe s mezerou jednoho radku. Nevim si s tim rady, potrebuji Vasi pomoc, zaroven bych se na tom makru chtel naucit princip, ne to jen zkopirovat a pouzivat.. Budu velice vdecen za Vase reakce
PS: v priloze zasilam makro, co jsem zde stahnul, snad to nevadi

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse