Repeating simple macro from row 10 to row 1000

[lisavonseth]

I have a very easy macro written - but haven't been able to repeat it for a range of lines.

here is the macro for line 10
Range("AJ10").GoalSeek Goal:=Range("AK10"), ChangingCell:=Range("AI10")

Then I want to give the command "repeat for lines 10 to 1000"

Anyone who knows how to do this????

 

[VoG]

Hello and welcome to MrExcel.

Try

Sub glseek()
Dim i As Integer
For i = 10 To 1000
    Range("AJ" & i).GoalSeek Goal:=Range("AK" & i), ChangingCell:=Range("AI" & i)
Next i
End Sub

 

[lisavonseth]

Great!
This is how my Macro looks now. How do I modify to capture the Dim as you mention ? Can you maybe show in my Macro below ? So I know how to modify ?


Sub LISA()
'
' LISA Macro
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
Range("AJ10").GoalSeek Goal:=Range("AK10"), ChangingCell:=Range("AI10")
End Sub

 

[VoG]

Try

Sub LISA()
'
' LISA Macro
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
Dim i As Integer
For i = 10 To 1000
    Range("AJ" & i).GoalSeek Goal:=Range("AK" & i), ChangingCell:=Range("AI" & i)
Next i
End Sub

 

[lisavonseth]

Tried that and got message :

Run-time Error '1004'

Method 'Range' of object '_Global' failed


Here is copy of macro:
Sub LISA()
'
' LISA Macro
'
' Keyboard Shortcut: Ctrl+Shift+Z
'
Dim i As Integer
For i = 10 To 1000
Range("AJ & i").GoalSeek Goal:=Range("AK & i"), ChangingCell:=Range("AI & i")
Next i
End Sub

 

[VoG]

You have " in the wrong place. Copy and paste

Range("AJ" & i).GoalSeek Goal:=Range("AK" & i), ChangingCell:=Range("AI" & i)

 

[lisavonseth]

Wonderfull !

Well spotted !

THANX Peter - you just saved me LOADS of work !

have a great day !!!!