Avatar billede nemlig Professor
02. januar 2012 - 15:00 Der er 11 kommentarer og
1 løsning

VBA - Vis område A40 og nedefter

Hejsa.
Jeg har den udfordring, at jeg på et regneark har 2 afsnit.
Øverste afsnit (A1:D20) vises når jeg via knap hopper til regnearket.
Nederste afsnit (A40:D60) vil jeg gerne vise, når jeg klikker på en knap.
Der har jeg lavet denne kode:

Sub PgDn()
    Range("a80").Select
    Range("a40").Select
End Sub

Jeg vil meget gerne, at række 40 vises som øverste række, når jeg afspiller makroen, men det driller. Derfor tænkte jeg, at jeg blot vælger en celle længere nede (a80) og derefter hopper op til A40.
Nogen forslag til løsning.
Avatar billede Mads Larsen Nybegynder
02. januar 2012 - 15:08 #1
Hvis det altid er det samme område, så kan du give området et "navn", så vil den dog markere hele afsnittet, men derefter tror jeg du kan bruge din range("a40").select, til at kun få en celle :)

Håber du forstår hvad jeg mener
Avatar billede Mads Larsen Nybegynder
02. januar 2012 - 15:16 #2
Efter nogen hurtige test, kan jeg se det muligvis ikke hjælper dig.. det beklager jeg.
Avatar billede Mads Larsen Nybegynder
02. januar 2012 - 15:20 #3
Sub FindTest()
    Range("A155").Select
    ActiveCell.Offset(20, 0).Select
End Sub

Hos mig ser det ud til at passe med 20 celler den skal hoppe ned.

Ved ikke om det er en mulighed?
Avatar billede store-morten Ekspert
02. januar 2012 - 15:45 #4
Sub PgDn()
Range("A1").Select
ActiveWindow.SmallScroll Down:=39
Range("a40").Select
End Sub

Smid den op i celle A1, scroll 39 ned, vælg celle A40
Avatar billede Mads Larsen Nybegynder
02. januar 2012 - 15:53 #5
Virker noget smartere :)

Tak for tippet
Avatar billede nemlig Professor
02. januar 2012 - 17:09 #6
Tak for bidragene.
Store-mortens bidrag virker efter hensigten.
Smid venligst et svar.
Avatar billede store-morten Ekspert
02. januar 2012 - 17:25 #7
Velbekomme
Avatar billede Mathias- Nybegynder
02. januar 2012 - 22:07 #8
tilføj til store-mortens forslag:

Sub PgDn()
application.screenupdating=false
Range("A1").Select
ActiveWindow.SmallScroll Down:=39
Range("a40").Select
application.screenupdating=true
End Sub
Avatar billede store-morten Ekspert
02. januar 2012 - 22:16 #9
Mathias-

Den går ikke ;-)

Prøv at Scroller et stykke ned eks. A200

Og kør "PgDn"
Avatar billede nemlig Professor
02. januar 2012 - 22:16 #10
Jo tak - det havde jeg også med i overvejelserne.
Men selvom jeg ikke deaktiverer opdateringen, så ser jeg faktisk ikke, at der springes til A1 og derefter A40. Givetvis fordi, jeg i forvejen har A1 synlig, når makroen afvikles.

Ellers tak for input.
Avatar billede store-morten Ekspert
02. januar 2012 - 22:17 #11
Vi vil jo gerne ha opdatere skærmen ;-)
Avatar billede Mathias- Nybegynder
02. januar 2012 - 22:26 #12
ja okay, var nok lige hurtig nok ;)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester