Instead of searching for the NAVs of all my funds at MyIRIS or MutualFundsIndia, I have developed a small excel sheet which will fetch the values for me and displays the current portfolio value at the click of a button. Here I am trying to share the “HOWTO” of the same.
- Create an excel workbook with 2 sheets. Call one as “NAVs” and the other as “Portfolio”.
- In the NAVs sheet, click at one of the top-left cells (I did on A2), and go to Data -> Import External Data -> New Web Query. [For more information on using Web Queries, visit Using Web Queries to Import Data to Excel @ R1C1.
- Now paste the url http://finance.indiamart.com/markets/mutual_funds/latest_mf_navs.html in Address box and press go. You would see something like this.
Say “Import”. Essentially what you have done is, creating an automatically updatable NAV list in the NAVs sheet. - Now select all Schemes in the imported table and define a named range as “fund_names” for it. [Creating Named Ranges in Excel]
- Now, go to “Portfolio” sheet and create a table like this.
[Click on it to Zoom] - Next select the Fundname column (I have 32 rows, you can have as many as you wish) and go to Data->Validation. Enter the settings like this.
- Formulas:
>>> For Purchase Value[f3]: “=e3*d3”
>>> For Current Value[h3]: “=g3*d3”
>>> For Current NAV[g3]: “=IF(C3=””,0,VLOOKUP(C3,NAVs!$A$6:$D$1634,3,FALSE))”
essentially, looking up for the selected fund name in the NAVs sheet and returning the exact NAV to this cell only if a fund name is selected.
>>> Gain / Loss[i3]: “=IF(ISERROR((H3-F3)/F3),””,(H3-F3)/F3)”
to avoid DIV 0 messages. - At the end of the table you can add a TOTAL row and repeat the necessary formulas to get the total portfolio performance.
- Now the portfolio tracker is done. Enter the fund data by selecting the fund name from drop down and number of units purchased, purchase NAV. Rest will be shown by the tracker.
- Remember: everytime you open the workbook, go to “NAVs” sheet and refresh the data. [Select anywhere in the table, right click and say Refresh Data]
Now this is a very basic portfolio tracker. I am thinking of adding some VBA / Macro so that everytime the table is refreshed, the new values are written in a separate sheet called “Historical NAV” so that we can track the fund performance over a period of time by selecting a date (instead of current date). Also, if we can import benchmark indices on runtime, you can get relative performance metrics. Plus, some more analysis of fund performances (instead of mere total return) would reveal the risk-returns of the portfolio. Lets see if I can build such a thing in my spare time.
[Just in case you do not have time for all this, then you can access the workbook that I have created here: Portfolio Manager MFs India ]
6 Responses to “Make VBA String Comparisons Case In-sensitive [Quick Tip]”
Another way to test if Target.Value equal a string constant without regard to letter casing is to use the StrCmp function...
If StrComp("yes", Target.Value, vbTextCompare) = 0 Then
' Do something
End If
That's a cool way to compare. i just converted my values to strings and used the above code to compare. worked nicely
Thanks!
In case that option just needs to be used for a single comparison, you could use
If InStr(1, "yes", Target.Value, vbTextCompare) Then
'do something
End If
as well.
Nice tip, thanks! I never even thought to think there might be an easier way.
Regarding Chronology of VB in general, the Option Compare pragma appears at the very beginning of VB, way before classes and objects arrive (with VB6 - around 2000).
Today StrComp() and InStr() function offers a more local way to compare, fully object, thus more consistent with object programming (even if VB is still interpreted).
My only question here is : "what if you want to binary compare locally with re-entering functions or concurrency (with events) ?". This will lead to a real nightmare and probably a big nasty mess to debug.
By the way, congrats for you Millions/month visits 🙂
This is nice article.
I used these examples to help my understanding. Even Instr is similar to Find but it can be case sensitive and also case insensitive.
Hope the examples below help.
Public Sub CaseSensitive2()
If InStr(1, "Look in this string", "look", vbBinaryCompare) = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub
Public Sub CaseSensitive()
If InStr("Look in this string", "look") = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub
Public Sub NotCaseSensitive()
'doing alot of case insensitive searching and whatnot, you can put Option Compare Text
If InStr(1, "Look in this string", "look", vbTextCompare) = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub