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
474
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
Valtion alijäämä = yritystukien määrä = 10 mrd. euroa
Mutta persut eivät vaan suostu tasapainottamaan valtion budjettia, vaikka yritystuet on tiedetty haitallisiksi. Miksi p977393Suomi käyttää sosiaalietuuksiin suhteessa eniten rahaa koko maailmassa
Suomi käyttää sosiaaliturvaetuuksiin enemmän rahaa suhteessa bruttokansantuotteeseen kuin mikään muu maa maailmassa. Su3636483Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"
Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite613834Vähän fiksumpi Nimi kisa ? :=)
Kirjoita teidän etunimet allekkain. Jos nimissä on joku kirjain sama, poista se. Tee sama tarkistus kaikille kirjaimill293569Mikä on suurin luonne- eroavuus sinussa
Ja kaivatussasi? Vaikuttaako se huonoon vai hyvään suuntaan siinä, että teistä voisi tulla jotain?1922041Kenen haluaisit voittavan Amazing Racen: Tuomas ja Esko, Millu ja Karoliina vai Maria ja Vilma?
Amazing Race Suomi huipentuu lauantaina finaaliin. Jäljellä on kolme paria ja tiedossa on tehtäviä, jotka järkyttävät os181763- 611501
Gallup: Katsotko Salkkareita tai oletko katsonut?
Salatut elämät on suomalaisten suosikkisarja vuosikymmenestä toiseen. Salkkareiden parissa viettää aikaa sukupolvet laps181476Elämäni biisi starttaa uudessa muodossa - Voi olla pettymys faneille!
Elämäni biisi ja juontaja Katja Ståhl ovat suomalaisten suosikkeja. Lauantai-iltaisin ohjelma on vetänyt tv-katsojat arv11370Amazing Race Tomas rehellisenä Esko-appiukon, 63, tilasta: "Sairastelut ja..."
Tomas Grekov ja Esko Rotola-Pukkila ovat mukana Amazing Race Suomi -kisassa. Ja nyt vuorossa on finaali. Hankaluuksia m11357