Fast skræmposition på alle ark når workbook åbnes

Prøv at sætte denne ind i ThisWorkbook modulet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.ScrollRow = 30
End Sub

ja det virker men er det muligt i samme sub at vælge i hvilken størrelse man vil se ark i, eksempelvis fast til 125%.

Bare simd et svar, så er det points på vej!

Se bort fra 04/09-2008 20:01:36

Det lykkeds nogenlunde med følgende kode:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 34
ActiveWindow.Zoom = 125

End Sub

Meeeeen, det er somom at den nogle enkelte gange ikke helt lige fanger koden, hvorved man lige skal klikke væk fra arket og ind igen før at det er iorden. Kan det passe at der findes nogle koder som kan optimere macroen, mener jeg har læst det et sted, men kan bare ikke huske hvor.

Fandt alligevel lige frem til at det var

Application.ScreenUpdating = False

og

Application.ScreenUpdating = True


jeg ledte efter, for nu kører det bare derudaf, så hvis der kommer et svar så er jeg glad

ok, godt du fandt ud af resten
og et svar ;-))