Yesterday, I talked about how you don’t have to know how to code in order to highly leverage VBA. All you need to know is how to Google, Cut, and Paste. As discussed then, I ‘volunteered’ KV under pain of exposure to empty the contents of his secret satchel onto the virtual table, so that we can rummage through it. So without further ado, please put your hands together and give a warm Chandoo welcome to secret agent KV.
[Secret transmission starts…]
Hello, this is my first guest post on Chandoo.org (or any Excel website for that matter), and I will try to keep it simple, but useful for our readers.
I have been using spreadsheets since 1990, and Excel since 1995 – which sort of makes me a veteran in this sphere of business applications 🙂
One of my favorite topics in Excel is – “How can I make my day-to-day tasks in Excel easier and faster ?”. In fact, this is a topic that I think about in everything to do with computers.
There are many ways one can do this in Excel, but among the more effective and scalable ones, is storing commonly used macros in your Personal Macro Workbook.
This post is about some of the stuff that I have put in my Personal Macro Workbook over the years. You can read more about how to set up a Personal Macro Workbook, in this excellent tutorial on Ron de Bruin’s website. Like nuclear war, It’s a one-time exercise. And you can easily port it to any other computers that you use – or even share it with your friends and allied spooks.
This is the first bunch of macros which I use most frequently. Hopefully I will get a chance to post some more if this post is found to be good enough 🙂
So here goes.
1: Find the value of ActiveCell within selection, or in the whole sheet
This is a very useful macro which helps to search for the value in the ActiveCell within the selected range or the whole worksheet (if only ActiveCell is selected).
Sub SearchOnActiveCellContents()
' Keyboard Shortcut: Ctrl+Shift+G
On Error GoTo NotFound
If Selection.Cells.Count > 1 Then
Selection.Cells.Find _
(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Else
Cells.Find _
(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End If
Exit Sub
NotFound:
MsgBox "No cells found with this cell's contents"
End Sub
As you will notice, the macro checks whether the selection is 1 cell or multiple cells, and accordingly executes the Cells.Find command.
2: Filter on value NOT equal to ActiveCell value
This is another handy macro, which filters the current column based on the value of the active cell, except that the filter is applied as “show records NOT equal to the value of the active cell”
The macro itself is a fairly simple one-line command :
Sub AutoFilterSelectionNOT()
' Keyboard Shortcut: Ctrl+Shift+K
Dim lField As Long
lField = ActiveCell.Column - ActiveCell.CurrentRegion.Column + 1
If TypeName(Selection) <> "Range" Then Exit Sub
Selection.AutoFilter Field:=lField, Criteria1:="<>" & ActiveCell.Value
End Sub
3. Show or Hide zeros in active sheet
This macro toggles the display of zero-value cells on the active sheet.
Sub Hide_Zeros()
' Keyboard Shortcut: Ctrl+Shift+Z
If TypeName(Selection) <> "Range" Then Exit Sub
ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros
End Sub
4: Show or Hide page-breaks in active sheet
This macro toggles the display of page-breaks on the active sheet.
Sub ShowHidePageBreaks()
' Keyboard Shortcut: Ctrl+Shift+J
If TypeName(Selection) <> "Range" Then Exit Sub
ActiveSheet.DisplayPageBreaks = Not
ActiveSheet.DisplayPageBreaks
End Sub
As the name suggests , this macro will show or hide the display of page breaks on the active sheet.
5: Display the 'GoTo special' xldialog
Quite often I find myself needing to use the GoTo Special command.
Of course, you can do it the way it was designed in Excel – press F5 to display the GoTo dialog box, and click on the Special… button. This takes one keystroke and a mouse-click; or 3 keystrokes (if you don’t use the mouse) 🙂
Or you can display the Goto > Special… dialog box (using a macro) with just 1 click of the mouse or 2 keystrokes (if you pin it on the QAT) !
Sub xlSelectSpecial()
On Error GoTo NotFound
If Selection.Cells.Count = 1 Then
MsgBox "Select more than 1 cell...", vbExclamation, "Select more cells..."
Exit Sub
End If
Application.Dialogs(xlDialogSelectSpecial).Show
Exit Sub
NotFound:
myMsgText = "No such cells found"
myTitle = "Not found"
myConfig = vbOKOnly + vbExclamation
myMessage = MsgBox(myMsgText, myConfig, myTitle)
End Sub
As you will notice, the macro has an error-checking line in case the type of ‘special cell’ you selected is not found. E.g. if you’re looking for blank cells in the selection, and all the cells in it are non-blank, the macro will display a message accordingly.
The macro also checks whether more than one cell is selected before executing the dialog. The reason for this is that if a single cell is selected, many of the options in the GoTo Special dialog box will execute on the entire ‘UsedRange’ of the spreadsheet, instead of the selected range.
If you wish, you can comment out the If … End If construct and test the macro to see what I mean.
6: Zoom-in / Zoom-out
These macros zoom in or zoom out on the worksheet, in increments of 5%.
Sub MyZoomIn()
' Keyboard Shortcut: Ctrl+E
Dim ZP As Integer
ZP = ActiveWindow.Zoom
If ZP >= 400 Then
ZP = 400
Else
ZP = ZP + 5
End If
ActiveWindow.Zoom = ZP
End Sub
Sub MyZoomOut()
' Keyboard Shortcut: Ctrl+Shift+E
Dim ZP As Integer
ZP = ActiveWindow.Zoom
If ZP <= 10 Then
ZP = 10
Else
ZP = ZP - 5
End If
ActiveWindow.Zoom = ZP
End Sub
As you will notice, will increase or decrease the zoom percentage by 5 points each time the macro is executed. The If… Then… Else… constructs are there to prevent an error if the current zoom percentage is already at the maximum or minimum level, when the macro is executed.
That’s all for this post from my side. I hope you will find it useful.
I welcome comments, suggestions for improvement & criticisms from readers on this topic, and the macros I have shared in this post.
[Secret transmission ended.]
Hey, thanks KV for sharing those shortcut-charged shortcuts. I look forward to torturing some more of that ill-gotten wisdom out of you. (While I don’t condone torture, I hate inefficient use of Excel even more. So while it’s going to hurt you more than me, it’s for the greater good.)
About the Author
KV is an undercover secret agent who spends his time rescuing the world from the crushing weight of evil, bloated spreadsheets.
His mild-mannered alter ego - Khushnood Viccaji - is a freelance professional and an expert in Management Information Systems and Business Applications with a focus on Data Management, Analytics, Transformation, Auditing, and Reporting.
Both these chaps have a flair for understanding and applying technology in business processes and an ability to present business information in many different ways. And one of them wears lycra.
41 Responses to “SQL Queries from Excel”
I use this method very often.
I always use =SUBSTITUTE (ColumnWithText,"'","''")
to be sure that potential apostrophe in text columns are doubled as required in SQL.
Awesome ! I don't use excel very often so the substitute thing is gold to me 🙂 thanks !
@Leonid.. that is a good technique to use substitute to clean up text apostrophes. thanks
Goal:
Generate update statement in excel where the columns that can be updated are dynamic
You want the columns which are not updated to keep the same value
(or not be overwritten with NULL values with the new generated statement)
the statement can be applied to multiple rows in excel for the same column headers
(This is why the '$' exist for the column headers that are being set)
A1 = First_Name
B1 = Last_Name
C1 = Middle_Name
="
UPDATE PERSONS "&CHAR(10)&
" SET 1 = 1 "&CHAR(10)&
IF(LEN(TRIM($A2))=0,"",", "&$A$1&" = '"&$A2&"'"&CHAR(10))&
IF(LEN(TRIM($B2))=0,"",", "&$B$1&" = '"&$B2&"'"&CHAR(10))&
IF(LEN(TRIM($C2))=0,"",", "&$C$1&" = '"&$C2&"'"&CHAR(10))&
" WHERE name = 'staticordynamicvalue' AND gender = 'staticordynamicvalue'
"
Output (if all columns are set):
UPDATE PERSONS SET 1 = 1,
First_Name = 'Joe',
Last_Name = 'ORien',
Middle_Name = 'Richard'
WHERE age = 28 AND gender = 'm'
Output (if only First _Name (A1) is set):
UPDATE PERSONS SET 1 = 1,
First_Name = 'Joe'
WHERE age = 28 AND gender = 'm'
Possibly my post above is confusing without the actual table to look at. I will do the same example with the table used here. Instead of an insert statement I will generate an update statement for the columns, Cust_Name, Phone & E-mail
where we can generate an update statement for any column individually or together. 🙂 I hope this can help.
=”
UPDATE table “&CHAR(10)&
” SET 1 = 1 “&CHAR(10)&
IF(LEN(TRIM($A2))=0,”",”,Cust_Name = ‘”&$B3&”‘”&CHAR(10))&
IF(LEN(TRIM($B2))=0,”",”, Phone = ‘”&$C3&”‘”&CHAR(10))&
IF(LEN(TRIM($C2))=0,”",”, E-mail = ‘”&$D3&”‘”&CHAR(10))&
” WHERE Cust_Name = ’Bill Gates'
”
Thanks, it has been very useful !
It saved me at least 30 minutes, and time is the most expensive thing in our world...
Hey Paul,
What if any of A2, B2, or C2 is a date field?
The formula above is taking date as string. Any solution?
Even I faced the same problem. If any of the above columns are date, it is taken as string. Any work around for this?
I've found the string concatenation method works well.
At the risk of sounding spammy I would mention that
if it's something your are doing regularly it might be worth investigating a tools
that make it easier, such as QueryCell, an excel add-in I've developed.
It gives you a right click menu option that will produce and then customize insert statements for the selected region of Excel data.
Cheers
Sam
Hi,
For inserting the excel data to your SQL table, you can create insert statements in excel file according to your columns.
then just execute the statements all at once, it will insert the required data to sql server table.
thanks,
How...?
I tried to generate t-sql insert queries from the above example
="insert into values('" &A2 &"','" & B2& "');"
but it generates on one record instead of all records from excel sheet.
I'm using Excel 2003 and the excel sheet contains 922 records.
Most data bases can generate DDL for any object but not a lot of them allow generation of INSERT statements for the table data.
The workaround is to make use of ETL Tools for transferring data across servers. However, there exists a need to generate INSERT statements from the tables for porting data.
Simplest example is when small or large amount of data needs to be taken out on a removable storage media and copied to a remote location, INSERT..VALUES statements come handy.
There is a number of scripts available to perform this data transformation task. The problem with those scripts that all of them database specific and they do not work with textiles
Advanced ETL processor can generate Insert scripts from any data source including text files
http://www.dbsoftlab.com/generating-insert-statements.html
Super Aiticle. Thanks for this post.
I used to deal with the same problem, until found this awsome and free tool.
http://www.xtrategics.com/shapp/String%20Handler.application
regards,
Hi ,
i need a sql query to update a DB in excel 2010..
i have the query(SQL) for insert in excel as ,
="insert into customers values('" &B3 &"','" & C3 & "','"&D3&"');"
similarly i need q sql query for update in excel
i want clear formulas only for insert,delete,update,select
Hi !
I would like to thank you so much ! This trick saves me a lot of time. Thank you so much. Really appreciate it !
-Ankit
You may like to take advantage of this unique tool 'Excel to Database'.
(free for 60 days)http://leansoftware.net The Excel-to-Database utility enables you to validate and transfer data from Microsoft Excel or text file to a database table or stored procedure process. Any text data can be pasted into the application, this may be from another Excel sheet or from text files such as CSV format. SQL Server, Access, MySQL, FoxPro .. Application features Some unique features of Excel to Database include: ?Easy to use color coded/traffic light data validation ?Data is validated as soon it is typed or pasted into Excel ?Upload Excel data to a table or stored procedure process ?Allow default values ?Mandatory/must have fields can be specified ?Allow user friendly column names ?Allow excel formula / calculated fields ?Multiple database type support: Microsoft SQL Server, Access, MySQL and others (to be tested) ?Supports Custom SQL scripts, with SQL/Excel merge fields ?Database validation checks ensure you comply with any rules defined within the database ?Multiple Task configuration ?For co-operative use, Tasks can be shared across a network ?Task configuration is password protected http://leansoftware.net
Its works fine for single record.
I want to update 1000 records in DB. Can you help me.
[...] [...]
Excel database tasks 2.3 (EDT)
you can now load directly from any source into Excel, validate and upload to most SQL database platforms including SQL Server with automatic transaction wrapping.
You can also use EDT as a multi-user application by easily designing your own Edit data tasks and deploying EDT on your users workstations.
Automatically creates UPDATE/INSERT statements based on the primary key. Default SQL can be modified as you require.
Makes the best use if Excel power - formatting, formula, validation, conditional formatting.. without creating any problematic spreadsheets!
Release details on the blog:
http://leansoftware.net/forum/en-us/blog.aspx
Thanks for the interest
Richard
Thanks for the valueable information, it really help me alot.
Thanks again.
As I do with a field of type date?
= "UPDATE SET business datetime =" & "'" & A2 & "' WHERE ID =" & B2 & ""
the date is not 03/10/2012 is 41246. Even putting quotes ...
Please show how to do it properly with dates as well as when those dates are empty. Thanks!
In a separate column make the date to Text using below formula
=TEXT(C2,"mm/dd/yyyy") Then Refer this text column in your update statement
Great post saved me a a load of time on a task i had to complete
thanks for sharing article... helpful!
Thanks 🙂
Hello,
Nice article.
I have also created one tool for create table script using excel http://devssolution.com/create-table-in-sql-using-excel/
Please check it.
Thanks & Regards,
Sandeep Bhadauriya
[…] Excel formula used – http://chandoo.org/wp/2008/09/22/sql-insert-update-statements-from-csv-files/ […]
If any one can help me out with following.
I want to know a SQL query of below excel formula:
=LOOKUP(0,-SEARCH(LEFT(F2,LEN($B$2:$B$100))+0,$B$2:$B$100),$A$2:$A$100)
Excel data is as below;
Name Codes
names1 992
names2 57
names3 856
names4 297
names5 63
if there is a number (29756789) then it should search in sql by taking the prefix of number (297) from (29756789) and return the name field (name4).
Codes can be of two digit or three.
Thanks
Here is a link to an Online automator to convert CSV files to SQL Insert Into statements:
CSV-to-SQL: http://csv-to-sql.herokuapp.com
http://stackoverflow.com/questions/1570387/how-to-insert-data-from-an-excel-sheet-into-a-database-table/37409790#37409790
="INSERT INTO table VALUES (" &A3 &",'" & B3 & "','"&C3&"','" & D3 & "','" & E3 & "'," & F3 & "," & G3 & "," & H3 & ",'" & I3 & "'," & J3 & ");"
B3 has date data that looks like 9/22/17 but with the formula above b3 is coming out as 43000?
how do i fix that?
I just want to insert the Excel records in Sql table without Visiting SQL.
basically i m just want to run a command in Excel Only.
Help Me..plz..?
Hi I have a question maybe you guys have an answer for me
="insert into customers values('" &B3 &"','" & C3 & "','"&D3&"');" where B3, C3, D3 refer to above table data.
the above technique works but is there a way to write it so it takes a range instead of individual columns. because I have an extremely wide table
="insert into customers values(B3:D3);" where B3, C3, D3 refer to above table data.
Awsome
Its Great Effort to help everyone who working with excel.
Thanks for the mini-tutorial on SQL from Excel. Didi it several years ago, but couldn't remember the syntax! All the dialogue was really helpful as well!
The formula above is taking date as string. Any solution?