MS Excel

Třeba takto:
Sub VytvorList()

Dim JmenoListu As String

Application.ScreenUpdating = False
Sheets.Add After:=Worksheets(Sheets.Count):
Range("B2").Value = "Aktualizováno:"
Range("B3").Value = WorksheetFunction.Text(Sheets("Zadávací_list").Range("F7").Value, "d.m.yyyy h.mm.ss")
JmenoListu = Range("B3").Value
On Error Resume Next
ActiveSheet.Name = JmenoListu
If Err.Number = 1004 Then

Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
MsgBox "Nelze provést! => List s požadovanými daty již existuje!" & vbNewLine & "Proveďte novou aktualizaci dat tlačítkem Načti data na záložce Zadávací_list.", vbCritical, "!!! VAROVÁNÍ !!!"
Sheets("Zadávací_list").Select
Exit Sub
End If
On Error GoTo 0

Range("A11").Select
ActiveWindow.FreezePanes = True
Application.ScreenUpdating = True
End Sub


Jelikož se mi už chce spát, moc sem na tom nepřemýšlel. Určitě to půjde udělat i jinak.

Edit: Koukám, že elninoslov taky nemohl zabrat. Není nad to udělat refresh stránky Dobrou.citovat

Skúste refresh-núť oba dotazy samostatne a po každom použite toto:
Do
Loop While MenoListu.QueryTables("NazovDotazu").Refreshing
či to nepomôže.citovat

V staršej verzii to bude QueryTables v novšej Connection.
Čistý tip, z brucha 2 verzie. Neskúšal som:
Sub Nacti()
With ThisWorkbook.Connections("Dotaz z s-st-sl8db_Live_app")
.Refresh
Do
Loop While .Refreshing
End With

With ThisWorkbook.Connections("Dotaz z s-st-sl8db_Live_app1")
.Refresh
Do
Loop While .Refreshing
End With
End Sub

Sub Nacti2()
Dim i As Integer
ThisWorkbook.Connections("Dotaz z s-st-sl8db_Live_app").Refresh
Do Until i = False
i = ThisWorkbook.Connections("Dotaz z s-st-sl8db_Live_app").Refreshing
Loop
i = 0
ThisWorkbook.Connections("Dotaz z s-st-sl8db_Live_app1").Refresh
Do Until i = False
i = ThisWorkbook.Connections("Dotaz z s-st-sl8db_Live_app1").Refreshing
Loop
End Sub

EDIT:
A ešte ma napadá či máte skutočne správne názov dotazu, a či Data_Operace je CodeName alebo nápis na ušku listu. Je rozdiel
Data_Operace.xyz
Worksheets("Data_Operace").xyzcitovat

Ahoj,
abych nezakládal další vlákno, připojím se zde.

viz. příloha, potřebuji automatické generování a přejmenování listů po naplnění pomocné tabulky

1) základní podoba sešitu obsahuje jen jeden list
2) z jiného zdroje naplním pomocnou tabulku počínaje buňkou Y100. základní předpoklad do 250 řádků.
3) po naplnění pomocné tabulky automatické generování listů, co řádek, to list
4) funkce SVYHLEDAT každý list naplní příslušnými daty (podle funkce SHEET) z pomocné tabulky
5) list se VBA skriptem přejmenuje podle hodnoty v buňce D8 (soupis buněk B8&"-"&E9) ve finální verzi bude pomocný sloupec D schovaný. Dá se upravit skript aby provedl soupis B8&"-"&E9 také automaticky?

MOŽNÁ VYLEPŠENÍ :

-- pomocná tabulka se zdrojovými daty by mohla být jako samostatný list

Předem děkuju, CePinocitovat

Je jasné, že nejlépe by byla zdrojová tabulka na samostatném listě a počet bude snad opravdu omezený na 250 listů. Tohle jsem spachtil abych si alespoň trochu usnadnil práci a nemusel dělat každý list/protokol zvlášť. Proto svyhledat a proto zdrojová tabulka na každém listu, protože si každý list vytvářím manuálně, pravým tlačítkem na ouško listu atd... Počet listů omezím tak, že budu generovat každý stavební objekt zvlášť. Tady jsem původně myslel že to bude vše v jednom. Stavba má třeba 8 stavebních objektů - SO a 3 Provozní soubory - PS a protokoly musí být všude. Soubor mimo pomocné tabulky a protokolů nebude obsahovat žádné jiné listy. Do každého listu/protokolu se pak musí ještě vkládat fotky, výřezy z výkresů, výpočty apod.. Jediné co se pak může ve zdrojové tabulce měnit, bude Počet MJ ve sloupci 8 zdrojové tabulky. Vytvořím protokoly, předám investorovi ke kontrole a schválení a on mi to vrátí k přepravování, protože u některých prací rozporuje fakturované množství.
Cíl je takový, abych měl tu práci usnadněnou co nejvíce. Tedy naplnit zdrojovou tabulku a pak už si jen hrát s těmi fotkami atd..citovat