Using a macro to make a list from results

[deemo85]

Hi,

I have made a macro that runs another macro and copies the results to a new
column thus creating a list. I want to make the macro run over a large
number of cycles and create a large list without me having to type in the
same command over and over. How can I do this? I have pasted the macro below:

Sub Macro8()
'
' Macro8 Macro
' Macro recorded 2/06/2008 by deemo
'

'
Application.Run "Iterate2"
Range("B1").Select
Selection.Copy
Range("N8").Select
ActiveSheet.Paste
Range("F1").Select
Selection.Copy
Range("O8").Select
ActiveSheet.Paste
Application.Run "Iterate2"
Range("B1").Select
Selection.Copy
Range("N9").Select
ActiveSheet.Paste
Range("F1").Select
Selection.Copy
Range("O9").Select
ActiveSheet.Paste
Application.Run "Iterate2"
Range("B1").Select
Selection.Copy
Range("N10").Select
ActiveSheet.Paste
Range("F1").Select
Selection.Copy
Range("O10").Select
ActiveSheet.Paste
End Sub

Thanks!

 

[JW]

Hi,

I have made a macro that runs another macro and copies the results to a new
column thus creating a list. I want to make the macro run over a large
number of cycles and create a large list without me having to type in the
same command over and over. How can I do this? I have pasted the macro below:

Sub Macro8()
'
' Macro8 Macro
' Macro recorded 2/06/2008 by deemo
'

'
Application.Run "Iterate2"
Range("B1").Select
Selection.Copy
Range("N8").Select
ActiveSheet.Paste
Range("F1").Select
Selection.Copy
Range("O8").Select
ActiveSheet.Paste
Application.Run "Iterate2"
Range("B1").Select
Selection.Copy
Range("N9").Select
ActiveSheet.Paste
Range("F1").Select
Selection.Copy
Range("O9").Select
ActiveSheet.Paste
Application.Run "Iterate2"
Range("B1").Select
Selection.Copy
Range("N10").Select
ActiveSheet.Paste
Range("F1").Select
Selection.Copy
Range("O10").Select
ActiveSheet.Paste
End Sub

Thanks!

No need for all those selects. Put your calls back in, and make the
necessary range changes.

Sub this()
Range("B1").Copy Destination:=Range("N8:N45")
Range("F1").Copy Destination:=Range("O8:O45")
End Sub

 

[deemo85]

thanks! I am also having my macro run my other macro called iterate2, then
copy the results produced from that in the cells B1 and F1 to N8 and O8, and
then run iterate2 again, copy the results from cells B1and F1 to N9 and O9,
and continue doing this for a number of times, could you suggest how I can do
that incorporate the running of my other macro, I have done it in the macro
pasted below but only 3 times because I didnt know how to run it multiple
times.

cheers

 

[JW]

thanks! I am also having my macro run my other macro called iterate2, then
copy the results produced from that in the cells B1 and F1 to N8 and O8, and
then run iterate2 again, copy the results from cells B1and F1 to N9 and O9,
and continue doing this for a number of times, could you suggest how I cando
that incorporate the running of my other macro, I have done it in the macro
pasted below but only 3 times because I didnt know how to run it multiple
times.

cheers







- Show quoted text -

Yeah, that's my fault. Didn't read you code thoroughly enough. Sorry
about that.

Tweak as needed.
Sub likeThis()
Dim i As Long
For i = 8 To 45
Application.Run "Iterate2"
Range("B1").Copy _
Destination:=Range("N" & i)
Range("F1").Copy _
Destination:=Range("O" & i)
Next i
End Sub

 

[deemo85]

works perfectly! thanks a million!

Yeah, that's my fault. Didn't read you code thoroughly enough. Sorry
about that.

Tweak as needed.
Sub likeThis()
Dim i As Long
For i = 8 To 45
Application.Run "Iterate2"
Range("B1").Copy _
Destination:=Range("N" & i)
Range("F1").Copy _
Destination:=Range("O" & i)
Next i
End Sub