Formule kopiëren naar mappen

[conan2]

Sub macro1()
'
' Macro1 Macro
' Sub macro1() Dim a As Integer For a = 1 To Worksheets.Count Worksheets(a).Range("H3:H50").Formula = "=1-(G3/E3)" Next x End Sub
'

'
Application.CommandBars("Stop Recording").Visible = False
Range("L32").Select
Application.Goto Reference:="Macro1"
Application.CommandBars("Task Pane").Visible = False
Sheets("A.S.K. Plastics ").Select
Range("H3").Select
Application.Goto Reference:="Module1.macro1"
Range("H3").Select
End Sub

 

[conan2]

Oke,

Ik krijg dan, Ambiguous name detected: macro 1

en dan: Run time error 1004 method Goto of Object _application failed

Kies end of Debug of Help.

Dan kies ik debug en krijg ik:
Sub macro1()
'
' Macro1 Macro
' Sub macro1() Dim a As Integer For a = 1 To Worksheets.Count Worksheets(a).Range("H3:H50").Formula = "=1-(G3/E3)" Next x End Sub
'

'
Application.CommandBars("Stop Recording").Visible = False
Range("L32").Select
Application.Goto Reference:="Macro1"
Application.CommandBars("Task Pane").Visible = False
Sheets("A.S.K. Plastics ").Select
Range("H3").Select
Application.Goto Reference:="Module1.macro1"
Range("H3").Select
End Sub

en nu ???

 

[franç]

Nu ben je kennelijk de macro aan het aanvullen.
De regels van de macro die ik plaatste, moet je ONDER elkaar laten staan.
AUB duidelijk een vraag stellen, niet zo maar wat posten !

 

[franç]

Voer nu eerst eens alleen de macro uit die ik postte ZONDER ENIGE AANVULLING !
Daarna kun je altijd nog verder zien.

 

[conan2]

Super!!!!

Eindelijk gelukt.

dank je wel Franc!!!

Groeten en een fijn weekend

Conan