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


Kopi af makro
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Nignag Se dropdown
Forum Begynder
Forum Begynder


Medlem: 19.Apr.2024
Land: Danmark
Status: Offline
Point: 19 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Nignag Citér  BesvarSvar Direkte link til dette indlæg Emne: Kopi af makro
    Sendt: 16.Sep.2024 kl. 13:47
Er det muligt at kopiere en makro?

Jeg har en simpel målsøgningsmakro, som skal gentages en masse gange.
Nedenstående skal så også laves til "P6"/"H6"/K6" osv.

Makroen
Sub Målsøgning2()
'
' Målsøgning Makro
'
'
    Range("P5").GoalSeek Goal:=Range("H5"), ChangingCell:=Range("K5")
End Sub
Til top



Til top
Krogsgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 26.Apr.2024
Land: Danmark
Status: Offline
Point: 133 		Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér Krogsgaard Citér  BesvarSvar Direkte link til dette indlæg Sendt: 16.Sep.2024 kl. 17:20
Det kan du bare gøre. ingen problemer i det så længe det er en Sub
Det kan også gøres med denne kode der ender i række 1000.
Sub MålsøgningLoop() 
Dim i As Integer 
 ' Start i række 5 og fortsæt op til række 1000 
For i = 5 To 1000 
  ' Målsøgning: P(i) skal opnå målet i H(i), og ændringen sker i K(i) 
 Range("P" & i).GoalSeek Goal:=Range("H" & i).Value, ChangingCell:=Range("K" & i) 
 Next i 
End Sub
Niels Krogsgaard Otten
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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