Thread: record formulas
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Geebee Geebee is offline
external usenet poster
 
Posts: 28
Default record formulas

hi,

I have the following:

Workbooks.Open "source.csv"
DisplayAlerts = False
If Range("A2").Value 0 Then 'file not empty
Range(Range("A2"), Range("M2").End(xlDown)).Select
Range(Range("A2"), Range("M2").End(xlDown)).Copy
'Application.CutCopyMode = True 'prevent the following prompt: "There is
a large amount of information on the clipboard. Do yo uwant to be able to
paste this information into another program later?"
Application.ActiveWorkbook.Close savechanges:=False ' No need to save here
End If

'paste data from csv file, starting at row 265
Windows("destination.xls").Activate
Sheets("Input").Select
Range("A265").Select
ActiveSheet.Paste

Now I need to know how to make sure that all of the pasted rows have
formulas for column N. I could simply do a paste of the formula for the
whole column, but this would make empty records below the pasted records have
formulas also. How can I make sure that all of the pasted rows have formulas
for column N...and if not, paste the formula?

Thanks in advance,
geebee