That is a great help. I will play aorund with it and see what I come up
with. I will inquire for more help when I get stumped.. Thanks again,
Mike
> -----Original Message-----
> From: Won Lee [mailto:[EMAIL PROTECTED]
> Sent: Monday, July 26, 2004 10:14 AM
> To: CF-Community
> Subject: RE: MS Excel ?
>
> Michael,
>
> Sub Micheal_Tanggore()
>
> Dim num_rows As Integer
> Dim myRange As range
> num_rows = Cells(1, 1).Value
> Set myRange = range("a6:a" & num_rows + 6)
>
> Rows("6:3000").Select
> Selection.ClearContents
>
> For Each c In myRange
> c.Value = "formula here"
> c.Offset(0, 1).Value = "formula 1 here"
> c.Offset(0, 2).Value = "formula 2 here"
> c.Offset(0, 3).Value = "formula 3 here"
> c.Offset(0, 4).Value = "formula 4 here"
> c.Offset(0, 5).Value = "formula 5 here"
> c.Offset(0, 6).Value = "formula 6 here"
> c.Offset(0, 7).Value = "formula 7 here"
> c.Offset(0, 8).Value = "formula 8 here"
> Next c
>
> range("A1").Select
>
> End Sub
>
> You can make a macro button. It's not 100% dynamic as you
> will have to run the macro after each time you edit the
> contents of cell A1.
> Also it assumes that you will never have more then 3000 rows,
> which is a bad assumption from me. But it can easily be changed.
> ________________________________
>
>
[Todays Threads] [This Message] [Subscription] [Fast Unsubscribe] [User Settings] [Donations and Support]
