Slight adjustment needed for Macro
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 |
Slight adjustment needed for Macro
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 |
Slight adjustment needed for Macro
-- 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 |
All times are GMT +1. The time now is 09:04 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com