Print side | Luk vindue

Makro

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=175
Udskrevet den: 19.Apr.2025 kl. 11:30


Emne: Makro
Besked fra: RogerMoore
Emne: Makro
Posteringsdato: 30.Dec.2010 kl. 11:26
Hej Alle
 
Jeg har indspillet en makro og delt den til en knap i ark 1. Makroen henter data fra ark 2.
 
Mit spørgsmål er, når jeg trykker på knappen i ark 1 skifter Excel automatisk til ark 2, helt specifikt til den celle hvori makroen foregår. Kan det undgåes? Sådan så når jeg trykker på knappen i ark 1, så bliver jeg i ark 1.
 
På forhånd tak



Svar:
Besked fra: andreas
Posteringsdato: 30.Dec.2010 kl. 12:27
Det kan nemt undgået men det er nemmer hvis du oploader arket.
 
Med Venlig Hilsen Andreas


Besked fra: RogerMoore
Posteringsdato: 30.Dec.2010 kl. 12:38
Jeg er ikke lige ved arket nu. Men koden benyttet er:
 
Sub medgodtgørelse()
'
' medgodtgørelse Makro
' Makro indspillet 30-12-2010 af Jacob Olsen
'
'
    Sheets("Skat").Select
    ActiveCell.FormulaR1C1 = _
        "=+ROUND(IF(R[-1]C<0,(R[-1]C*0.6%)+(R[-24]C*0.6%),0),0)"
    Range("D56").Select
End Sub
Det ark knappen er i hedder "Resume", og det ark data er i hedder "Skat". Det er samtidig det ark Excel "hopper" over i når jeg trykker på knappen i "Resume" arket.


Besked fra: andreas
Posteringsdato: 30.Dec.2010 kl. 13:01
Du kan gøre det på denne måde.
 
Sub medgodtgørelse()
'
' medgodtgørelse Makro
' Makro indspillet 30-12-2010 af Jacob Olsen
'
'
    Sheets("Skat").Select
    ActiveCell.FormulaR1C1 = _
        "=+ROUND(IF(R[-1]C<0,(R[-1]C*0.6%)+(R[-24]C*0.6%),0),0)"
    Range("D56").Select
 
 Sheets("ark1").Select
End Sub

ellers bruge direkte henledninger til de ark og celler du bruger.
 
Sub Test
skat.range("A1").FormulaR1C1  = "=+ROUND(IF(R[-1]C<0,(R[-1]C*0.6%)+(R[-24]C*0.6%),0),0)"
end sub
 
Her ikke testet det men tror det kan bruges
 
 
Godt nytår
 
Andreas
 



Print side | Luk vindue