record formulas

[Guest]

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

 

[Dave Peterson]

Keep track of what you copy...


dim RngToCopy as range
dim DestCell as range
dim CSVWkbk as workbook

with workbooks("destination.xls").worksheets("Input")
set destcell = .range("a265")
end with

set csvwkbk = Workbooks.Open(filename:="source.csv")

with csvwkbk.worksheets(1)
If .Range("A2").Value > 0 Then 'file not empty
set rngtocopy = .Range("A2", Range("M2").End(xlDown))
rngtocopy.copy _
destination:=destcell
destcell.offset(0,13).resize(rngtocopy.rows.count,1).formular1c1 _
= "=someformulahere"
end if
end with

csvwkbk.close savechanges:=false

=====
Untested, uncompiled.