MS Excel

Zdravím, mám cca 20 souborů v excelu a potřebuji u každého souboru udělat následující
-ukotvit příčku na prvním řádku
-smazat sloupec H
- do sloupec A vypsat čísla řádku, na kterých je uveden nějaký záznam
-upravit záhlaví a zápatí (v záhlaví bude uveden název souboru bez přípony xls)

Mohl by mi někdo poradit nějaké makro nebo postup jak úpravy u všech souborů zrealizovat co nejrychleji.

V příloze zasílám ukázku neupraveného souboru. Do sloupečku A jsem vepsal ručně i čísla, pro lepší pochopení
Děkuji

Uzamčeno - nelze přidávat nové příspěvky.

Milan-D(23.1.2013 14:48)#011102

Ahoj, postupoval bych nasledovne:
1. zapnul bych nahravani makra, provedl na jednom sesite
vsechny kroky a vypnul nahravani
2. vyhledavanim bych se snazil zjistit, jak ve smycce aplikovat makro na vicero souboru napr. zde: http://wall.cz/index.php?m=topic&id=9675
3. no a pak bych to sesil dohromady
4. pokud ti to nepujde, tak vypomuzemecitovat

marjankaj(23.1.2013 15:54)#011104

Tu je makro pre jeden zošit.
Sub makro()
Dim rng As Range
Set rng = Range("A2:A" & ActiveSheet.UsedRange.Rows.Count)
Range("A2") = "1"
Range("A2").AutoFill Destination:=rng, Type:=xlLinearTrend
Columns("H:H").Delete Shift:=xlToLeft
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True

' dorobil som hlavičku a pätu

Application.PrintCommunication = False
With ActiveSheet.PageSetup
.CenterHeader = "&F"
.CenterFooter = "&F"
End With
Application.PrintCommunication = True
End Subcitovat

Taps(23.1.2013 15:58)#011105

Díky moc, už se mi podařilo problém vyřešitcitovat

Téma: Hromadná úprava souborů

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje