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

record formulas
 

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.

geebee wrote:

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