SI
SI
discoversearch

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
 Public ReplyPrvt ReplyMark as Last ReadFilePrevious 10Next 10PreviousNext  
To: PuddleGlum who wrote (894)4/28/2002 3:47:45 PM
From: Sbtorres  Read Replies (2) of 1541
 
When I saw that you have to pay for End of Day data then I had to do something. You can download the data 20 mins delayed intraday also. I've been lurking.

This is a sample Test Portfolio ^DJI ^IXIC AAPL CSCO IBM INTC SUNW
There are seven entries 2 indices and 5 stocks in this example.
Instead of sending the spreadsheet I am sending the listing of Macro with some annotation.
then you can paste in the Macro sheet.

**************

Sub MacroY2P()
'Y2P--Yahoo to ProTA'
' apostrophe then comments after
' Open the Macro then Edit
' Step thru the Macro on Function 8.
' Macro recorded 8/21/99 by Santos B. Torres
'
'Yahoo TEST to ProTA
' Worksheet Test is a working sheet
' 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

Range("A1:A7,G1:G7").Select
Range("G1").Activate
Selection.Copy
With ActiveWindow
.Top = 30
.Left = 118
End With
Windows("Test").Activate
Range("A2").Select 'location
ActiveSheet.Paste

Windows("quotes.csv").Activate
Range("E1:E7,F1:F7").Select 'list 1-7
Selection.Copy
With ActiveWindow
.Top = 30
.Left = 118
End With
Windows("Test").Activate
Range("C2").Select
ActiveSheet.Paste

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
Report TOU ViolationShare This Post
 Public ReplyPrvt ReplyMark as Last ReadFilePrevious 10Next 10PreviousNext  

HomeMailHotSubjectMarksPeopleMarksKeepersSettings
Terms Of UseContact UsCopyright/IP PolicyPrivacy PolicyAbout UsFAQAdvertise on SI
© 2025 Knight Sac Media.  Data provided by Twelve Data, Alpha Vantage, and CityFALCON News