I've constructed a formula. I put this formula in a cell and then attempt to copy it to a large number of cells via various Range copy techniques. I can get none to work. All are complaining about various object errors. The attempts at copy were commented out AFTER I tried and failed with them.[vba] Cells(lastRow + 7, 2) = formRank
'
' Copy this formula
'
'Worksheets(rankSheet.Name).Range(Cells(lastRow + 7, 2)).Select
'Selection.Copy
'Worksheets(rankSheet.Name).Range(Cells(lastRow + 7, 2), _
Cells(lastRow + lastRow + 7, col)).Select
'Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
'ActiveSheet.Range(Cells(lastRow + 7, 2)).Select
'Selection.Copy
'ActiveSheet.Range(Cells(lastRow + 7, 2), _
' Cells(lastRow + lastRow + 7, col)).Select
'ActiveSheet.Range(Cells(lastRow + 7, 2)).Formula = _
' ActiveSheet.Range(Cells(lastRow + 7, 2), _
' Cells(lastRow + lastRow + 7, col)).Formula
'Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
'rankSheet.Range(Cells(lastRow + 7, 2)).Copy _
' Destination:=rankSheet.Range(Cells(lastRow + 7, 2), Cells(lastRow + lastRow + 7, col))
'ActiveWorkbook.Worksheets(rankSheet.Name). _
' Range(Cells(lastRow + 7, 2)).Copy _
' Destination:=rankSheet.Range(Cells(lastRow + 7, 2), _
' Cells(lastRow + lastRow + 7, col))
[/vba]
I've done something very similar in another macro, but I just can't get this one to work.
Any ideas?