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]
