This is a guest post by Daniel Ferry of Excelhero.com.
Have you ever wanted to fetch live stock quotes from excel? In this post we will learn about how to get stock quotes for specified symbols using macros.
One method that has worked well for my clients can be implemented with just a few lines of VBA code. I call it the ActiveRange.
An ActiveRange is an area on a worksheet that you define by simply entering the range address in a configuration sheet. Once enabled, that range becomes live in the sense that if you add or change a stock symbol in the first column of the range, the range will automatically (and almost instantly) update. You can specify any of 84 information attributes to include as columns in the ActiveRange. This includes things such as Last Trade Price, EBITDA, Ask, Bid, P/E Ratio, etc. Whenever you add or change one of these attributes in the first row of the ActiveRange, the range will automatically update as well.
Sound interesting, useful?
In this post, you can learn how to use excel macros to fetch live stock quotes from Yahoo! Finance website. It is also going to be a crash course in VBA for the express purpose of learning how the ActiveRange method works so that you can use it yourself.
Download Excel Stock Quotes Macro:
Click here to download the excel stock quotes macro workbook. It will be much easier to follow this tutorial if you refer to the workbook.
Background – Understanding The Stock Quotes Problem:
The stock information for the ActiveRange will come from Yahoo Finance. A number of years ago, Yahoo created a useful interface to their stock data that allows anyone at anytime to enter a URL into a web browser and receive a CSV file containing current data on the stocks specified in the URL. That’s neat and simple.
But it gets a little more complicated when you get down to specifying which attributes you want to retrieve [information here]. Remember there are 84 discreet attributes available. Under the Yahoo system, each attribute has a short string Tag Code. All we need to do is to concatenate the string codes for each attribute we want and add the resulting string to the URL. We then need to figure out what to do with the CSV file that comes back.
Our VBA will take care of that and manage the ActiveRange. Excel includes the QueryTable as one of its core objects, and it is fully addressable from VBA. We will utilize it to retrieve the data we want and to write those data to the ActiveRange.
Before we start the coding we need to include two support sheets for the ActiveRange. The first is called “YF_Attribs”, and as the name implies is a list of the 84 attributes available on Yahoo Finance along with their Yahoo Finance Tag Codes. The second sheet is called, “arConfig_xxxx” where xxxx is the name of our sheet where the ActiveRange will reside. It contains some configurable information about the ActiveRange which our VBA will use.
All of the VBA code for this project will reside inside of the worksheet module for the sheet where we want our ActiveRange to be. For this tutorial, I called the sheet, “DEMO”.
Writing the Macros to Fetch Stock Quotes:
Press ALT-F11 on your keyboard, which will open the VBE. Double click on the DEMO sheet in the left pane. We will enter out code on the right. To begin with, enter these lines:
Private rnAR_Dest As Range
Private rnAR_Table As Range
Private stAR_ConfigSheetName As String
Always start a module with Option Explicit. It forces you to define your variable types, and will save you untold grief at debugging time. In VBA each variable can be one of a number of variable types, such as a Long or a String or a Double or a Range, etc. For right now, don’t worry too much about this – just follow along.
Sidebar on Variable Naming Conventions
Variable names must begin with a letter. Everyone and their brother seems to have a different method for naming variables. I like to prefix mine with context. The first couple of letters are in lower case and represent the type of the variable. This allows me to look at the variable anywhere it’s used and immediately know its type. In this project I’ve also prefaced the variables with “AR_” so that I know the variable is related to the ActiveRange implementation. In larger projects this would be useful. After the underscore, I include a description of what the variable is used for. That’s my method.
In the above code we have defined three variables and their types. Since these are defined at the top of a worksheet module, they will be available to each procedure that we define in this module. This is known as scope. In VBA, variables can have scope restricted to a procedure, to a module (as we have done above), or they can be global in scope and hence available to the entire program, regardless of module. Again we are putting all of the code for this project in the code module of the DEMO worksheet. Every worksheet has a code module. Code modules can also be added to a workbook that are not associated with any worksheet. UserForms can be added and they have code modules as well. Finally, a special type of code module, called a class module, can also be added. Any global variables would be available to procedures in all of these. However, it is good practice to always limit the scope of your variables to the level where you need them.
In that vein, notice that the three variables above are defined with the word Private. This specifically restricts their scope to this module.
Every worksheet module has the built-in capability of firing off a bit of code in response to a change in any of the sheet’s cell values. This is called the Worksheet_Change event. If we select Worksheet from the combo box at the top and Change in the other combo box, the VBE will kindly define for us a new procedure in this module. It will look like this:
End Sub
Notice that by default this procedure is defined as Private. This is good and as a result the procedure will not show up as a macro. Notice the word Target near the end of the first line. This represents the range that has been changed. Place code between these two lines so that the entire procedure now looks like this:
The Heart of our Excel Stock Quotes Code – Worksheet_Change()
ActivateRange
If Worksheets(stAR_ConfigSheetName).[ar_enabled] Then
If Intersect(Target, rnAR_Dest) Is Nothing Then Exit Sub
If Target.Column <> rnAR_Dest.Column And Target.Row <> rnAR_Dest.Row Then
PostProcessActiveRange
Exit Sub
End If
ActiveRangeResponse
End If
End Sub
That may look like a handful but it’s really rather simple. Let’s step through it. The first line is ActivateRange. This is the name of another sub-procedure that will be defined in a moment. This line just directs the program to run that sub, which provides values to the three variables we defined at the top. Again, since those variables were defined at the top of the module, their values will be available to all procedures in the module. The ActivateRange procedure gives them values.
Next we see this odd looking fellow:
If Intersect(Target, rnAR_Dest) Is Nothing Then Exit Sub
All this does is check to see if the Target (the cell that was changed on the worksheet) is part of our ActiveRange. If it is the procedure continues. If it’s not, the procedure is exited.
The next line checks to see if the cell that was changed is in the first column or first row of the ActiveRange. If it is, the post processing is skipped. If the change is any other part of the ActiveRange, another sub-procedure (defined below) is run to do some post processing of the retrieved data, and then exits this procedure.
If the cell that changed was in the first column or the first row, the program runs another sub-procedure, called ActiveRangeResponse, which is also defined below. ActiveRangeResponse builds the URL for YF, deletes any previous QueryTables related to the ActiveRange, and creates a new QueryTable as specified in our configuration sheet.
That’s it. The heart of the whole program resides here in the Worksheet_Change event procedure. It relies on a number of other subprocedures, but this is the whole program. When a change is made in the ActiveRange’s first column (stock symbols) or its first row (stock attributes), ActiveRangeResponse runs and our ActiveRange is updated.
Understanding other sub-procedures that help us get the stock quotes:
So let’s look at those supporting subprocedures. The first is ActivateRange:
stAR_ConfigSheetName = “arConfig_” & Me.Name
Set rnAR_Dest = Me.Range(Worksheets(stAR_ConfigSheetName).[ar_range].Value)
Set rnAR_Table = rnAR_Dest.Resize(1, 1).Offset(1, 1)
Worksheets(stAR_ConfigSheetName).[ar_YFAttributes] = GetCurrentYahooFinancialAttributeTags
End Sub
Again, all this does is give values to our three module level variables. In addition it builds the concatenated string of YF Tag Codes required for the URL. It does this by calling a function that I’ve defined at the very bottom of the module, called GetCurrentYahooFinancialAttributeTags.
The next subprocedure is ActiveRangeResponse:
Dim vArr As Variant
Dim stCnx As String
Const YAHOO_FINANCE_URL = “http://finance.yahoo.com/d/quotes.csv?s=[SYMBOLS]&f=[ATTRIBUTES]”
vArr = Application.Transpose(rnAR_Dest.Resize(rnAR_Dest.Rows.Count – 1, 1).Offset(1))
stCnx = Replace(YAHOO_FINANCE_URL, “[SYMBOLS]”, Replace(WorksheetFunction.Trim(Join(vArr)), ” “, “+”))
stCnx = Replace(stCnx, “[ATTRIBUTES]”, Worksheets(stAR_ConfigSheetName).[ar_YFAttributes])
AddQueryTable rnAR_Table.Resize(UBound(vArr)), “URL;” & stCnx
End Sub
Notice that here we have variables defined at the top of this procedure and consequently their scope is limited to this procedure only. This means that we could have the same variable names defined in other procedures but those variables would not be related to these and would have completely different values.
Next notice that we have defined a constant. This is good practice, as it forces us to specify what the constant value is by naming the constant. I could have just used the value where I later use the constant, but then the question arises as to what is this value and where did it come from. Here I have named the value, YAHOO_FINANCE_URL, removing all doubt as to its purpose.
The next line is this:
vArr = Application.Transpose(rnAR_Dest.Resize(rnAR_Dest.Rows.Count - 1, 1).Offset(1))
and it deserves some explanation. Let me back up by saying that whenever we write or read multiple cells from a worksheet we should always try to do it in one go, rather than one cell at a time. The more cells involved the more important this is. Otherwise we pay a massive penalty in processing time. One of the best optimization techniques available is to replace code that loops through cell reads/writes and replace it with code that reads/writes all the cells at once. It can literally be hundreds to thousands of times faster.
Here we are interested in getting the list of all of the stock symbols in the first column of the ActiveRange. So how do we get them in one shot? We use something called a variant array. Notice that we defined vArr at the top of this procedure. A variant array is a special kind of variable that holds a list of values and it DOES NOT CARE what variable types those values are. This is important when retrieving data from a sheet because the data could be numbers, text, Boolean (True or False), etc. Variants are powerful, but they are much slower than other variable types, such as a Long for numeric data for example. However, in the case of retrieving or writing large chunks of data from/to a sheet the slight penalty of the variant is dwarfed by the massive increase in the speed of data transfer.
It’s very simple to retrieve range data (regardless of the size) into a variant array. All you do is:
v = range
where v is defined as a variant and range is any VBA reference to a worksheet range. And magically all of the values in that range are now in v. Note that v is not connected to the range. A change in any of v’s values does not propogate back to the range, and likewise a change to the range does not make it’s way to v all by itself. v will ALWAYS be a two-demensional array. The first dimension is the index of the rows, the second dimension is the index of the columns. So v(1,1) will refer to the value that came from the top left cell in the range. v(6,9) will hold the value that came from the cell in the range at row 6 and column 9.
For most circumstances this two-dimensional format is fine. But we are only retrieving one column of stock symbols. The procedure will still give us a two-dimensional array, with the column dimension being only 1 element wide. This is a shame because VBA has a wonderful function called Join that allows you in one step (no loop) to concatenate every element of an array into a string. You can even specify a custom string to delimit (go in-between) each element in the output string. The problem is that Join only works on single dimensioned arrays 🙁
But there’s always a way, right? We can use the Application.Transpose method on the 2-D array and presto we get a 1-D array. The rest of the line just specifies what range (the stock symbols) to grab.
The next two lines are:
stCnx = Replace(YAHOO_FINANCE_URL, "[SYMBOLS]", Replace(WorksheetFunction.Trim(Join(vArr)), " ", "+"))
stCnx = Replace(stCnx, "[ATTRIBUTES]", Worksheets(stAR_ConfigSheetName).[ar_YFAttributes])
Again a handful, but all we are doing here is replacing the monikers, [SYMBOLS] and [ATTRIBUTES] in the YAHOO_FINANCE_URL constant with the list of stock symbols (delimited by a plus sign) and the string of attributes.
In the final line of the procedure:
AddQueryTable rnAR_Table.Resize(UBound(vArr)), "URL;" & stCnx
we are running another subprocedure called, AddQueryTable and we are telling it where to place the new QueryTable and providing the connection string for the QueryTable, which in this case is the YF URL that we just built.
Nothing unusual happens in the AddQueryTable sub. It just deletes any existing AR related QueryTables and adds the new one according to the options in the configuration sheet.
The PostProcessActiveRange sub is interesting:
If rnAR_Dest.Columns.Count > 2 Then
Application.DisplayAlerts = False
rnAR_Table.Resize(rnAR_Dest.Rows.Count).TextToColumns Destination:=rnAR_Table, DataType:=xlDelimited, Comma:=True
Application.DisplayAlerts = True
Worksheets(stAR_ConfigSheetName).[ar_LocalTimeLastUpdate] = Now
End If
End Sub
Processing Yahoo Finance Output using Query Table & Text-Import Utility:
As mentioned before the data from YF comes back as a CSV file. The QueryTable dumps this into one column. If you were only retrieving one attribute for each stock this would be fine as is. However, two or more attributes is going to result in unwanted commas and multiple attribute values squished into the first column of the QueryTable output. Unfortunately this is poor design by Microsoft, especially when you consider that the QueryTable does not behave like this when it is retrieving SQL data or opening a Text file from disk. You can actually specify this operation to be a text file and it will properly spread the output over all of the columns. To do so, you specify the disk location as being the URL of the YF CSV file, but as Murphy would have it, it’s unbelievably slow and pops up a status dialog as it slowly retrieving the CSV. Using the URL instruction instead of the TEXT instruction at the beginning of the connection string is incredibly fast in comparison, but dumps all of the data into the first column.
So what to do? We’ll just employ Excel’s built-in TextToColumns capability and bam, our data is where we want it.
Our finalized stock quotes fetcher worksheet should look like this:
Download Excel Stock Quotes Macro:
Click here to download the excel stock quotes macro workbook. It will be much easier to follow this tutorial if you refer to the workbook.
Final Thoughts on Excel Stock Quotes
The ActiveRange technique is quite versatile. It can be implemented with other data sources such as SQL, or even lookups to other Excel files, or websites.
In this example it provides a nice way to easily track whatever stocks you may have interest in and up to 84 different attributes of those stocks. You can enable and disable the activeness of the ActiveRange on the fly. You can set the AR to AutoRefresh the data at periods that you set or to not refresh at all.
This is a basic implementation. For example, changing the AutoRefresh setting will have no effect until a new QueryTable is built. That won’t happen until you also add or change a stock symbol or add or change an attribute. An easy enhancement would be to add a little code to the arConfig_DEMO code module to respond to changes to the ar_AutoRefresh named range cell.
Another enhancement would be to eliminate the slight flicker of the update by moving the QueryTable destination to the arConfig_DEMO and then doing the TextToColumns with the destination set to the DEMO sheet. In an effort to simplify this tutorial I have left these easy enhancements as an exercise for you to implement.
Have a question or doubt? Please Ask
Do you have any questions or doubts on the above technique? Have you used ActiveRange or similar implementations earlier? What is your experience? Please share your thoughts / questions using comments.
I read Chandoo.org regularly and will be monitoring the post for questions. But you can also reach me at my blog:
Further References & Help on Excel Stock Quotes [Added by Chandoo]
- Fetching Stock Quotes using Research Pane
- Stock Portfolio Tracker using Google Docs
- QueryTable Object Model & Properties
- Using QueryTable to Generate Dynamic Reports
- Yahoo Finance API Documentation & Example
Excel Hero is dedicated to expanding your notion of what is possible in MS Excel and to inspiring you to become an Excel Hero at your workplace. It has many articles and sample workbooks on advanced Excel development and advanced Excel charting.
53 Responses to “Conditionally play sounds when a cell value changes”
There is another alternative of doing this quite easily: Yes, Excel is able to talk to you!
Assume you are having a calculated or otherwise changing value in cell A1 (e.g. =RANDBETWEEN(0,100)), a threshold in cell B1 (e.g. 50) and a text in cell C1 (e.g. "Threshold exceeded").
Go to the VBA-editor (ALT-F11) and copy the the following procedure into the corresponding sheet:
Private Sub Worksheet_Calculate()
If Range("A1").Value > Range("B1").Value Then
Application.Speech.Speak (Range("C1").Value)
End If
End Sub
Excel will read the text in cell C1, whenever the value in cell A1 is large than the threshold in cell B1. Turn your speakers on and play with cell C1. It sounds a bit funny sometimes, especially when you try to make Excel read texts in other languages than English. But it works...
I'm trying to use UDF and the speech aspect. I want a cell to calculate character total and when it reaches a limit it will speak the value. For some reason I can't get any UDF to show up in the list or work. I've tried simple ones such as:
Function BeepOnce()
Beep
End Function
with: =If (B3>30, BeepOnce(),"") in the cell but it gives errors. Confused.
When a cel char count reaches 30 and I'm typin gfast, it will report the number.
Im a blind writer and this would be very helpful. I can't get any to work though. Can't get any UDF to show up anywhere.
I tried keying in the code exactly as you have:
Private Sub Worksheet_Calculate()
If Range("cx15").Value > Range("cy15").Value Then
Application.Speech.Speak (Range("cz15").Value)
End If
End Sub
When I try to run the condition, I get a compliation error.
The formula in my excel spreadsheet in cx 15 is: =IF(CO15>120,1,0)
cy 15 = 0
cz 15 = "Less than 120 days"
I'm driving myself crazy - HELP!!
@Mary
The code you supplied and below works as it should in Excel 2007
===
Sub Worksheet_Calculate()
If Range("CX15").Value > Range("CY15").Value Then
Application.Speech.Speak (Range("CZ15").Value)
End If
End Sub
===
There are 2 reasons it maynot be working
1. Make sure it is on a Worksheet Object in VBA for the page you are working on not in a general code module
2. Make sure the " characters are real, often you can copy and paste text from here and although the " mark look ok, they are not the correct characters, If it isn't working retype them all
Hi Hui,
The SPeech VBA is working...but it reacts to all the changes that is taking place in various cells in the sheet. I need this speech vba to react to only when changes happen in a particular cell (A1) and particular sheet...is there a vba that can help me find a solution. Thanks in advance for your assistance.
@Anil
Some of the comments above discuss that requirement
Please read those first
YEAH - thanks so much Hui. I had it in the general code module.
Another question?
Can I have this function check a range of cells in Excel?
The code as it is now is checking cells CX15, CY15 and CZ15
I need it to check from rows 15 - 45?
@Mary
Sub Worksheet_Calculate()
Dim myText as String
For Each c In Range("CX15:CX45")
If c.Value > c.Offset(0, 1).Value Then
myText = "Row" + Str(c.Row) + " " + c.Offset(0, 2).Text
Application.Speech.Speak (myText)
End If
Next
End Sub
I keyed in the code exactly as above and I get a runtime error 1004 - application defined or object defined error.
Sub Worksheet_Calculate()
Dim myText as String
For Each c In Range(”CX15:CX45?)
If c.Value > c.Offset(0, 1).Value Then
myText = “Row” + Str(c.Row) + ” ” + c.Offset(0, 2).Text
Application.Speech.Speak (myText)
End If
Next
End Sub
The formula in my excel spreadsheet in cx 15 is: =IF(CO15>120,0,1)
cy 15 = 0
cz 15 = “Less than 120 days”
The code is in a VBA worksheet - any thoughts as to what I'm doing wrong?
Mary
you need to be very careful copying text of the web
There are times where a character " will copy and look like a " but is in fact not a "
If you have copied the above go through the code and manually replace all the " characters with a " character
Also make sure the code is on the code page for the sheet you are working on, not a code generic module page in VBA
The above string works wonderfully - however, every keystroke in Excel initiates the function. Is there a way I can set it to run on command?
Mary
The following will run whenever there is only a change in the area CX15:CZ45
.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myText As String
Dim TR As Integer
Dim TC As Integer
TR = Target.Row
TC = Target.Column
If TC >= 102 And TC = 15 And TR c.Offset(0, 1).Value Then
myText = "Row" + Str(c.Row) + " " + c.Offset(0, 2).Text
Application.Speech.Speak (myText)
End If
Next
End If
End Sub`
.
Otherwise you can go back to the following code and add a Button or a Shape to your worksheet and link the macro to it so that it only runs when you click on it
.
Sub Speak()
Dim myText As String
For Each c In Range("CX15:CX45")
If c.Value > c.Offset(0, 1).Value Then
myText = "Row" + Str(c.Row) + " " + c.Offset(0, 2).Text
Application.Speech.Speak (myText)
End If
Next
End Sub
Hey Hui,
I came across this site by mistake.
Man this is so COOL.
Will this also work as
Column A has all Names, Column B is Blank.
When a Cell in Column B is not Blank ("") then speak the corresponding name in Column A
It doesn't make any sense to write multiple if-then statements to make it work.
I know I caught this few months late, but I could really use this
Thanks
@Amin
Try the following
Copy and paste it into a Worksheet Module for the Worksheet in VBA you are working on
Hui,
It works but it repeats all name as:
Cell A1=John, A2=David, A3=Lisa.
When Cell B1 is not Blank then is speaks John.
Next when Cell B2 is not Blank it speaks John and David. Second time it should only speak David (fyi B1 and B2 both are not blank)
example: I want it to speak when certain individual logs in. But procedure, when someone logs in it speaks all the people who have already logged in.
how should I change that?
Thanks for assistance.
@Amin
Try this modification
Thanks Hui that worked perfectly.
How do I make it work with 4 sets of columns
Same as before but with 8 columns
Columns(A,C,E,G) have names.
Columns(B,D,F,H) are blank to start with.
I tried to few ideas my way but nothing worked
@Amin
I need a Excel Speaking code for the below condition
If I3 ="Buy Alert" ' If I3 cell has Buy alert Text then, sound should be like " Vivek Buy Alert For Infosys(next cell text) and
If I3 ="Sell Alert" ' If I3 cell has Buy alert Text then, sound should be like " Vivek Sell Alert For Infosys(next cell text)
Please help me to fix this in my excel
This is soo cool. Im looking for a similar thing
Source B1:B200 have an output in Range C1:C200 every cell in the range C1:C200 checks the condition in D1:D200 and with conditional formating change color when value in C1>D1
How can I play a standard windows sound when C1>D1 and another sound when C1<D1
hi hui,
i am a trader in stock market
i can export stock rate to excel sheet from my trading software..
is it possible that when stock rate changes the cell speaks means, e.g.( if stock rate is 25 and if it changes to 26 then cell should speak twenty six,if it further changes to 26.50 it speaks twenty six point fifty)
hope u can understand my problem.
waiting for your reply
@Viral
Have a look at: http://chandoo.org/wp/2008/08/04/play-sound-when-cell-value-changes/
HI
I HAD A LOOK AT YOUR SUGGESTIONS BUT UNABLE TO UNDERSTAND
I AM USING OFFICE 2003,
I TRIED THIS
"""""Assume you are having a calculated or otherwise changing value in cell A1 (e.g. =RANDBETWEEN(0,100)), a threshold in cell B1 (e.g. 50) and a text in cell C1 (e.g. “Threshold exceeded”).
Go to the VBA-editor (ALT-F11) and copy the the following procedure into the corresponding sheet:
Private Sub Worksheet_Calculate()
If Range(“A1?).Value > Range(“B1?).Value Then
Application.Speech.Speak (Range(“C1?).Value)
End If
End Sub""""""
BUT I DON'T UNDERSTAND WHAT TO CALCULATE IN ("C1")?? WHICH RANGE TO BE GIVEN TO ("A1")
BASICALLY I DONT GETTING IT PROPER
WHAT I WANT IS IF LAST TRADED PRICE (LTP) IN CELL CHANGES THE EXCEL SHOULD SPEAK THE VALUE WHICH IS IN THE CELL
MEANS IF LTP IS 26.60 AND IF CHANGES TO 26.70 IT SHOULD SPEAK TWENTY SIX POINT SEVENTY AND IF IT CHANGES FURTHER TO 26.80 IT SHOULD SPEAK TWENTY SIX POINT EIGHTY
PLEASE HELP ME....
I am using the following code for sound. It was working well but has suddenly stopped respondig. Could u help relating to the matter
Private Declare Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) As Long
Function Alarm(Cell, Condition) Dim WAVFile As String Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 On Error GoTo ErrHandler If Evaluate(Cell.Value & Condition) Then WAVFile = ThisWorkbook.Path & "\sound.wav" 'Edit this statement Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) Alarm = True Exit Function End If ErrHandler: Alarm = False End Function
Hey Hui, Great stuff really helpful, Although I am having the same issue as Amin, where any keystroke entered prompts the text to speech. I tried fitting in your fix for Amin but I didn't have success, below is the code I am successfully using, however each keystroke prompts the voice, and the voice lists each cell that qualifies the formula I am using.
Sub Worksheet_Calculate()
Dim myText As String
For Each c In Range("bf4:bf45")
If c.Value = 1 Then
myText = c.Offset(0, -57).Text
Application.Speech.Speak (myText)
End If
Next
End Sub
I tried
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Application.Speech.Speak (Target.Offset(0, -57).Text)
End Sub
any Mods to limit the speech to only what was most recently qualified?
@Elliot
Try:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 1 And _
Target.Column = 58 And _
Target.Row >= 4 And _
Target.Row <= 45 Then _ Application.Speech.Speak Target.Offset(0, -57).Text End Sub
Hi Hui,
I tried that code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 1 And _
Target.Column = 58 And _
Target.Row >= 4 And _
Target.Row
Thanks
Seems like the previous cut off the rest of my message, anyways above code the object module didnt allow me to step inot it, I keep getting a pinging, while on the same object module I inserted the previous code I had running and it allows me to step in! Confusing.
Thanks.
Hey Hui,
So the code works, I discovered the code does not recognize the column because each cell in the column is an if then formula with a returned value, such as "1" for true "0' for false, it only works when I remove the formula and insert a 1 in a cell, any vba fixes for this, or I can try a temp. workaround.
Hey Hui,
Disregard the above. The code works, however only after I hit enter in the target column, When the column updates by itself the code doesn't fire.
Hi Hui,
Amaze to see all the above information. I hope even I get a solution to my problem.
I am trying to use this excel as a token machine. I have linked up this token sheet with other sheet which shared by four users. If any off the users changes the token number, it gets change in our main display but the problem it doesnt say the token number. WHAT I EXACTLY WANT IS AS THE VALUE GETS CHANGED IN ANYONE OF THIS SPECIFIED CELLS (B4, B5, B6 & B7 THE EXCEL MUST ANNOUNCE THE NUMBER. For example If in cell B4 the number 7 comes, so the excel should tell " TOKEN NUMBER 7", after that in cell B7 is updated 21, so its should again tell as " TOKEN NUMBER 21"... and so on it should keep doing the same.
I hope I get my solution at the earliest.
Thanks
Raj
Dear Sir,
I read your blog, it's very nice. I am a trader, & need a help from your side.
If my stock goes below -5.5 % ( column is = L,M,N,O) then it has to automatically change it's color & make a beep sound or alarm. Please write the code for this query.
Thanks in advance,
Warm Regards,
Nagesh
@Nagesh
Try the following
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value < -0.055 And Target.Column >= 12 And Target.Column <= 15 Then Application.Speech.Speak Target.Text Target.Interior.Color = 123456 'Change to suit End If End Sub
hi sir,
i tried your coding today,It works for color and sound didn't come for below -0.055!
but getting the below error
Application.Speech.Speak Target.Text ( it's in yellow color in vb code sheet). Also got error like run time error, application defined or object error! I am using ms excel 2003.
please advice me
@Nagesh
That won't work in 2003
I'll see what options there are tomorrow
It's sleeping time here
ok sir,
See you tommorrow, Sleep tight, sweet dreams, bye
nagesh
@Nagesh
I think the blog software removed some details
The code as posted was
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value LTE -0.05 And Target.Column GTE 12 And Target.Column LTE 15 Then
Application.Speech.Speak Target.Text
Target.Interior.Color = 123456 'Change to suit
End If
End Sub
Replace GTE with >=
Replace LTE with <=
Hi Hui,
Thanks for your kind reply. I will try this ..
Regards,
nagesh
Hi Hui Sir,
I tried your updated coding, again it's showing same error. Sir, i will make you things clear as follows"
1) I am using MS EXCEL 2003 & It's a part of MS OFFICE STANDARD EDITION 2003.
2) I'm new to this excel, I need formula for the excel and coding for vb .
3) Sir, Below is the Data needs to play sound when the Number comes down -5.5%. It's in L,M,N,O, P Column of Excel Respecitively!
%Total 1 = L Column; Optional = M Column; Calc=N Column, Final=O Column, Additn = P Column in Excel Respectively!
%Total 1 Optional Calc Final Additn
1.0664851 -5.567 -0.499205809 -0.198547765 1.76
4.44350551 -0.1267561 -0.348579275 -0.237667688 2.66
-2.2927545 -2.651762402 -2.472258486 -2.562010444 -2.24
1.194029 0.608955224 0 0.304477612 0.1
Sir please advice me, It's very impt to me to play sound when it comes down -5.5 %, Once it's done, i'll be very happy.
Also, i want to learn online excel vb from your end if you providing excel training, please tell me fees structure and discounts for the excel training.
Expecting Solutions for my queries and hope you solve.
Thanks for your kind reply for my previous mails.
Warm Regards,
Nagesh
Hi Hui Sir,
The code you adviced me is :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 12 And Target.Column < = 15 Then
Application.Speech.Speak Target.Text
Target.Interior.Color = 123456 'Change to suit
End If
End Sub
It's working fine, but only problem is :-
1) It's speaking for all numbers like, -1 %, -2 %, -5%.etc.., I need only for -5.5%.
2) In Cell "A" , I HAVE LIST OF MEDICINES like "Ranbaxy - A2 ", "Cipla - A3", "Micro Labs - A4" upto "A 168". If the data in "L,M,N,0,P" Column comes down in b/w -5.5 % to -20.5 % then , Ms Excel 2003 has to Say: Ranbaxy -5.5 %, Cipla - 6.6 %, Micro Labs - -10 % etc..
@Nagesh
The code I posted is:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value LTE -0.05 And Target.Column GTE 12 And Target.Column LTE 15 Then
Application.Speech.Speak Target.Text
Target.Interior.Color = 123456 ‘Change to suit
End If
End Sub
Replace GTE with >=
Replace LTE with <= If this isn't clear, please post a file in the Forums http://chandoo.org/forum/
Hi Hui Sir,
i'm trying to post file in the forum : http://chandoo.org/forum/, it's not taking there. Please Help me the below, Please sir, please
The code you adviced me is :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 12 And Target.Column < = 15 Then
Application.Speech.Speak Target.Text
Target.Interior.Color = 123456 'Change to suit
End If
End Sub
It's working fine, but only problem is :-
1) It's speaking for all numbers like, -1 %, -2 %, -5%.etc.., I need only for -5.5% to -20.5%
2) In Cell "A" , I HAVE LIST OF MEDICINES like "Ranbaxy – A2 ", "Cipla – A3", "Micro Labs – A4" upto "A 168". If the data in "L,M,N,0,P" Column comes down in b/w -5.5 % to -20.5 % then , Ms Excel 2003 has to Say: Ranbaxy -5.5 %, Cipla – 6.6 %, Micro Labs – -10 % etc..
Requesting last last help from your end, my work almost done with your valuable time and advice. Please help me sir,
nagesh
@Nagesh
This is the code, I have posted 3 times
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value LTE -0.05 And Target.Column GTE 12 And Target.Column LTE 15 Then
Application.Speech.Speak Target.Text
Target.Interior.Color = 123456 ‘Change to suit
End If
End Sub
Replace GTE with >=
Replace LTE with <= If the Forum isn't working your file is too large Compress it or save to a dropbox etc style account or email me directly, click on Hui and email is at bottom of the page
Here is a copy of part of my Dash Board:
Alert Summary
EM 22.8%
FIN 22.1%
ENERGY 18.1%
SPX 24.0%
NDX 27.0%
RUSSELL 23.5%
Each of the percentages is a link to a separate page in the work book. For example, the 22.8% is actually =+EM!D10 which is the answer to the following formula =((ABS(G7/((F7+F6)/2))))
I want some sound alert that will tell me when the value is greater than 35%. Since the spread sheet dlynamically update every second, I would assume that a ding ding ding repeating would work fine.
Can you give me a step by step on creating an appropriate macro that I can run when I am afc. I have no programming skills but can cut and paste or retype with the best of them 😉
Thanks in advance for any help you can give me. BTW the range on the Dash board that I want to cover is b10...b15
Dear Huai,
is there a way to have a vba code to make a sound alert dynamically when a condition is met without running the module or have a button? I tried the options above and beep now commands but no luck.
More explicit instruction are required. Where exactly does one put:
Function beepNow()
Beep
End Function
??
Dear Sir (Hui),
Pls help me to provide such a excelmacro code so that I can easily heard a specified Sound of the text which I want when the criteria or the condition happened.It may be Hello/Congratulations etc.
Suppose A120=SUM(A5:A119) &
D120=SUM(D5:D119)
G120=A120-D120
Condition:IF(G120=0,"hello"/"congratulations "
Otherwise "Sorry" / "be patience"
Please help if possible.
@Nazmul
Please ask this in the Chandoo.org Forums http://forum.chandoo.org/
Please attach a sample file to simplify the task
@Hui,
I can not find the attachment option & message option in chandoo.org site after sign up.Please help.
@Nazmul
You have to be registered
Then goto: http://forum.chandoo.org/forums/ask-an-excel-question/ and select Post a New Thread
Complete the form
Next to the Submit button is an Add Attachment button, or simply drag the file onto the screen
Hi,
I need a code for the cells speak
auto matically with a regular interval of 10 min.means after every 10 min my cells speak.
Hi Hui,
Hope you are in good health and doing well. I was surfing the internet for some excel solutions for my workbook and I came across some very good solutions by you. Hence, I am writing to you to get some insights to my problem
So here it goes,
I have a software which gives me live stock prices in excel and I have added all my analysis to that file so that I can get Long and Short Calls for the scrips I analyze. Now, there are around 200 companies that I analyse and the calls appear as the stock price change and reach my buying or selling levels.
I need my excel to say the companies name which is in cell C2 when "Long" / "Short" text appears in my cell B2 which has my analysis formulas. Current market price is in A2
Also I need this for a range as I mentioned I have 200 companies.
I really hope you can help me with this.
This is what I have tried uptill now, but this works for one cell and not a range
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
If Range("B2").Value = "50" Then
Application.Speech.Speak (Range("C3").Value)
End If
End If
End Sub
Please Find me a Solution
Thank You,
Best Regards,
Nishant Shah
@Nishant
Can you please ask this question in the Chandoo.org Forums http://forum.chandoo.org/
Please attach a sample file to simplify the solution