How to Merge Multiple CSV Files in Excel (Step-by-Step Guide)

Share

Facebook
Twitter
LinkedIn

Have a bunch of CSV files in a folder and want to merge or combine them to one big file? Follow these simple instructions to combine multiple CSV files in to one spreadssheet using Microsoft Excel (2016 or above).

What you need?

  • A folder with CSV files (click here to download sample files, if you need some)
  • Microsoft Excel (2016 or above version)
folder of CSV files we want to merge

Method 1: Merge CSV Files using Power Query (Recommended)

This is by far the easiest and quickest way to combine data from CSV files in a folder using Excel.

Follow these steps:

  1. Close any opened CSV files: Before proceeding, close any of the opened CSV files. Make a note of the folder path too.
  2. Open Excel and make a new file: This will be our merged CSV data file. Here, we will setup Power Query to combine all the files.
  3. Go to Data Ribbon > Get Data and click on From Folder
Get data from folder option in Excel Power Query

Paste the folder path or navigate to the folder and click “select”.

  1. For simple CSV files: If your CSVs are already clean and you just want to merge them, select the Combine > Combine & Load option.
  2. For complex CSVs or if you need to clean-up data before merge: Select the Combine > Combine & Transform Data option. This will open up “Power Query Editor” so you can clean up data or apply “transformations”.
Combine & Load options in Excel Folder Merge

  1. Click “OK” in the next screen: This next screen shows a sample of your data (usually the first file) so you can confirm to Excel how your data looks. If your delimiter is not comma (for example, you have TSV files instead of CSV), you can also tell Excel about that using this screen.
Use this screen to tell Excel about your file and delimiter structure.
  1. If you selected “Combine & Load” option: Your merge is done! The combined data from your CSV files is now loaded into Excel. This is how it will look (see below). You can use the “Source name” column to figure out which file each row came from.
Example merged CSV files in Excel

For “Advanced” Merge Scenarios – Combine & Transform Data

If your CSV files are not so simple or you want to further clean-up data after merging, you can follow these steps.

Select the “Combine & Transform Data” option in after Step 3 (ie once you point the folder). This will take you to Power Query editor (after you confirm the file details, as shown in step 6 above).

Once you are in Power Query Editor screen, you can apply any data clean-up and transformation steps on your data easily. I will share a few examples below. But refer to my Power Query tutorial page or video for detailed information on how to use Power Query for data cleaning and transformations.

Example 1: Removing the “Total” column from merged CSV files

Let’s say you don’t want the “total” column from these merged budget files. In the Power Query editor, right click on the “total” column and select “remove”. This will remove the total budget column. Don’t worry, it is not going to remove data from original CSV files. But when you merge the data, you won’t just see the “total” column.

Removing unwanted columns in merged CSV Data

Example 2: Reshaping the 12 columns to month & value column structure

While the 12 monthly column structure works best for gathering budget data, it may not be ideal for data analysis. So let’s reshape our merged data to a format like this:

  • File name
  • Budget Category
  • Month
  • Budget value

Essentially, each row of the data in original CSV file becomes 12 rows in merged file. This process is caleld “unpivoting”. It looks like this:

how unpivoting works - illustration

To unpivot data in Power Query Editor:

  1. Select the file name & cost category columns (and any other columns you want to retain).
  2. Tip: You can hold Shift or CTRL to multi-select columns in Power Query Editor.
  3. Right click on the selected columns and select “Unpivot other columns” option.
Unpivoting budget data in the merged CSV files

This will replace the 12 monthly columns with a new “Attribute” and “Value” columns. These are nothing but our Month and Budget columns!

After unpivot - much better combined CSV file

Renaming the columns: You can double click on the column header and rename it to Month and Budget.

Load combined CSV data to Excel:

When you finish the data clean up and transformations you want to do, go to the Home ribbon in Power Query editor and click on “Close & Load” to bring the finalized data to Excel.

How to load merged or combined data to Excel

Why this method is the best?

I have been using (and advocating) Power Query for more than 10 years. I can’t tell you how much time and effort this little trick has saved me. Here are my top reasons for why Power Query is the best way to merge CSV files.

  • Fully Dynamic: You don’t need to worry about changing files or growing (or even shrinking) data. Once you properly set up the Power Query connection, your data will be merged automatically even if there are 1000s of files.
  • Automated: One of the biggest challenges with data merges like this is that your raw data files change often. With Power Query, updating the “merged” dataset is really simple. Open the merged file, right click anywhere on the merged data table and select “Refresh” to automatically update the merged CSV data.
Refreshing or updating merged CSV data when the folder changes or you have new files
  • Works even if the columns are out of order*: This method works just as perfectly even if your CSV files have columns in jumbled order, as long as the column headings are same across files. That means if file 1 has “Cost category” as column 1 and file 3 has “Cost category” as column 14, the merge still works, as the column heading is matching in both cases. I talk about how to deal with more complex situations of mismatched headers in this video.

Other ways to combine or merge CSV files with Excel

We can also use below techniques to merge CSV files with Excel (I prefer Power Query btw).

  • Using VBA Macros to combine CSV files: Excel’s own coding language – VBA offers a powerful and proven way to combine multiple files (CSV, Text or even other Excel files) and get merged data in one place. This is an advanced method and not really recommended for beginners. Refer to this article for a detailed step-by-step instruction on how to combine data with Excel VBA
  • Manual Copy Pasting: For something quick and dirty, you can also manually open the CSV files and copy paste the data into master Excel file. This is an error-prone and labor intensive process and should only be used in one-off cases.
  • Command Line Utilities: As CSVs are just text files, you can also use a simple command line utility to combine multiple CSVs to one file. This has the disadvantage of repeating headers and not working when the headers don’t match up or columns don’t align. Here is the command for Windows. This combines the CSV files in the sub-folder “merge csv” to a new file named “combined_file.csv”.
copy /b "merge csv"\*.csv combined_file.csv
DOS command to merge CSV files
  • Using online tools: Plenty of online tools offer CSV merge functionality. You can upload your files on these websites and they will combine them for you. I suggest checking the privacy policies of these websites and using them only if you can’t apply Power Query or VBA or manual methods. Here are a few that offer this service: MergeCSV, CSV Combiner

Best Practices when Merging CSV Files (with PQ in Excel):

  • Columns should match (need not be in same order): The merge options in Power Query work best if your columns match, even if they are out of order across files.
  • Keep the folder clean: By default, Power Query is going to combine all the files in the folder you point to. So keep the folder clean and tight. Don’t copy or create files in the folder that you don’t want to merge.
  • Close files before refresh: Power Query refresh can fail or miss the files if you keep them open when updating the query. So close everything before you hit refresh.
  • Data Format Issues (especially with Dates): If you have CSVs containing dates and these files use different date formats, the merged file can be a mess and throw date formatting issues. Synchronize date and currency formats across files before merging them to avoid such data format issues.

In conclusion – Use Power Query to Merge your CSVs

Excel’s own Power Query offers a superior, easy and automatic way to combine CSV files. It works beautifully even when combining 1000s of files. For a recent client project, I combined 340 different budget files with Excel Power Query in under 10 minutes. Needless to say, the client’s jaw dropped when they saw the demo!

But for whatever reason, you can’t use Power Query, try either VBA or command line utilities or one of the online CSV combine options.

Bonus: Sample Files & CSV Combine Template

If you need a hand with combining CSV files, download my sample data files and CSV combiner template using below links. Unzip the files and adjust folder path in Power Query (source step of the merged query) to make it work with your computer’s path.

Resources on Power Query

If you want to learn a bit more about what Power Query can do for your data problems, check out below resources:

Facebook
Twitter
LinkedIn

Share this tip with your colleagues

Excel and Power BI tips - Chandoo.org Newsletter

Get FREE Excel + Power BI Tips

Simple, fun and useful emails, once per week.

Learn & be awesome.

Welcome to Chandoo.org

Thank you so much for visiting. My aim is to make you awesome in Excel & Power BI. I do this by sharing videos, tips, examples and downloads on this website. There are more than 1,000 pages with all things Excel, Power BI, Dashboards & VBA here. Go ahead and spend few minutes to be AWESOME.

Read my storyFREE Excel tips book

Overall I learned a lot and I thought you did a great job of explaining how to do things. This will definitely elevate my reporting in the future.
Rebekah S
Reporting Analyst
Excel formula list - 100+ examples and howto guide for you

From simple to complex, there is a formula for every occasion. Check out the list now.

Calendars, invoices, trackers and much more. All free, fun and fantastic.

Advanced Pivot Table tricks

Power Query, Data model, DAX, Filters, Slicers, Conditional formats and beautiful charts. It's all here.

Still on fence about Power BI? In this getting started guide, learn what is Power BI, how to get it and how to create your first report from scratch.

53 Responses to “Conditionally play sounds when a cell value changes”

  1. Robert says:

    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...

    • brad says:

      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.

  2. Mary says:

    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!!

  3. Hui... says:

    @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

    • Anil says:

      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.

  4. Mary says:

    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?

  5. Hui... says:

    @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

  6. Mary says:

    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?

  7. Hui... says:

    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

  8. Mary says:

    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?

  9. Hui... says:

    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

  10. Amin says:

    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

  11. Hui... says:

    @Amin
    Try the following
    Copy and paste it into a Worksheet Module for the Worksheet in VBA you are working on

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myText As String
    For Each c In Range("B:B")
    If c.Value <> "" Then
    myText = c.Offset(0, -1).Text
    Application.Speech.Speak (myText)
    End If
    Next
    End Sub

  12. Amin says:

    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.

  13. Hui... says:

    @Amin
    Try this modification

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Application.Speech.Speak (Target.Offset(0, -1).Text)
    End Sub

  14. Amin says:

    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

  15. Hui... says:

    @Amin

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Or _
    Target.Column = 4 Or _
    Target.Column = 6 Or _
    Target.Column = 8 Then _
    Application.Speech.Speak (Target.Offset(0, -1).Text)
    End Sub

  16. Vivekanand TM says:

    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

  17. Peter says:

    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

  18. viral kadecha says:

    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 kadecha says:

        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....

  19. Arindam says:

    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

  20. Elliot says:

    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?

    • Hui... says:

      @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

  21. Elliot says:

    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

  22. Elliot says:

    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.

  23. Elliot says:

    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.

  24. Elliot says:

    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.

  25. RAJ says:

    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

  26. nagesh says:

    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

    • Hui... says:

      @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

      • nagesh says:

        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

        • Hui... says:

          @Nagesh
          That won't work in 2003
          I'll see what options there are tomorrow
          It's sleeping time here

          • nagesh says:

            ok sir,
            See you tommorrow, Sleep tight, sweet dreams, bye
            nagesh

          • Hui... says:

            @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 <=

  27. nagesh says:

    Hi Hui,
    Thanks for your kind reply. I will try this ..
    Regards,
    nagesh

  28. Nagesh says:

    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

  29. Nagesh says:

    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..

    • Hui... says:

      @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/

      • Nagesh says:

        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

        • Hui... says:

          @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

  30. Victor says:

    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

  31. mark swan says:

    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.

  32. Ian Wardell says:

    More explicit instruction are required. Where exactly does one put:

    Function beepNow()
    Beep
    End Function

    ??

  33. Nazmul Hossain says:

    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.

  34. Zain says:

    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.

  35. Nishant says:

    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