Příspěvky uživatele


< návrat zpět

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í

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.

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.

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ý"

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

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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09