Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketMakro
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
RogerMoore Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Sep.2010
Land: Danmark
Status: Offline
Point: 5 		Direkte link til dette indlæg Emne: Makro
    Sendt: 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
Til top



Til top
andreas Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Aug.2010
Land: Danmark
Status: Offline
Point: 35 		Direkte link til dette indlæg Sendt: 30.Dec.2010 kl. 12:27
Det kan nemt undgået men det er nemmer hvis du oploader arket.
 
Med Venlig Hilsen Andreas
Til top
RogerMoore Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Sep.2010
Land: Danmark
Status: Offline
Point: 5 		Direkte link til dette indlæg Sendt: 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.
Til top
andreas Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 22.Aug.2010
Land: Danmark
Status: Offline
Point: 35 		Direkte link til dette indlæg Sendt: 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
 
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk