Pulling data points from multiple webpages

[Jimmywinvests]

Hello Exel-sperts (yes i love bad puns),

I have spent weeks reading forums and watching videos only to fail at creating the spreadsheet I set out to; I am hoping that someone on here might be able to help me.
I need to create a spreadsheet which pulls multiple data points (from a few web pages) off yahoo finance. The method however would need to include a macro button which when pressed would refresh the data, as well as work for multiple assessments.

The data I wish to extract (using the company "Telstra" as an example) include the following:

Summary Page

https://au.finance.yahoo.com/q?s=TLS.AX

Company Name

share price

Market Cap (mil)

Balance Sheet Quartly Page

https://au.finance.yahoo.com/q/bs?s=TLS.AX

Cash and Cash equilavents (of most recent quarter - i.e. left column)

Cash from short term investments (of most recent quarter - i.e. left column)

Cash Flow Annual Page

https://au.finance.yahoo.com/q/cf?s=TLS.AX&annual

Cash from operating activities (most recent annual figure)

Capital expenditures (most recent annual figure)

Key Statistics Page

https://au.finance.yahoo.com/q/ks?s=TLS.AX

shares outstanding

return on equity

revenue growth rate

Total debt

Operating

Forward PE Ratio (optional - include if easy)

<tbody>
</tbody>

The idea is that this data is scraped off the above websites using the ticker "TLS.AX" as the identifier. Therefore, the headers should populate the first row in the spreadsheet.

