Hei
Alla oleva makro päivittää tiedot automaattisesti tietokannasta ja kopioi ne sitten uuteen ikkunaan. Ongelma on, että ActiveWorkbook.RefreshAll pitäisi suorittaa loppuun ennen kuin siirrytään eteenpäin.
ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False ei toimi, sillä en ole määritellyt QueryTables:ia. Vaihtoehtoja?
Sub Copy_Template_Data()
ActiveWorkbook.RefreshAll
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SplitRow = 1.1
ActiveWindow.SplitColumn = 2
Cells.Select
Cells.EntireColumn.AutoFit
ActiveWindow.SplitColumn = 1
ActiveWindow.SplitColumn = 1.3018018018018
ActiveWindow.SplitColumn = 2
ActiveWindow.Panes(3).Activate
Range("A3").Select
ActiveWindow.Panes(1).Activate
Cells.Select
Selection.AutoFilter
Cells.EntireColumn.AutoFit
Range("A1").Select
ActiveWindow.FreezePanes = True
End Sub
RefreshAll
softwareguy
2
479
Vastaukset
- softwareguy
Nyt pääsin hieman eteenpäin lisäämällä koodin ActiveSheet.Cells.ListObject.QueryTable.Refresh BackgroundQuery:=False heti ennen ActiveWorkbook.RefreshAll riviä. Mutta mutta... nyt ohjelma kysyy kaksi kertaa parametriä jonka mukaan tiedot pitäisi järjestää!
- softwareguy
Korjaan hieman, eli ActiveWorkbook.RefreshAll täytyy tietenkin ottaa pois. Nyt makro toimii, mutta on todella hidas... ActiveSheet.Cells.ListObject.QueryTable.Refresh BackgroundQuery:=False ei huoli RefreshAll komentoa...
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Puoluebarometri: Marinin hallituksella 7 parasta mittaustulosta
Orpon hallitusta pitää huonona 2/3 kansalaisista, joka on aika hyvin linjassa hallituspuolueiden yhteenlasketun kannatuk664002Pride-rautu korvaamaan kirjolohi
Kekkosen saatanan tunari meni muuttamaan aikoinaan sateenkaariväen kalan nimen. Unkarin vallankumouksen innoittamana n152107Purran aikaisemmat kannattajat siirtyneet Lindtmanin leiriin
Melkoinen muutos on käynnissä Suomen politiikan kentällä. Tulevista häviäjistä on hirmuinen kiire päästä ajoissa voittaj61867Olen parasta a-luokkaa
Kerron nyt teille, että olen äärimmäisen utelias, ja iitserakas ihminen. Teen paljon aloituksia itseäni koskien ja tunge361224- 271209
Se mua jotenkin harmittaa
Et ko sulla ollu näin paljon selvästi mielenpäällä ollut kaikkea, kysymyksiä, neuvoteltavia asioita ja huolenaiheita, et11953Shakki ja matti
Toivoisin, että olisit läsnä ja tukena arjessani. Et edes tietäisi, että se olen minä tässä ja täällä vain. Olisi asioit70828Oot tosi epätavallinen
ja erikoinen nainen. Tykästyä ikihyviksi sun kaltaiseen naiseen, mitä tästä pitäis edes ajatella.43799- 39717
Peuran liikenne ajovaloissa
Haittaako se jos bussit on romuja ja käyttökiellossa? https://www.ilkkapohjalainen.fi/avi-loysi-kahdeksan-puutetta-kaup24674