[Bob Vance]

This Macro lets me copy down every 72 cells till 5112, But it does not copy
the font or size, can I adjust it to copy everthing in the cell,

Public Sub CopySelectionEvery72UntilRow5112()
Dim i As Long
With Selection(1)
For i = .Row + 72 To 5112 Step 72
Cells(i, .Column).Value = .Value
Next i
End With
End Sub


Thanks in advance for your help....Bob Vance

[Matthew Connor]

Bob Vance wrote:
This Macro lets me copy down every 72 cells till 5112, But it does not copy
the font or size, can I adjust it to copy everthing in the cell,

Public Sub CopySelectionEvery72UntilRow5112()
Dim i As Long
With Selection(1)
For i = .Row + 72 To 5112 Step 72
Cells(i, .Column).Value = .Value
Next i
End With
End Sub


Thanks in advance for your help....Bob Vance


(the following is untested but relatively straightforward)
to copy the font and size along with value put:
Cells(i, .Column).Value = .Value
Cells(i, .Column).font.size = .font.size
Cells(i, .Column).font.fontstyle = .font.fontstyle
into the for-next loop

to copy 'everything' put this in the for-next:
Selection(1).copy Cells(i, .Column)

and then you might want to add just before the End Sub:
Application.CutCopyMode = False

Hope this helps,

Matthew

[Bob Vance]

--
Brilliant, Mr McGimpsey thanx for the help :)


Thanks in advance for your help....Bob Vance

"J.E. McGimpsey" wrote in message
...
one way:

Public Sub CopySelectionEvery72UntilRow5112()
Dim i As Long
Dim destRng As Range

With Selection(1)
Set destRng = .Cells
For i = .Row + 72 To 5112 Step 72
Set destRng = Union(destRng, Cells(i, .Column))
Next i
.Copy destRng
End With
End Sub


In article ,
"Bob Vance" wrote:

This Macro lets me copy down every 72 cells till 5112, But it does not
copy
the font or size, can I adjust it to copy everthing in the cell,

Public Sub CopySelectionEvery72UntilRow5112()
Dim i As Long
With Selection(1)
For i = .Row + 72 To 5112 Step 72
Cells(i, .Column).Value = .Value
Next i
End With
End Sub


Thanks in advance for your help....Bob Vance