Příspěvky uživatele


< návrat zpět

Makro refreh dotazů z Power Query (11.11.2019 11:04)

Neumím programovat ve VBA makra v podstatě nahrávám, tak budu vděčný, když mi domého makra ty úpravy někdo nakopíruje..děkuji za pochopení

Makro refreh dotazů z Power Query (11.11.2019 10:36)

V příloze je uloženo moje současné makro, na konci proběhne aktualizace dotazů Power query, následně potřebuji aby se spustilo makro8(které mi vloží do tabulky další data) můžete mi prosím ty příkazy vložit přímo do přílohy,aby Power query na konci makra zaktualizovalo dotazy a následně spustilo makro8. Děkuji
Sub Makro1()
''
' ulozeni Makro
'
'
ActiveWorkbook.Save
Range("E4").Select
' Makro1 Makro
'
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' Extraction des commandes client
Application.Run "CDES_CLIENTS"
' Extraction des Ordres d'achats
' Application.Run "OP"
' Extract Work orders
Application.Run "WO_list"
' Extraction des manquants
Application.Run "Shortage"
' Tri des cdes clients
Application.Run "Sort1"
' Copie des WOs by customers orders
Application.Run "WO"
' Mise en forme
Application.Run "Mise_en_forme"
' Manquants sur WO
Application.Run "manquants"
' Récupération des données précédemment saisies
Application.Run "Reprise"
Sheets("Synthese").Activate
Calculate
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'
' uprava1 Makro
'
'
Range("Y5").Select
Sheets("Synthese II").Select
Range("M3").Select
'
' Aktualizace Makro
'
'
'zalohacont1a Makro
'
Range("H6:H1000").Select
Selection.Copy
Sheets("zalohacont1").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Synthese II").Select
Range("M6:M1000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("zalohacont1").Select
Range("B1").Select
ActiveSheet.Paste
Sheets("Synthese II").Select
Range("AA6:AA1000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("zalohacont1").Select
Range("C1").Select
ActiveSheet.Paste
Sheets("Synthese II").Select
Range("AH6:AH1000").Select
Application.CutCopyMode = False

Module9 - 2
Selection.Copy
Sheets("zalohacont1").Select
ActiveWindow.SmallScroll Down:=-12
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-9
Range("I24").Select
Sheets("Synthese II").Select
Range("U6:U1000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("zalohacont1").Select
ActiveWindow.SmallScroll Down:=-15
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I12").Select
Sheets("Synthese II").Select
Range("O3").Select
' akualizacesyntheseII Makro
'
'
ActiveWorkbook.Connections("Dotaz – Synthese").Refresh
ActiveWorkbook.Connections("Dotaz – Summary").Refresh
Sheets("Synthese II").Select
Range("M5").Select
Po aktualizaci P Query potřebuji spustit makro8, které doplní tabulku o další údaje, bohužel vždy Power query aktualizuje soubory až po dokončení maker a tím vložená data makrem 8 vymaže. Potřebuji zachovat toto pořadí v Makro1.

Makro refreh dotazů z Power Query (10.11.2019 14:54)

Moc děkuji, ještě to potřebuji aplikovat do mého makra, abych to nezkazil, můj email je radek.muller@parker.com můžu poprosit jestli by jste mi napsal na tento email, také bych vás rád odměnil za Váš čas při řešení mého problému.

Makro refreh dotazů z Power Query (8.11.2019 15:06)

Děkuji za návrh,zkusil jsem a změnil jsem název dotazu, ale makro mi skončí a ukáže chybu, když načítá With ThisWorkbook.Cennections("Dotaz - Synthese").OLEDBConestion
Níže je uvedeno, jak jsem to vložil...

' akualizacesyntheseII Makro
'

'
ActiveWorkbook.Connections("Dotaz – Synthese").Refresh
ActiveWorkbook.Connections("Dotaz – Summary").Refresh
Sheets("Synthese II").Select
Range("M5").Select

' Sub RefreshPQ()
Dim bBackQ As Boolean
Cells(1, 5).Value = "Refreshing"
With ThisWorkbook.Connections("Dotaz - Synthese").OLEDBConnection
bBackQ = .BackgroundQuery
.BackgroundQuery = False
.Refresh
.BackgroundQuery = bBackQ
End With
Cells(1, 5).Value = "Hotovo"
MsgBox "Refresh hotový"

Makro refreh dotazů z Power Query (7.11.2019 19:10)

Děkuji za příspěvek a pomoc:

Pokud tomu dobře rozumím:
- nahradím můj příkaz na refresh dotazů v PQ výše uvedeným
- a nakopíruji příkazy z makra 2 do makra 1 a budu mít jedno výsledné makro, které postupně provede všechny kroky v makru

Makro refreh dotazů z Power Query (7.11.2019 18:21)

potřeboval bych pomoci s jedním problémem ohledně makra v excelu.
Mám vytvořené makro, které mimo jiné zahrnuje refresh tabulek excelu ze dvou různých souborů, které jsou propojeny dotazy do jedné tabulky v Power Query a makrem provádím jejich aktualizaci, ovšem i když tento příkaz není posledním příkazem v makru, tak vždycky se aktualizace tabulek (refresh dotazů) provede až po skončení makra a tím se přemažou v tabulce jiné operace, které by měly následovat až po refresh tabulek s dotazy, Nyní to řeším rozdělením na 2 makra :
1. makro - provádí úpravy v tabulkách a refresh dotazů v Power Query ( je spuštěno automaticky při otevření souboru excel)
2. makro - provede další úpravy tabulky (přiřazeno tlačítko) ovšem problémem je když někdo tlačítko zapomene stisknout

Potřebuji tyto 2 makra spojit a dodržet, aby příkazy v makru byly spuštěny a dokončeny v pořadí, jak jsou v makru uvedeny, když výše uvedené 2 makra spojím, tak mi refresh dotazů přemaže příkazy, které v makru následují až po refresh dotazů. Předem děkuji za pomoc..


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