J
John
Hi Folks,
I'm trying to write data from cell calculation which updates automatically
as part of a FOR loop into a specific range of cells.
I would like to be able to read in a numeric value from a cell and loop
round that number writing to cells M1 to M100 or so but all I can get is the
data writing accross the row rather than down the col???
Here's what I have so far! Any Help Appreciated
Private Sub CommandButton1_Click()
Dim myRange As Range
Dim myrange2 As Range
Set myRange = Worksheets("Sheet1").Range("A110")
Set myrange2 = Worksheets("Sheet1").Range("M1:M100")
For i = 1 To 100
With Worksheets("Sheet1").Cells(114, i)
If .Value = "" Then .Value = myRange
End With
Application.SendKeys (F9)
Next i
End Sub
I was playing around with using myrange2 but had no luck :/
Cheers
John
I'm trying to write data from cell calculation which updates automatically
as part of a FOR loop into a specific range of cells.
I would like to be able to read in a numeric value from a cell and loop
round that number writing to cells M1 to M100 or so but all I can get is the
data writing accross the row rather than down the col???
Here's what I have so far! Any Help Appreciated
Private Sub CommandButton1_Click()
Dim myRange As Range
Dim myrange2 As Range
Set myRange = Worksheets("Sheet1").Range("A110")
Set myrange2 = Worksheets("Sheet1").Range("M1:M100")
For i = 1 To 100
With Worksheets("Sheet1").Cells(114, i)
If .Value = "" Then .Value = myRange
End With
Application.SendKeys (F9)
Next i
End Sub
I was playing around with using myrange2 but had no luck :/
Cheers
John