Run time error 1004 po spuštění makra

[Jturbo87]

Zdravím a žádám o pomoc,
mám udělanou kontingenční tabulku dodavatelů a z té si do druhého listu tahám další data. nachystal jsem si makro ale po spuštění mi to napíše Run time error 1004:

jelikož jsem makro dělal uplně poprvé opravdu si s tím nevím rady, možná to vubec nepůjde, možná ano.
Proto Vás prosím o radu :)

makro zde:


Sub Makro13()
'
' Makro13 Makro
'
' Klávesová zkratka: Ctrl+q
'
Range("U1").Select
ActiveSheet.PivotTables("Seznam dodavatelů").PivotCache.Refresh
Sheets("tab. Obraty").Select
ActiveWorkbook.Worksheets("tab. Obraty").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("tab. Obraty").AutoFilter.Sort.SortFields.Add Key:= _
Range("D2:D1000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("tab. Obraty").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

[Reklama]

[cmuch]

Vítej na PC-Help

Nejlepší bude, když sem přiložíš sešit.

Nebo napiš na kterém řádku to nahlásí chybu.

[Jturbo87]

sešit bohužel přiložit nemohu
také mi pořád po otevření sešitu vyskakuje Upozornění zabezpečení: byla zakázána datová připojení.
Už jsem tam vložil digitální podpis..Digital signature, ale asi to bylo k ničemu. vše pořád zakázané a nefunkční :)

--- Doplnění předchozího příspěvku (09 Led 2013 13:03) ---

ještě bych mohl připojit tohle, ukáže se po "spuštění" makra

[cmuch]

A makro spouštíš na listu "seznam dodavatelů" nebo na jiném listu ?

[Jturbo87]

spuštím na jimém listu
spustím na listu 1, na listu 2 to udělá kontingenční tabulku a na 3. listu to udělá takovou výstupní tabulku

[cmuch]

to makro co tady máš tak aktualizuje kont.tab, pak na jinem listu akorat zesortuje data.

[Jturbo87]

ano jen to seřadí od největšího k nejmenšímu.
Problém s makrem jsem ted vyřešil. Problém byl s tím spouštěním na jiném listu. Už je to OK.
ještě bych poprosil o radu co s tím hlášením?
pujde tento excelovský sešit i na jiných PC?

[cmuch]

Půjde, ale pokud se z těch jiných pc nedostane na ta propojení co máš nastaveny tak se to nepropojí a data budou pořád stará (ta původní).

[Jturbo87]

tak na jiném PC to nejde, problémy se zabezpečením, povolením maker a obsahů. nejde prostě v tomto sešitě nějak vše povolit?

[cmuch]

To se povoluje na konkrétním PC.
Když se dá ručně povolit makra a datová propojení tak to také nejde?
Nebo se to vůbec nezeptá, jestli to chce uživatel povolit?

[Jturbo87]

tak to je pruser .)
potřebuju aby to fungovalo na každým PC ve firmě
Jinak vyskakuje jen to: Byla zakázána datová připojení

[cmuch]

Když uděláš nějaký jiný sešit jen z nějakým makrem a ten pak spustíš na jiném PC tak jak se to zachová?