The second part to this is that I would need this to work on multiple companies at a time (for example if i listed the circa 2100 companies listed on the ASX in column "A", ideally it would populate all the above listed data for every company; thus allowing the filtering of companies by data point.

Any help is very greatly appreciated. (I am not sure where else to turn to - at this point I even have doubts that excel can fulfill the requirements).

Thank-you to anybody who takes the time to read my problem!

- Jimmy

 

[michaelsmith559]

Do you have the list of your companies? If so, are they listed like in your example: TLS.AX or can you make a list of your companies like in the example?

 

[michaelsmith559]

Here is what I have come up with so far. I have not finished the macro yet, but it is where you can test the company you gave in post #1. Below is how I set up each sheet before macro runs, followed by macro, and then the results after macro runs.

Excel 2012
	A	B	C	D	E	F
1
2
3
4
5
6
7
8
9
10
Summary

Excel 2012
	A	B	C	D	E	F
1
2
3
4
5
6
7
8
9
10
Balance Sheet

Excel 2012
	A	B	C	D	E	F
1
2
3
4
5
6
7
8
9
10
Cash Flow

Excel 2012
	A	B	C	D	E	F
1
2
3
4
5
6
7
8
9
10
Key Statistics

Excel 2012
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Company	Share Price	Market Cap	Cash & Cash Equivalents	Cash Short Term Investments	Cash Operating Activities	Capital Expenditures	Shares Outstanding	Return on Equity	Revenue Growth Rate	Total Debt	Operating	Forward PE Ratio
2	TLS.AX
3
4
5
Final Summary

Sub DynamicURL()
Dim lastRow As Long, r As Long
Dim url As String
Dim symbol As String

lastRow = Sheets("Final Summary").Range("A" & Rows.Count).End(xlUp).Row
symbol = Sheets("Final Summary").Range("A" & lastRow)
If lastRow = Rows.Count Then Exit Sub
    
For r = 2 To lastRow
    Sheets("Summary").Activate
    With Sheets("Summary")
    url = "URL;https://au.finance.yahoo.com/q?s="
    url = url & symbol
    End With
        With Sheets("Summary").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "q?s=TLS.AX_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """table1"",""table2"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("B" & r) = Sheets("Summary").Range("B9")
        Sheets("Final Summary").Range("C" & r) = Sheets("Summary").Range("B13")
        
    End With
    
    With Sheets("Balance Sheet")
    url = "URL;https://au.finance.yahoo.com/q/bs?s="
    url = url & symbol
    End With
        Sheets("Balance Sheet").Activate
        With Sheets("Balance Sheet").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "bs?s=TLS.AX"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "9"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("D" & r) = Sheets("Balance Sheet").Range("C5")
        Sheets("Final Summary").Range("E" & r) = Sheets("Balance Sheet").Range("C6")
        
    End With
    
    With Sheets("Cash Flow")
    url = "URL;https://au.finance.yahoo.com/q/cf?s="
    url = url & symbol & "&annual"
    End With
        Sheets("Cash Flow").Activate
        With Sheets("Cash Flow").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "cf?s=TLS.AX&annual"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "8"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("F" & r) = Sheets("Cash Flow").Range("C12")
        Sheets("Final Summary").Range("G" & r) = Sheets("Cash Flow").Range("C15")
        
    End With
    
    With Sheets("Key Statistics")
    url = "URL;https://au.finance.yahoo.com/q/ks?s="
    url = url & symbol
    End With
        Sheets("Key Statistics").Activate
        With Sheets("Key Statistics").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "ks?s=TLS.AX_2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "7,9,10,12,14,16,18,20,22,26,28,30"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("H" & r) = Sheets("Key Statistics").Range("B61")
        Sheets("Final Summary").Range("I" & r) = Sheets("Key Statistics").Range("B25")
        Sheets("Final Summary").Range("J" & r) = Sheets("Key Statistics").Range("B30")
        Sheets("Final Summary").Range("K" & r) = Sheets("Key Statistics").Range("B40")
        Sheets("Final Summary").Range("L" & r) = Sheets("Key Statistics").Range("B46")
        Sheets("Final Summary").Range("M" & r) = Sheets("Key Statistics").Range("B6")
    
    End With
    
Next r

    Sheets("Final Summary").Activate
    Range("A2").Select

End Sub

Excel 2012
	A	B
1	Prev Close:	5.44
2	Open:	5.43
3	Bid:	5.35
4	Ask:	5.36
5	1y Target Est:	N/A
6	Beta:	N/A
7	Next Earnings Date:	N/A
8
9	Day's Range:	5.33 - 5.46
10	52wk Range:	5.06 - 6.66
11	Volume:	13,598,080
12	Avg Vol (3m):	23,392,200
13	Market Cap:	65.43B
14	P/E (ttm):	15.54
15	EPS (ttm):	0.35
16	Div & Yield:	N/A (N/A)
Summary

Excel 2012
	A	B	C	D	E	F
1	Period Ending		30/06/2015	31/03/2015	31/12/2014	30/09/2014
2
3	Assets
4	Current Assets
5		Cash And Cash Equivalents	1,396,000	1,396,000	1,669,000	1,669,000
6		Short Term Investments	-	-	-	-
7		Net Receivables	4,730,000	4,730,000	4,638,000	4,638,000
8		Inventory	491,000	491,000	529,000	529,000
9		Other Current Assets	5,000	5,000	75,000	75,000
10
11	Total Current Assets		6,970,000	6,970,000	7,273,000	7,273,000
12	Long Term Investments		1,134,000	1,134,000	294,000	294,000
13	Property Plant and Equipment		-	-	-	-
14	Goodwill		1,652,000	1,652,000	-	-
15	Intangible Assets		-	-	-	-
16	Accumulated Amortisation		-	-	-	-
17	Other Assets		-	-	-	-
18	Deferred Long Term Asset Charges		66,000	66,000	13,000	13,000
19
20	Total Assets		40,445,000	40,445,000	38,637,000	38,637,000
21
22	Liabilities
23	Current Liabilities
24		Accounts Payable	1,256,000	1,256,000	3,720,000	3,720,000
25		Short/Current Long Term Debt	16,256,000	16,256,000	16,338,000	16,338,000
26		Other Current Liabilities	2,513,000	2,513,000	2,393,000	2,393,000
27
28	Total Current Liabilities		8,129,000	8,129,000	8,565,000	8,565,000
29	Long Term Debt		14,498,000	14,498,000	13,886,000	13,886,000
30	Other Liabilities		-	-	-	-
31	Deferred Long Term Liability Charges		955,000	955,000	-	-
32	Minority Interest		-	-	-	-
33	Negative Goodwill		-	-	-	-
34
35	Total Liabilities		25,935,000	25,935,000	24,984,000	24,984,000
36
37	Stockholders' Equity
38	Misc Stocks Options Warrants		-	-	-	-
39	Redeemable Preferred Stock		-	-	-	-
40	Preferred Stock		-	-	-	-
41	Common Stock		5,284,000	5,284,000	5,178,000	5,178,000
42	Retained Earnings		8,842,000	8,842,000	8,225,000	8,225,000
43	Treasury Stock		-23,000	-23,000	-48,000	-48,000
44	Capital Surplus		251,000	251,000	-	-
45	Other Stockholder Equity		-	-	-	-
46
47	Total Stockholder Equity		-	-	-	-
48
49	Net Tangible Assets		-	-	-	-
Balance Sheet

Excel 2012
	A	B	C	D	E	F
1	Period Ending		30/06/2015	30/06/2014	30/06/2013	30/06/2012
2	Net Income		4,231,000	4,275,000	3,739,000	3,405,000
3
4	Operating Activities, Cash Flows Provided By or Used In
5	Depreciation		3,064,000	3,074,000	3,210,000	3,516,000
6	Adjustments To Net Income		-	-	-	-
7	Changes In Accounts Receivables		-457,000	-164,000	-249,000	-255,000
8	Changes In Liabilities		-	-	-	-
9	Changes In Inventories		-122,000	35,000	-173,000	15,000
10	Changes In Other Operating Activities		-207,000	1,000	-177,000	19,000
11
12	Total Cash Flow From Operating Activities		8,311,000	8,613,000	8,359,000	9,276,000
13
14	Investing Activities, Cash Flows Provided By or Used In
15	Capital Expenditures		-2,845,000	-2,868,000	-2,818,000	-3,006,000
16	Investments		-	-	-	-
17	Other Cash flows from Investing Activities		-	-	-	-
18
19	Total Cash Flows From Investing Activities		-5,692,000	-1,130,000	-3,335,000	-4,079,000
20
21	Financing Activities, Cash Flows Provided By or Used In
22	Dividends Paid		-	-	-	-
23	Sale Purchase of Stock		-	-	-	-
24	Net Borrowings		-	-	-	-
25	Other Cash Flows from Financing Activities		-1,889,000	-500,000	-1,262,000	-1,079,000
26
27	Total Cash Flows From Financing Activities		-6,882,000	-4,430,000	-6,526,000	-3,906,000
28	Effect Of Exchange Rate Changes		132,000	-5,000	36,000	17,000
29
30	Change In Cash and Cash Equivalents		-4,131,000	3,048,000	-1,466,000	1,308,000
Cash Flow

Excel 2012
	A	B
1	Valuation Measures
2
3	Market Cap (intraday)5:	65.43B
4	Enterprise Value (16/02/2016)3:	82.86B
5	Trailing P/E (ttm, intraday):	15.54
6	Forward P/E (fye 30/06/2017)1:	14.11
7	PEG Ratio (5 yr expected)1:	2.23
8	Price/Sales (ttm):	2.54
9	Price/Book (mrq):	4.71
10	Enterprise Value/Revenue (ttm)3:	3.16
11	Enterprise Value/EBITDA (ttm)6:	8.58
12
13	Financial Highlights
14
15	Fiscal Year
16	Fiscal Year Ends:	30-Jun
17	Most Recent Quarter (mrq):	30/06/2015
18
19	Profitability
20	Profit Margin (ttm):	16.16%
21	Operating Margin (ttm):	25.19%
22
23	Management Effectiveness
24	Return on Assets (ttm):	10.33%
25	Return on Equity (ttm):	30.11%
26
27	Income Statement
28	Revenue (ttm):	26.19B
29	Revenue Per Share (ttm):	2.13
30	Qtrly Revenue Growth (yoy):	N/A
31	Gross Profit (ttm):	14.51B
32	EBITDA (ttm)6:	9.66B
33	Net Income Avl to Common (ttm):	4.21B
34	Diluted EPS (ttm):	0.35
35	Qtrly Earnings Growth (yoy):	N/A
36
37	Balance Sheet
38	Total Cash (mrq):	1.40B
39	Total Cash Per Share (mrq):	0.12
40	Total Debt (mrq):	16.26B
41	Total Debt/Equity (mrq):	112.03
42	Current Ratio (mrq):	0.86
43	Book Value Per Share (mrq):	1.16
44
45	Cash Flow Statement
46	Operating Cash Flow (ttm):	8.31B
47	Levered Free Cash Flow (ttm):	2.12B
48
49	Stock Price History
50	Beta:	N/A
51	52-Week Change3:	-17.33%
52	S&P500 52-Week Change3:	-11.22%
53	52-Week High (19/02/2015)3:	6.66
54	52-Week Low (16/11/2015)3:	5.06
55	50-Day Moving Average3:	5.5
56	200-Day Moving Average3:	5.59
57
58	Share Statistics
59	Avg Vol (3 month)3:	23,392,200
60	Avg Vol (10 day)3:	28,984,400
61	Shares Outstanding5:	12.21B
62	Float:	12.16B
63	% Held by Insiders1:	N/A
64	% Held by Institutions1:	N/A
65	Shares Short 3:	N/A
66	Short Ratio 3:	N/A
67	Short % of Float 3:	N/A
68	Shares Short (prior month)3:	N/A
69
70	Dividends & Splits
71	Forward Annual Dividend Rate4:	N/A
72	Forward Annual Dividend Yield4:	N/A
73	Trailing Annual Dividend Yield3:	0.44
74	Trailing Annual Dividend Yield3:	8.00%
75	5 Year Average Dividend Yield4:	N/A
76	Payout Ratio4:	N/A
77	Dividend Date3:	N/A
78	Ex-Dividend Date4:	N/A
79	Last Split Factor (new per old)2:	1:01
80	Last Split Date3:	9/9/1999
Key Statistics

Excel 2012
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Company	Share Price	Market Cap	Cash & Cash Equivalents	Cash Short Term Investments	Cash Operating Activities	Capital Expenditures	Shares Outstanding	Return on Equity	Revenue Growth Rate	Total Debt	Operating	Forward PE Ratio
2	TLS.AX	5.33 - 5.46	65.43B	1396000	-	8311000	-2845000	12.21B	0.3011	N/A	16.26B	8.31B	14.11
3
4
5
Final Summary

 

[Jimmywinvests]

Michaelsmith, I Cannot believe how fast you work! 1PG.AX

ONT.AX

1ST.AX

TGP.AX

TIX.AX

TOF.AX

TOT.AX

3DM.AX

TDO.AX

DDD.AX

3PL.AX

4DS.AX

88E.AX

8CO.AX

8IH.AX

8EC.AX

NNW.AX

ACB.AX

AYC.AX

AYI.AX

ABP.AX

ALR.AX

ABL.AX

ABU.AX

AEG.AX

ABT.AX

AJC.AX

AKG.AX

ACS.AX

ACX.AX

ACQ.AX

ACR.AX

ACW.AX

AIV.AX

ACU.AX

ADA.AX

ADH.AX

ADD.AX

AAU.AX

ABC.AX

ADN.AX

ADQ.AX

ADR.AX

ABY.AX

AHZ.AX

ADY.AX

ADJ.AX

ABV.AX

ACE.AX

ASW.AX

ADX.AX

AER.AX

AQR.AX

AEI.AX

AIS.AX

AFR.AX

AFT.AX

AFP.AX

AHA.AX

AGX.AX

AGL.AX

AGJ.AX

AMN.AX

AGR.AX

AHL.AX

APW.AX

AGI.AX

AIZ.AX

AXP.AX

AJL.AX

AQG.AX

AUQ.AX

ACL.AX

ALY.AX

ALC.AX

AAI.AX

LEP.AX

AWD.AX

AJX.AX

AEB.AX

AQI.AX

AQX.AX

ALK.AX

AHQ.AX

AMT.AX

AQZ.AX

AGS.AX

AGE.AX

AYR.AX

APT.AX

ALQ.AX

ARS.AX

ATC.AX

AIQ.AX

ALU.AX

AOH.AX

AJM.AX

AWC.AX

AMA.AX

AYS.AX

AMO.AX

AMB.AX

AMH.AX

AMC.AX

AOW.AX

AXZ.AX

AGF.AX

AMP.AX

ANQ.AX

ALT.AX

ANR.AX

AHR.AX

ATM.AX

AQM.AX

AAR.AX

AGG.AX

AB1.AX

AWV.AX

ANN.AX

ASN.AX

AZZ.AX

AWW.AX

ANO.AX

ADO.AX

AVD.AX

AZY.AX

ANP.AX

APE.AX

APA.AX

AAL.AX

AQQ.AX

AHX.AX

APN.AX

APO.AX

APD.AX

AOP.AX

AON.AX

AOY.AX

AOJ.AX

AOR.AX

APX.AX

ALA.AX

AD1.AX

AQH.AX

AQU.AX

AQP.AX

AQS.AX

ARU.AX

ARB.AX

ARX.AX

AXE.AX

AAD.AX

AWO.AX

ADV.AX

ARF.AX

ARD.AX

AXT.AX

ALI.AX

ARG.AX

ARE.AX

AGY.AX

ARA.AX

ALL.AX

AHK.AX

AIK.AX

AJQ.AX

AWQ.AX

AWN.AX

ARI.AX

AR1.AX

ARV.AX

AAJ.AX

AJR.AX

AHY.AX

AJY.AX

AIO.AX

AFA.AX

ASZ.AX

ASH.AX

AJD.AX

DIG.AX

AJJ.AX

ATB.AX

AUF.AX

AKF.AX

APZ.AX

ASP.AX

AKM.AX

AIR.AX

AJA.AX

ARO.AX

ATR.AX

ASX.AX

ACG.AX

AHN.AX

ATI.AX

AGO.AX

ATP.AX

ATU.AX

AYA.AX

AUB.AX

AIA.AX

ACP.AX

AKP.AX

AUK.AX

AEE.AX

AMI.AX

AZJ.AX

AOU.AX

ABW.AX

AOD.AX

AIB.AX

ARM.AX

AUP.AX

AQJ.AX

ANW.AX

ASL.AX

AAX.AX

AUC.AX

AOA.AX

ANV.AX

AST.AX

AQD.AX

ARK.AX

ASB.AX

AOK.AX

ANG.AX

AKK.AX

ACK.AX

APG.AX

AGD.AX

ARH.AX

AWI.AX

ANZ.AX

AAK.AX

ANB.AX

AYM.AX

AAC.AX

AAP.AX

ABX.AX

ACO.AX

XCL.AX

AHF.AX

AYF.AX

AEF.AX

AFG.AX

AFI.AX

AQF.AX

GSB.AX

GSI.AX

ALF.AX

AKY.AX

AYD.AX

AYH.AX

AYJ.AX

AYK.AX

AYZ.AX

AUZ.AX

AYB.AX

AQC.AX

API.AX

ARW.AX

ARC.AX

AUI.AX

AYU.AX

AVL.AX

AVG.AX

AWY.AX

ABA.AX

AIY.AX

AHG.AX

AVI.AX

AVB.AX

AEV.AX

AVN.AX

AOG.AX

AVX.AX

AVH.AX

AVJ.AX

AVZ.AX

AWE.AX

AXJ.AX

AVQ.AX

AXI.AX

AYG.AX

APY.AX

AZM.AX

AZV.AX

AZS.AX

BBN.AX

BTI.AX

BND.AX

BKC.AX

BOQ.AX

BMN.AX

BKP.AX

BAR.AX

BST.AX

BSE.AX

BSM.AX

BAS.AX

BSR.AX

BRL.AX

BMH.AX

BAU.AX

BBX.AX

BCI.AX

BCD.AX

BPT.AX

BLX.AX

BCN.AX

BDR.AX

BGA.AX

BFG.AX

BAL.AX

BEN.AX

BLT.AX

BEL.AX

BKY.AX

BFC.AX

BYI.AX

BGD.AX

BHP.AX

BIG.AX

BGL.AX

BBG.AX

BNO.AX

BTC.AX

BIT.AX

BXN.AX

BOP.AX

BGS.AX

BIC.AX

BIS.AX

BSN.AX

BCG.AX

BKI.AX

BKM.AX

BMZ.AX

BOK.AX

BRD.AX

BKT.AX

BSP.AX

BGG.AX

BLK.AX

BKL.AX

BWF.AX

BWR.AX

BLZ.AX

BGH.AX

BDI.AX

BUL.AX

BLA.AX

BAF.AX

BCT.AX

BEG.AX

BSL.AX

BLG.AX

BMG.AX

BOA.AX

BLY.AX

BNE.AX

BOL.AX

BBR.AX

BLD.AX

BOE.AX

BML.AX

BOC.AX

BUY.AX

BPB.AX

BPH.AX

BPS.AX

BKN.AX

BRC.AX

BRN.AX

BXB.AX

BNV.AX

BZL.AX

BRB.AX

BRG.AX

BKW.AX

BGC.AX

BYL.AX

BTN.AX

BBL.AX

BRO.AX

BRS.AX

BCK.AX

BPL.AX

BGR.AX

BPA.AX

BRK.AX

BSA.AX

BTT.AX

BUD.AX

BUG.AX

BIQ.AX

BNR.AX

BPF.AX

BUN.AX

BYR.AX

BUR.AX

BAP.AX

BRU.AX

BUX.AX

BWP.AX

BWX.AX

BYE.AX

BPG.AX

CAB.AX

CBS.AX

CDM.AX

CAD.AX

DXA.AX

CTX.AX

CAE.AX

CAY.AX

CFE.AX

CAG.AX

CZZ.AX

CMY.AX

CAJ.AX

CAA.AX

CAQ.AX

CVV.AX

CRB.AX

CNQ.AX

CCF.AX

CNX.AX

CRM.AX

CDV.AX

CDD.AX

CDP.AX

CIN.AX

CVN.AX

CAV.AX

CWE.AX

CAP.AX

CAR.AX

CCV.AX

CZI.AX

CCZ.AX

CDT.AX

CYL.AX

CAT.AX

CXU.AX

CAZ.AX

CBC.AX

CBL.AX

CWP.AX

CNL.AX

CDY.AX

CLT.AX

CLA.AX

CTM.AX

CVR.AX

CTP.AX

CAF.AX

CXM.AX

CNI.AX

CMA.AX

CYA.AX

CFU.AX

CVS.AX

CHN.AX

CEL.AX

CGF.AX

CHJ.AX

CHU.AX

CHR.AX

CIA.AX

CHP.AX

CHC.AX

CQR.AX

CHF.AX

CHZ.AX

CCB.AX

CDC.AX

CIK.AX

CMC.AX

CWC.AX

CYU.AX

CDH.AX

CNU.AX

CII.AX

CIM.AX

CNW.AX

CTR.AX

CTO.AX

CLY.AX

CYO.AX

CND.AX

CL1.AX

CLZ.AX

CSS.AX

CLQ.AX

CVW.AX

CDG.AX

CAM.AX

CIW.AX

CUV.AX

CLV.AX

CMI.AX

CGR.AX

CZA.AX

CBQ.AX

CGW.AX

CCL.AX

COH.AX

COK.AX

CDA.AX

COF.AX

CGS.AX

CHK.AX

CKA.AX

CL8.AX

CLH.AX

CKF.AX

CNG.AX

CKL.AX

CRL.AX

COI.AX

CBA.AX

COM.AX

CFF.AX

CMP.AX

CPU.AX

CDB.AX

CPD.AX

CNJ.AX

CXZ.AX

CQA.AX

CSD.AX

CZL.AX

CEN.AX

CIE.AX

CTN.AX

CCC.AX

CVG.AX

COE.AX

CSE.AX

COY.AX

CZN.AX

CXO.AX

CTD.AX

COO.AX

CGC.AX

CMT.AX

CGM.AX

CUP.AX

CCJ.AX

CVT.AX

CVE.AX

CYG.AX

CYY.AX

CVO.AX

CZR.AX

CGO.AX

CXX.AX

CGN.AX

CCP.AX

CRQ.AX

CTT.AX

CRX.AX

CMW.AX

CUX.AX

CM8.AX

CWN.AX

CRI.AX

CUF.AX

CUH.AX

CTK.AX

CSN.AX

CTU.AX

CTH.AX

CAS.AX

CTE.AX

CSV.AX

CSL.AX

CSR.AX

CLX.AX

CDU.AX

CUE.AX

CQC.AX

CUL.AX

CV1.AX

CVC.AX

CWH.AX

CYB.AX

CYC.AX

CYP.AX

DCN.AX

DKO.AX

DAU.AX

DNK.AX

DHR.AX

DTM.AX

DTL.AX

DDT.AX

DTR.AX

DEG.AX

DSX.AX

DCG.AX

DYL.AX

DLC.AX

DSB.AX

DMI.AX

D13.AX

DGH.AX

DVN.AX

DXS.AX

DGO.AX

DGR.AX

DRX.AX

DSH.AX

DDR.AX

DMC.AX

DCC.AX

DXB.AX

DXF.AX

DGX.AX

DM1.AX

DAF.AX

DVI.AX

DVA.AX

DUI.AX

DJW.AX

DBN.AX

DME.AX

DMP.AX

DNA.AX

DFM.AX

DRM.AX

DVL.AX

DUO.AX

DOW.AX

DLE.AX

DRA.AX

DMG.AX

DRG.AX

DRK.AX

DLS.AX

DAO.AX

DAQ.AX

DTI.AX

DUB.AX

DUE.AX

DKM.AX

DLX.AX

DWS.AX

DYE.AX

DMA.AX

EAL.AX

ENL.AX

EER.AX

EGS.AX

EFE.AX

EAS.AX

EBO.AX

ECG.AX

EAR.AX

ECO.AX

EPM.AX

ECX.AX

EDE.AX

ENN.AX

ELD.AX

EOS.AX

ELM.AX

ELT.AX

EXR.AX

ELK.AX

EAI.AX

EGI.AX

ELX.AX

ELR.AX

EYM.AX

EMB.AX

EHL.AX

EMC.AX

EMR.AX

EML.AX

EMG.AX

EMF.AX

ERM.AX

ERX.AX

EEG.AX

EGO.AX

ERL.AX

EPD.AX

EMU.AX

ENR.AX

EVR.AX

ENB.AX

ENX.AX

EMX.AX

EAX.AX

EME.AX

EOL.AX

ERA.AX

EGY.AX

EWC.AX

ERJ.AX

EGG.AX

EGN.AX

EOR.AX

ENC.AX

E88.AX

ENA.AX

ETE.AX

ENT.AX

ENU.AX

ERR.AX

EVM.AX

ESI.AX

EGL.AX

ENZ.AX

EPA.AX

EQT.AX

EQU.AX

EQX.AX

EQE.AX

EPW.AX

ESV.AX

ESM.AX

EHE.AX

ESR.AX

GOL.AX

EPX.AX

ESK.AX

EUM.AX

EBG.AX

EGH.AX

EUG.AX

EMH.AX

EZL.AX

EVE.AX

EVT.AX

EVN.AX

EVO.AX

EVZ.AX

EXM.AX

EXG.AX

EXE.AX

EXU.AX

EXC.AX

EZA.AX

FXJ.AX

FAS.AX

FCN.AX

FAN.AX

FAR.AX

FRM.AX

FFC.AX

FBR.AX

FFG.AX

FEL.AX

FCR.AX

FTZ.AX

FFI.AX

FID.AX

FRI.AX

FND.AX

FSE.AX

FIE.AX

FGR.AX

FGF.AX

FMM.AX

FMA.AX

FPH.AX

FZR.AX

FSI.AX

FGI.AX

FWD.AX

FBU.AX

FXL.AX

FRX.AX

FLT.AX

FMS.AX

FML.AX

FET.AX

FLK.AX

FSF.AX

FRC.AX

FMG.AX

FOB.AX

FXR.AX

FOY.AX

FLR.AX

FRN.AX

FNP.AX

FLN.AX

FRE.AX

FCG.AX

FNT.AX

FSA.AX

FUN.AX

FFT.AX

FGG.AX

FGX.AX

FYI.AX

GUD.AX

GEM.AX

GRB.AX

GXY.AX

GAP.AX

GAL.AX

GLL.AX

GJT.AX

GDF.AX

GGX.AX

GCY.AX

GTY.AX

GML.AX

GZL.AX

GBX.AX

GBM.AX

GBZ.AX

GBT.AX

GDI.AX

GBI.AX

GMM.AX

GHC.AX

GNE.AX

GMD.AX

GES.AX

GSS.AX

GTG.AX

GNX.AX

GTK.AX

GMA.AX

GDY.AX

GPR.AX

GID.AX

GBG.AX

GLA.AX

GLN.AX

GC1.AX

GLE.AX

GCS.AX

GFI.AX

GSC.AX

GGH.AX

GLH.AX

GFL.AX

GXN.AX

GBP.AX

GRF.AX

GVF.AX

GLB.AX

GBE.AX

GME.AX

GOE.AX

GCN.AX

GFY.AX

GMN.AX

GOR.AX

GCR.AX

GED.AX

GEE.AX

GMR.AX

GMY.AX

GPH.AX

GSE.AX

GDA.AX

GMG.AX

GMP.AX

GOW.AX

GPS.AX

GPT.AX

GMF.AX

GNG.AX

GNC.AX

GGE.AX

GBA.AX

GRR.AX

GRA.AX

GEG.AX

GTE.AX

GNV.AX

GXL.AX

GER.AX

GGG.AX

GPP.AX

GRV.AX

GOZ.AX

GRP.AX

GRY.AX

GTR.AX

GLF.AX

GMC.AX

GUL.AX

GWA.AX

GWR.AX

HMX.AX

HHM.AX

HNR.AX

HSN.AX

HAO.AX

HAR.AX

HMI.AX

HVN.AX

HTR.AX

HHY.AX

HAS.AX

HAV.AX

HOG.AX

HAW.AX

HAZ.AX

HZR.AX

HSO.AX

HSK.AX

HLX.AX

HLO.AX

HGG.AX

HML.AX

HBS.AX

HRR.AX

HXG.AX

HFA.AX

HNG.AX

HPR.AX

HFR.AX

HIG.AX

HEG.AX

HLS.AX

HGO.AX

HIL.AX

HIT.AX

HJB.AX

HDG.AX

HCT.AX

HOM.AX

HZN.AX

HOR.AX

HCH.AX

HPI.AX

HRL.AX

HUB.AX

HGL.AX

HDX.AX

HHV.AX

HHL.AX

HUO.AX

HTA.AX

HYP.AX

HES.AX

HCS.AX

IAN.AX

IAT.AX

IB8.AX

ICI.AX

ICQ.AX

ICT.AX

ICN.AX

ICS.AX

IDF.AX

IDH.AX

IDJ.AX

IEL.AX

IDT.AX

IKW.AX

ILH.AX

ILA.AX

ILU.AX

IMI.AX

IMA.AX

IMD.AX

IMF.AX

IMC.AX

IPT.AX

IPD.AX

IPC.AX

IMU.AX

IXR.AX

IAB.AX

ICG.AX

IPL.AX

IOG.AX

IGO.AX

IRL.AX

IDO.AX

IDC.AX

IDZ.AX

ICZ.AX

IND.AX

IDR.AX

ICB.AX

IFN.AX

IFM.AX

IFZ.AX

INA.AX

IIL.AX

IAG.AX

INL.AX

ITQ.AX

IDX.AX

IRI.AX

IRC.AX

IEQ.AX

IFX.AX

IGS.AX

INB.AX

IMG.AX

IMX.AX

IMQ.AX

IMK.AX

IMN.AX

IMO.AX

INN.AX

INH.AX

IEC.AX

IAU.AX

IQE.AX

IVT.AX

IOF.AX

IVR.AX

IVO.AX

IVX.AX

IVC.AX

IFL.AX

IPB.AX

IPE.AX

IPH.AX

IPP.AX

IQ3.AX

IRE.AX

IRM.AX

IRD.AX

IBC.AX

IBG.AX

ISU.AX

ISD.AX

ICU.AX

IAA.AX

IZZ.AX

IVV.AX

IJH.AX

IJR.AX

IEU.AX

IOO.AX

IBK.AX

IVE.AX

IEM.AX

IHK.AX

IJP.AX

ISG.AX

IKO.AX

ITW.AX

IRU.AX

ISH.AX

ISX.AX

ITD.AX

IGL.AX

IVS.AX

IWG.AX

JKA.AX

JHX.AX

JAL.AX

JHC.AX

JAT.AX

JHL.AX

JBH.AX

JCI.AX

JCS.AX

JRV.AX

JRL.AX

JYC.AX

JIN.AX

JPR.AX

JKL.AX

JVG.AX

KSC.AX

KAM.AX

KTE.AX

KAB.AX

KBU.AX

KLR.AX

KIK.AX

KPO.AX

KGM.AX

KPT.AX

KRL.AX

KAR.AX

KAS.AX

KAT.AX

KMD.AX

KPC.AX

KBL.AX

KEY.AX

KBC.AX

KFW.AX

KGL.AX

KNL.AX

KDR.AX

KRA.AX

KDL.AX

KIN.AX

KPL.AX

KSL.AX

KKO.AX

KIS.AX

KGG.AX

KRC.AX

KSO.AX

KFG.AX

KCN.AX

KLO.AX

KRM.AX

KSN.AX

KME.AX

KNM.AX

KNO.AX

KFE.AX

KKL.AX

KKT.AX

KMA.AX

KNH.AX

KOR.AX

KOP.AX

KOV.AX

KTA.AX

KRS.AX

KTL.AX

KGD.AX

LSA.AX

LCR.AX

LKE.AX

LKO.AX

LMW.AX

LNY.AX

LGR.AX

LTN.AX

LAM.AX

LBL.AX

LAS.AX

LAA.AX

LRS.AX

LCD.AX

LMG.AX

LSN.AX

LBT.AX

LER.AX

LCY.AX

LGD.AX

LEG.AX

LCK.AX

LLC.AX

LRR.AX

LRL.AX

LFC.AX

LHC.AX

LIC.AX

LML.AX

LIN.AX

LAU.AX

LNK.AX

LIO.AX

LLO.AX

LSX.AX

LHB.AX

LTR.AX

LNG.AX

LTX.AX

LIT.AX

LVT.AX

LCT.AX

LCG.AX

LPE.AX

LSR.AX

LCM.AX

LCE.AX

LNR.AX

LGO.AX

LOV.AX

LOM.AX

LGM.AX

LWP.AX

LYL.AX

LYC.AX

MTU.AX

MLD.AX

MAH.AX

MRP.AX

MQA.AX

MBL.AX

MQG.AX

MRN.AX

MAQ.AX

MFG.AX

MFF.AX

MAU.AX

MGT.AX

MNS.AX

MPE.AX

MGU.AX

MGL.AX

MAI.AX

MKE.AX

MBC.AX

MAR.AX

MGY.AX

MGP.AX

MTL.AX

MSR.AX

MDD.AX

MHC.AX

MNM.AX

MTR.AX

MEY.AX

MTM.AX

MZN.AX

MCX.AX

MAE.AX

MEU.AX

MJP.AX

MYE.AX

MCE.AX

MAT.AX

MAD.AX

MXR.AX

MXI.AX

MSP.AX

MYX.AX

MZU.AX

MCS.AX

MEA.AX

MMS.AX

MCP.AX

MSG.AX

MMR.AX

MDR.AX

MBJ.AX

MDZ.AX

MPZ.AX

MZB.AX

MZA.AX

MZC.AX

MPL.AX

MEB.AX

MLA.AX

MVP.AX

MGZ.AX

MDV.AX

MDC.AX

MDG.AX

MML.AX

MP1.AX

MLB.AX

MEO.AX

MVT.AX

MHI.AX

MEZ.AX

MED.AX

MAS.AX

MSB.AX

MBK.AX

MCT.AX

MKO.AX

MLM.AX

MNE.AX

MLS.AX

MTA.AX

MLX.AX

MTS.AX

MEI.AX

MEL.AX

MEQ.AX

MNC.AX

MMI.AX

MPP.AX

MGC.AX

MXC.AX

MWR.AX

MGS.AX

MHM.AX

MX1.AX

MDI.AX

MYT.AX

MIG.AX

MOY.AX

MIL.AX

MAX.AX

MLT.AX

MNB.AX

MCR.AX

MDX.AX

MIZ.AX

MRC.AX

MDL.AX

MIN.AX

MPJ.AX

MEP.AX

MNQ.AX

MRR.AX

MNW.AX

MLI.AX

MBN.AX

MIR.AX

MGR.AX

MBT.AX

MSV.AX

MTH.AX

MUA.AX

MRM.AX

MMG.AX

MMJ.AX

MIH.AX

MNF.AX

MBO.AX

MBE.AX

MOD.AX

MKB.AX

MPO.AX

MOL.AX

MND.AX

MVF.AX

MOX.AX

MNY.AX

MUB.AX

MOQ.AX

MZM.AX

MMZ.AX

MRV.AX

MOC.AX

MOT.AX

MTB.AX

MGX.AX

MUM.AX

MRD.AX

MOV.AX

MOZ.AX

MRQ.AX

MSM.AX

MUI.AX

MXU.AX

MSI.AX

MCH.AX

MGV.AX

MUS.AX

MPX.AX

MYR.AX

MYQ.AX

MYO.AX

MYS.AX

MZI.AX

NAG.AX

NCO.AX

NAM.AX

NAN.AX

NAC.AX

NCC.AX

NAB.AX

NAF.AX

NAO.AX

NAH.AX

NAJ.AX

NSR.AX

NVL.AX

NML.AX

NAV.AX

NVT.AX

NEA.AX

NWB.AX

NXR.AX

NMT.AX

NEN.AX

NMS.AX

NCL.AX

NTC.AX

NEU.AX

NVI.AX

NAE.AX

NGE.AX

NHC.AX

NHO.AX

XNC.AX

NSE.AX

NTL.AX

NZO.AX

NCM.AX

NWF.AX

NHH.AX

NWS.AX

NWZ.AX

NME.AX

NXT.AX

NXM.AX

NHF.AX

NCK.AX

NIO.AX

NDO.AX

NEC.AX

NIU.AX

NKP.AX

NMG.AX

NBL.AX

NIB.AX

NFE.AX

NTM.AX

NTU.AX

NMI.AX

NST.AX

NWE.AX

NOR.AX

NOE.AX

NOV.AX

NRT.AX

NWH.AX

NSL.AX

NSX.AX

NCR.AX

NGY.AX

NFN.AX

NUF.AX

NPX.AX

NSP.AX

NYO.AX

OKJ.AX

OAR.AX

OBJ.AX

OCL.AX

OGC.AX

OCP.AX

OGH.AX

ORS.AX

OXX.AX

ODN.AX

ODY.AX

OBL.AX

OSH.AX

OEX.AX

OFW.AX

OKU.AX

OLH.AX

OMH.AX

OMT.AX

OSL.AX

1AL.AX

OVH.AX

OTR.AX

OTH.AX

OML.AX

OPT.AX

OIL.AX

OPG.AX

OEC.AX

OGY.AX

ORR.AX

ORH.AX

ORI.AX

OTI.AX

ORG.AX

OGX.AX

OEQ.AX

ORN.AX

OHE.AX

ORM.AX

OVL.AX

ORE.AX

ORA.AX

ORL.AX

OEG.AX

ORX.AX

OCC.AX

OSP.AX

OLV.AX

OTC.AX

OEL.AX

OTW.AX

OVR.AX

OZB.AX

OZL.AX

OFX.AX

OZG.AX

OZT.AX

PAK.AX

PBG.AX

PAC.AX

PEA.AX

PEH.AX

PFM.AX

PSF.AX

PSQ.AX

PNW.AX

PMY.AX

PGH.AX

PDY.AX

PZR.AX

PDN.AX

PZC.AX

PPP.AX

PCL.AX

PSY.AX

PAN.AX

PGI.AX

PNR.AX

PXU.AX

PPY.AX

PAR.AX

PDM.AX

PGC.AX

PCP.AX

PNL.AX

PML.AX

PAB.AX

PFL.AX

PAW.AX

PAY.AX

PNE.AX

PBD.AX

PEK.AX

PKO.AX

PEX.AX

PPC.AX

PUN.AX

PEL.AX

PEN.AX

PSM.AX

PTL.AX

PNN.AX

PEP.AX

PIL.AX

PIC.AX

PPT.AX

PEC.AX

PRU.AX

PTR.AX

PRL.AX

PSA.AX

PNO.AX

PAA.AX

PXS.AX

PHI.AX

PRH.AX

PHK.AX

POH.AX

POZ.AX

PYC.AX

PLS.AX

PGY.AX

PNC.AX

PIO.AX

PEG.AX

PGS.AX

PPN.AX

PGM.AX

PAI.AX

PTM.AX

PMC.AX

PLP.AX

PKA.AX

PLV.AX

PLH.AX

PAF.AX

PGF.AX

PMP.AX

PNX.AX

PVE.AX

PNV.AX

POS.AX

PWN.AX

PWW.AX

PPK.AX

PPS.AX

PDZ.AX

PBT.AX

PDI.AX

PCA.AX

PMV.AX

PEZ.AX

PTX.AX

PRR.AX

PGO.AX

PRY.AX

POP.AX

PFG.AX

PRT.AX

PME.AX

PPG.AX

PBP.AX

PGL.AX

PRG.AX

POB.AX

PRA.AX

PRO.AX

PSC.AX

PSP.AX

PIQ.AX

PRW.AX

PON.AX

PYM.AX

PSZ.AX

PSI.AX

PVA.AX

PTB.AX

PHA.AX

PHG.AX

PUH.AX

PUI.AX

PUB.AX

PUD.AX

PUG.AX

PUJ.AX

PUK.AX

PUO.AX

PUQ.AX

PUU.AX

PUV.AX

PVD.AX

PPL.AX

PWH.AX

QTG.AX

QAN.AX

QBE.AX

QMS.AX

QRX.AX

QTM.AX

QUR.AX

QUB.AX

QBC.AX

QBL.AX

QMN.AX

XQL.AX

QST.AX

QNL.AX

QUE.AX

QSS.AX

QFX.AX

QHL.AX

QVE.AX

RAD.AX

RAF.AX

RMR.AX

RMS.AX

RMM.AX

RMB.AX

RMH.AX

RMF.AX

RHC.AX

RND.AX

RRS.AX

RPG.AX

RAW.AX

RYG.AX

RBR.AX

RCG.AX

RCR.AX

REA.AX

RLE.AX

RCU.AX

REV.AX

RRP.AX

REC.AX

RCE.AX

RKN.AX

RCM.AX

RFT.AX

RED.AX

RMP.AX

RHI.AX

RDM.AX

RMX.AX

RVR.AX

ROG.AX

RCP.AX

AEJ.AX

R3D.AX

RCF.AX

RDF.AX

RFX.AX

RDH.AX

RDS.AX

REH.AX

RLC.AX

RCT.AX

RFN.AX

RGP.AX

RER.AX

RGU.AX

RGS.AX

REX.AX

REG.AX

RRL.AX

RNS.AX

RNU.AX

RNT.AX

RHS.AX

RAP.AX

RTT.AX

RMD.AX

RSG.AX

RHT.AX

RBX.AX

RDG.AX

RES.AX

RMI.AX

REZ.AX

RSH.AX

RFG.AX

RVA.AX

REF.AX

RWD.AX

RXH.AX

RXM.AX

REY.AX

RNO.AX

RHP.AX

RIS.AX

RIL.AX

RIC.AX

RIE.AX

RVY.AX

RIM.AX

RIO.AX

RRR.AX

RMT.AX

RMG.AX

RNI.AX

RNY.AX

RIG.AX

RXL.AX

RWH.AX

RCO.AX

RTG.AX

RUB.AX

RFL.AX

RUM.AX

RTR.AX

RUL.AX

RFF.AX

RHL.AX

RXP.AX

RYD.AX

S2R.AX

SBR.AX

SGC.AX

SRH.AX

SAN.AX

SAI.AX

SLM.AX

SO4.AX

SSN.AX

SFR.AX

SNC.AX

SMI.AX

STO.AX

SAR.AX

SND.AX

SYA.AX

SCG.AX

SCW.AX

SCA.AX

SFC.AX

SIE.AX

SGZ.AX

SDI.AX

SFG.AX

SLK.AX

SES.AX

SAJ.AX

SAC.AX

SDM.AX

SEK.AX

SEG.AX

SHV.AX

SEN.AX

SXY.AX

SEQ.AX

HTV.AX

TRQ.AX

REQ.AX

WSC.AX

REK.AX

RDA.AX

WSH.AX

WSJ.AX

WSN.AX

WSO.AX

RFA.AX

RFB.AX

HTB.AX

WSQ.AX

WSD.AX

WSZ.AX

WEK.AX

WEJ.AX

SRV.AX

SSM.AX

SVW.AX

SWM.AX

SWL.AX

SGF.AX

SRO.AX

SRR.AX

SFX.AX

SHU.AX

SHJ.AX

SHP.AX

SCP.AX

SHH.AX

SHM.AX

SBU.AX

SSL.AX

SIP.AX

SIH.AX

SLX.AX

SIV.AX

SCI.AX

SLR.AX

SVL.AX

SVA.AX

SIO.AX

SGM.AX

SAO.AX

SEH.AX

SLE.AX

SNV.AX

SRI.AX

SCY.AX

SRX.AX

SIT.AX

SAM.AX

SKN.AX

SKT.AX

SKC.AX

SKB.AX

SKF.AX

SGH.AX

SAB.AX

SSE.AX

SMT.AX

SPZ.AX

SIQ.AX

SMP.AX

SMA.AX

SOP.AX

SMX.AX

SOI.AX

SXS.AX

SOM.AX

SHL.AX

SMG.AX

SFZ.AX

SAY.AX

SXI.AX

SPB.AX

S32.AX

SXE.AX

SXX.AX

SXL.AX

SWR.AX

SAU.AX

SUH.AX

SOC.AX

SVM.AX

SKI.AX

SPK.AX

STW.AX

SLF.AX

SFY.AX

SFH.AX

SPX.AX

SDA.AX

SPH.AX

SRS.AX

SPI.AX

SFI.AX

SPO.AX

SFL.AX

SIX.AX

STS.AX

SBM.AX

SGQ.AX

SFN.AX

SMR.AX

SRT.AX

STL.AX

SPL.AX

SVY.AX

SDF.AX

SST.AX

SRZ.AX

SCU.AX

SBI.AX

STI.AX

SGP.AX

SKS.AX

SHK.AX

SHE.AX

SWJ.AX

SRY.AX

STA.AX

SXA.AX

SOR.AX

SER.AX

SMC.AX

SGO.AX

STX.AX

SRK.AX

SMN.AX

SGN.AX

SZG.AX

SGU.AX

SUD.AX

SUM.AX

SNZ.AX

SMM.AX

SUR.AX

SNY.AX

SBB.AX

SUN.AX

SBK.AX

SEA.AX

SDL.AX

SDG.AX

SVS.AX

SUL.AX

SPQ.AX

SLC.AX

SNL.AX

SRF.AX

SWE.AX

SWK.AX

SYD.AX

SMD.AX

SNR.AX

SYS.AX

SYR.AX

TAH.AX

TAG.AX

TKG.AX

TLG.AX

TLM.AX

TPD.AX

TMK.AX

TWD.AX

TAM.AX

TRL.AX

TAP.AX

TEX.AX

TAR.AX

TFL.AX

TAS.AX

TMM.AX

TGR.AX

TTS.AX

TAW.AX

TMP.AX

TCN.AX

TNE.AX

TLS.AX

TPW.AX

TGG.AX

TPP.AX

TEN.AX

TGZ.AX

TER.AX

TMX.AX

TZN.AX

TNT.AX

TES.AX

TFC.AX

A2M.AX

CJC.AX

CGL.AX

PGR.AX

TRS.AX

SGR.AX

WCC.AX

TNK.AX

TSM.AX

THO.AX

TMZ.AX

THR.AX

TGA.AX

TOP.AX

TPS.AX

THX.AX

TPO.AX

TGS.AX

TIG.AX

TML.AX

TPR.AX

TIS.AX

TTN.AX

TOU.AX

TNG.AX

TOM.AX

TND.AX

TBH.AX

TTW.AX

TNR.AX

TOE.AX

TRB.AX

TRP.AX

TRK.AX

TOA.AX

TNB.AX

TNF.AX

TNH.AX

TOZ.AX

TNJ.AX

TFG.AX

TCH.AX

TWR.AX

TOX.AX

TPC.AX

TPM.AX

TPE.AX

TRC.AX

TME.AX

TTC.AX

TTI.AX

TKL.AX

TSN.AX

TSV.AX

TCO.AX

TPI.AX

TCL.AX

XVG.AX

TWE.AX

TEG.AX

TBR.AX

TNP.AX

TON.AX

TRY.AX

TRM.AX

TAU.AX

TTA.AX

TTE.AX

TUP.AX

TGN.AX

TWH.AX

TYK.AX

TYX.AX

TDX.AX

TZL.AX

UCW.AX

UGL.AX

UIL.AX

UUL.AX

UNS.AX

UOS.AX

UML.AX

UPG.AX

UBI.AX

UNV.AX

UPD.AX

UEQ.AX

URI.AX

USA.AX

UBN.AX

USH.AX

URF.AX

USR.AX

USF.AX

USG.AX

UCM.AX

UXA.AX

UXC.AX

VXL.AX

VMX.AX

VAN.AX

VAR.AX

VMG.AX

VEL.AX

VEC.AX

VBS.AX

VED.AX

VPC.AX

VRX.AX

VMS.AX

VXR.AX

VMC.AX

VIA.AX

VCX.AX

VIG.AX

VIC.AX

VIE.AX

VII.AX

VKA.AX

VLW.AX

VRL.AX

VMY.AX

VLA.AX

VAH.AX

VRT.AX

VGL.AX

VTG.AX

VSC.AX

VIT.AX

VML.AX

VMT.AX

VET.AX

VOC.AX

VTM.AX

VIP.AX

VGR.AX

VTX.AX

WKT.AX

WAA.AX

WAM.AX

WAX.AX

WGO.AX

WCB.AX

SOL.AX

WRG.AX

WAT.AX

WMK.AX

WTP.AX

WAL.AX

WCP.AX

WDS.AX

WEF.AX

WDE.AX

WEB.AX

WBA.AX

WLD.AX

WLL.AX

WES.AX

WAF.AX

WPI.AX

WWI.AX

WSA.AX

WMN.AX

WFD.AX

WIC.AX

WBC.AX

WCT.AX

WCN.AX

WEC.AX

WRM.AX

WHF.AX

WHC.AX

WHN.AX

WAC.AX

WIG.AX

WEL.AX

WVL.AX

WIN.AX

WFE.AX

WLF.AX

WOF.AX

WSG.AX

WLC.AX

WMC.AX

WPL.AX

WOW.AX

WRR.AX

WTR.AX

WNS.AX

WOR.AX

WPG.AX

XAM.AX

XIP.AX

XRO.AX

XPD.AX

XRF.AX

XST.AX

XTD.AX

XTE.AX

XTV.AX

YAL.AX

YCN.AX

YHL.AX

YBR.AX

YNB.AX

YOW.AX

YPB.AX

ZNZ.AX

ZAM.AX

ZRL.AX

ZGM.AX

ZNC.AX

ZTA.AX

ZER.AX

ZEU.AX

ZGL.AX

ZIM.AX

ZML.AX

ZIP.AX

ZYL.AX

<colgroup><col></colgroup><tbody>
</tbody>

 

[Jimmywinvests]

Will the document be easily edited once completed? for example, removing the share price range to show a single number, replacing the letters of million / billion as a whole number for?
Not trying to be picky, I just don't want your hard work to go to waste

 

[Jimmywinvests]

*I just noticed something missing. the second last on the list which says "operating", is supposed to be "operating profit margin".. apologies!

 

[michaelsmith559]

Which one of these is it for "operating profit margin"?

Excel 2012
	A	B
19	Profitability
20	Profit Margin (ttm):	16.16%
21	Operating Margin (ttm):	25.19%
Key Statistics

 

[Jimmywinvests]

Operating Margin (A21), my friend

 

[michaelsmith559]

Set up the sheets like in post#3. Remember to change the column heading in columnL to "operating profit margin". Also list your companies from post#4 in column a row 2 of sheet"final summary". Here is a small screenshot of that sheet followed by the macro. I need you to run the macro to make sure it works. It will probably take a couple of hours to run.

Excel 2012
	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Company	Share Price	Market Cap	Cash & Cash Equivalents	Cash Short Term Investments	Cash Operating Activities	Capital Expenditures	Shares Outstanding	Return on Equity	Revenue Growth Rate	Total Debt	Operating Profit Margin	Forward PE Ratio
2	1PG.AX
3	ONT.AX
4	1ST.AX
5	TGP.AX
6	TIX.AX
7	TOF.AX
8	TOT.AX
9	3DM.AX
10	TDO.AX
11	DDD.AX
12	3PL.AX
13	4DS.AX
14	88E.AX
15	8CO.AX
16	8IH.AX
17	8EC.AX
18	NNW.AX
19	ACB.AX
20	AYC.AX
Final Summary

Sub DynamicURL()
Dim lastRow As Long, r As Long
Dim url As String
Dim symbol As String

lastRow = Sheets("Final Summary").Range("A" & Rows.Count).End(xlUp).Row
symbol = Sheets("Final Summary").Range("A" & lastRow)
If lastRow = Rows.Count Then Exit Sub
Application.ScreenUpdating = False

For r = 2 To lastRow
pctComp = (r / lastRow) * 100
Application.StatusBar = "Percent Completed: " & Format(pctComp, "000.00%")
Application.Wait Now + TimeValue("00:00:01")
    Sheets("Summary").Activate
    With Sheets("Summary")
    url = "URL;https://au.finance.yahoo.com/q?s="
    url = url & symbol
    Sheets("Summary").UsedRange.Delete Shift:=xlToLeft
    End With
        With Sheets("Summary").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "q?s=TLS.AX_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """table1"",""table2"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("B" & r) = Sheets("Summary").Range("B9")
        Sheets("Final Summary").Range("C" & r) = Sheets("Summary").Range("B13")
        If r <> lastRow Then
           Sheets("Summary").UsedRange.Delete Shift:=xlToLeft
        Else
        End If
    End With
    
    With Sheets("Balance Sheet")
    url = "URL;https://au.finance.yahoo.com/q/bs?s="
    url = url & symbol
    Sheets("Balance Sheet").UsedRange.Delete Shift:=xlToLeft
    End With
        Sheets("Balance Sheet").Activate
        With Sheets("Balance Sheet").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "bs?s=TLS.AX"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "9"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("D" & r) = Sheets("Balance Sheet").Range("C5")
        Sheets("Final Summary").Range("E" & r) = Sheets("Balance Sheet").Range("C6")
        If r <> lastRow Then
           Sheets("Balance Sheet").UsedRange.Delete Shift:=xlToLeft
        Else
        End If
    End With
    
    With Sheets("Cash Flow")
    url = "URL;https://au.finance.yahoo.com/q/cf?s="
    url = url & symbol & "&annual"
    Sheets("Cash Flow").UsedRange.Delete Shift:=xlToLeft
    End With
        Sheets("Cash Flow").Activate
        With Sheets("Cash Flow").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "cf?s=TLS.AX&annual"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "8"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("F" & r) = Sheets("Cash Flow").Range("C12")
        Sheets("Final Summary").Range("G" & r) = Sheets("Cash Flow").Range("C15")
        If r <> lastRow Then
           Sheets("Cash Flow").UsedRange.Delete Shift:=xlToLeft
        Else
        End If
    End With
    
    With Sheets("Key Statistics")
    url = "URL;https://au.finance.yahoo.com/q/ks?s="
    url = url & symbol
    Sheets("Key Statistics").UsedRange.Delete Shift:=xlToLeft
    End With
        Sheets("Key Statistics").Activate
        With Sheets("Key Statistics").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "ks?s=TLS.AX_2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "7,9,10,12,14,16,18,20,22,26,28,30"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("H" & r) = Sheets("Key Statistics").Range("B61")
        Sheets("Final Summary").Range("I" & r) = Sheets("Key Statistics").Range("B25")
        Sheets("Final Summary").Range("J" & r) = Sheets("Key Statistics").Range("B30")
        Sheets("Final Summary").Range("K" & r) = Sheets("Key Statistics").Range("B40")
        Sheets("Final Summary").Range("L" & r) = Sheets("Key Statistics").Range("B21")
        Sheets("Final Summary").Range("M" & r) = Sheets("Key Statistics").Range("B6")
         If r <> lastRow Then
           Sheets("Key Statistics").UsedRange.Delete Shift:=xlToLeft
        Else
        End If
    End With
    
Next r

    Sheets("Final Summary").Activate
    UsedRange.Select
    Selection.HorizontalAlignment = xlCenter
    Range("A1").Select
    
Application.ScreenUpdating = True
Application.StatusBar = False

End Sub

 

[michaelsmith559]

Sorry, need to correct the code above for the pctComp. Here is the new code:

Sub DynamicURL()
Dim lastRow As Long, r As Long
Dim url As String
Dim symbol As String

Application.StatusBar = False
lastRow = Sheets("Final Summary").Range("A" & Rows.Count).End(xlUp).Row
symbol = Sheets("Final Summary").Range("A" & lastRow)
If lastRow = Rows.Count Then Exit Sub
Application.ScreenUpdating = False

For r = 2 To lastRow
pctComp = (r / lastRow)
Application.StatusBar = "Percent Completed: " & Format(pctComp, "000.00%")
Application.Wait Now + TimeValue("00:00:01")

    Sheets("Summary").Activate
    With Sheets("Summary")
    url = "URL;https://au.finance.yahoo.com/q?s="
    url = url & symbol
    Sheets("Summary").UsedRange.Delete Shift:=xlToLeft
    End With
        With Sheets("Summary").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "q?s=TLS.AX_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """table1"",""table2"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("B" & r) = Sheets("Summary").Range("B9")
        Sheets("Final Summary").Range("C" & r) = Sheets("Summary").Range("B13")
        If r <> lastRow Then
           Sheets("Summary").UsedRange.Delete Shift:=xlToLeft
        Else
        End If
    End With
    
    With Sheets("Balance Sheet")
    url = "URL;https://au.finance.yahoo.com/q/bs?s="
    url = url & symbol
    Sheets("Balance Sheet").UsedRange.Delete Shift:=xlToLeft
    End With
        Sheets("Balance Sheet").Activate
        With Sheets("Balance Sheet").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "bs?s=TLS.AX"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "9"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("D" & r) = Sheets("Balance Sheet").Range("C5")
        Sheets("Final Summary").Range("E" & r) = Sheets("Balance Sheet").Range("C6")
        If r <> lastRow Then
           Sheets("Balance Sheet").UsedRange.Delete Shift:=xlToLeft
        Else
        End If
    End With
    
    With Sheets("Cash Flow")
    url = "URL;https://au.finance.yahoo.com/q/cf?s="
    url = url & symbol & "&annual"
    Sheets("Cash Flow").UsedRange.Delete Shift:=xlToLeft
    End With
        Sheets("Cash Flow").Activate
        With Sheets("Cash Flow").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "cf?s=TLS.AX&annual"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "8"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("F" & r) = Sheets("Cash Flow").Range("C12")
        Sheets("Final Summary").Range("G" & r) = Sheets("Cash Flow").Range("C15")
        If r <> lastRow Then
           Sheets("Cash Flow").UsedRange.Delete Shift:=xlToLeft
        Else
        End If
    End With
    
    With Sheets("Key Statistics")
    url = "URL;https://au.finance.yahoo.com/q/ks?s="
    url = url & symbol
    Sheets("Key Statistics").UsedRange.Delete Shift:=xlToLeft
    End With
        Sheets("Key Statistics").Activate
        With Sheets("Key Statistics").QueryTables.Add(Connection:= _
        url, Destination:=Range("$A$1"))
        .Name = "ks?s=TLS.AX_2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "7,9,10,12,14,16,18,20,22,26,28,30"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        Sheets("Final Summary").Range("H" & r) = Sheets("Key Statistics").Range("B61")
        Sheets("Final Summary").Range("I" & r) = Sheets("Key Statistics").Range("B25")
        Sheets("Final Summary").Range("J" & r) = Sheets("Key Statistics").Range("B30")
        Sheets("Final Summary").Range("K" & r) = Sheets("Key Statistics").Range("B40")
        Sheets("Final Summary").Range("L" & r) = Sheets("Key Statistics").Range("B21")
        Sheets("Final Summary").Range("M" & r) = Sheets("Key Statistics").Range("B6")
         If r <> lastRow Then
           Sheets("Key Statistics").UsedRange.Delete Shift:=xlToLeft
        Else
        End If
    End With
    
Next r

    Sheets("Final Summary").Activate
    UsedRange.Select
    Selection.HorizontalAlignment = xlCenter
    Range("A1").Select
    
Application.ScreenUpdating = True
Application.StatusBar = False

End Sub