Print side | Luk vindue

Kopi af 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=5117
Udskrevet den: 23.Nov.2024 kl. 09:20


Emne: Kopi af makro
Besked fra: Nignag
Emne: Kopi af makro
Posteringsdato: 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


Svar:
Besked fra: Krogsgaard
Posteringsdato: 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


Print side | Luk vindue