Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2
MAKRO_pro_celou_slozku (6.10.2012 11:44)

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?

MAKRO_pro_celou_slozku (4.10.2012 10:47)

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

VBA_kopirovani (27.9.2012 20:28)

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


Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje