Silicon Investor (SI) -- The First Internet Community

STOCKTALK

We've detected that you're using an ad content blocking browser plug-in or feature. Ads provide a critical source of revenue to the continued operation of Silicon Investor. We ask that you disable ad blocking while on Silicon Investor in the best interests of our community. If you are not using an ad blocker but are still receiving this message, make sure your browser's tracking protection is set to the 'standard' level.

Strategies & Market Trends : Technical Analysis for Macintosh Users -- Ignore unavailable to you. Want to Upgrade?

To: Mac Oliver who wrote (898)	7/15/2002 1:46:59 AM
From: Sbtorres	Respond to of 1541

<<What progam runs this macro?>> An excel macro that updates with End of Day data from Yahoo to ProTA. Sub MacroY2P() 'Y2P--Yahoo to ProTA' ' apostrophe then comments after ' Open the Macro then Edit ' Step thru the Macro on Function 8. ' in edit mode ' ' quote.csv ==You can change the name as you wish but ' has to match what was downloaded in DayWatch format Workbooks.Open FileName:="Macintosh HD:Documents:quotes.csv" Windows("quotes.csv").Activate 'SYMBOL CLOSE date time change open Hi Lo Vol colmns A to H Columns("D:F").Select 'time change and open not needed Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("F:F").Select Selection.Insert Shift:=xlToRight Columns("B:B").Select Selection.Cut Range("F1").Select ActiveSheet.Paste Columns("B:B").Select Selection.Insert Shift:=xlToRight Range("B2").Select ActiveWindow.LargeScroll Down:=-1 Rows("1:1").Select ActiveCell.FormulaR1C1 = "DJIA" Range("H1").Select ActiveCell.FormulaR1C1 = "500" ' Dummy volume Rows("2:2").Select ActiveCell.FormulaR1C1 = "NASDAQ" Range("H2").Select ActiveCell.FormulaR1C1 = "500" ' Dummy volume Range("B1").Select ActiveCell.FormulaR1C1 = "S" Range("C1").Select ActiveCell.FormulaR1C1 = "D" Range("B1:C7").Select 'resize=n+1 Selection.FillDown ' center symbol Columns("A:A").Select Application.CutCopyMode = False With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .MergeCells = False End With Columns("A:A").Select ' update main Windows("quotes.csv").Activate Cells.Select Selection.Columns.AutoFit ' Symbol S(tock) D(ay) Date Hi Lo Close Volume 'This order has to match in ProTA UTI Range("A1:H7").Select 'resize=n Selection.Copy 'copies file to be pasted on simple text ' Windows("quote.csv").Activate ActiveWorkbook.Close 'Don't save changes to quotes.csv but save the copy and then paste ' it to simple text. as scratch file ' Then Open the simple text from ProTA End Sub