Excel Macro Examples

Below macro examples are covered in this article:

Excel Macro Examples Covered

Unhide All Worksheets at One Go
Hide All Worksheets Except the Active Sheet
Sort Worksheets Alphabetically Using VBA
Protect All Worksheets At One Go
Unprotect All Worksheets At One Go
Unhide All Rows and Columns
Unmerge All Merged Cells
Save Workbook With TimeStamp in Its Name
Save Each Worksheet as a Separate PDF
Save Each Worksheet as a Separate PDF
Convert All Formulas into Values
Protect/Lock Cells with Formulas
Protect All Worksheets in the Workbook
Insert A Row After Every Other Row in the Selection
Automatically Insert Date & Timestamp in the Adjacent Cell
Highlight Alternate Rows in the Selection
Highlight Cells with Misspelled Words
Refresh All Pivot Tables in the Workbook
Change the Letter Case of Selected Cells to Upper Case
Highlight All Cells With Comments
Highlight Blank Cells With VBA
How to Sort Data by Single Column
How to Sort Data by Multiple Columns
How to Get Only the Numeric Part from a String in Excel

Unhide All Worksheets at One Go

If you are working in a workbook that has multiple hidden sheets, you need to unhide these sheets one
by one. This could take some time in case there are many hidden sheets.

Here is the code that will unhide all the worksheets in the workbook.

'This code will unhide all sheets in the workbook

Sub UnhideAllWoksheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
The above code uses a VBA loop (For Each) to go through each worksheets in the workbook. It then
changes the visible property of the worksheet to visible. 
Here is a detailed tutorial on how to use various methods to unhide sheets in Excel.

Hide All Worksheets Except the Active Sheet

If you're working on a report or dashboard and you want to hide all the worksheet except the one that
has the report/dashboard, you can use this macro code.

'This macro will hide all the worksheet except the active sheet
Sub HideAllExceptActiveSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
Next ws
End Sub

Sort Worksheets Alphabetically Using VBA

If you have a workbook with many worksheets and you want to sort these alphabetically, this macro
code can come in really handy. This could be the case if you have sheet names as years or employee
names or product names.

'This code will sort the worksheets alphabetically

Sub SortSheetsTabName()
Application.ScreenUpdating = False
Dim ShCount As Integer, i As Integer, j As Integer
ShCount = Sheets.Count
For i = 1 To ShCount - 1
For j = i + 1 To ShCount
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub

Protect All Worksheets At One Go

If you have a lot of worksheets in a workbook and you want to protect all the sheets, you can use this
macro code.

It allows you to specify the password within the code. You will need this password to unprotect the
worksheet.
'This code will protect all the sheets at one go
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
password = "Test123" 'replace Test123 with the password you want
For Each ws In Worksheets
   ws.Protect password:=password
Next ws
End Sub

Unprotect All Worksheets At One Go

If you have some or all of the worksheets protected, you can just use a slight modification of the code
used to protect sheets to unprotect it.

'This code will protect all the sheets at one go

Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
password = "Test123" 'replace Test123 with the password you want
For Each ws In Worksheets
ws.Unprotect password:=password
Next ws
End Sub

Note that the password needs to the same that has been used to lock the worksheets. If it's not, you
will see an error.

Thrive Leads Shortcode could not be rendered, please check it in Thrive Leads Section!

Unhide All Rows and Columns

This macro code will unhide all the hidden rows and columns.

This could be really helpful if you get a file from someone else and want to be sure there are no hidden
rows/columns.

'This code will unhide all the rows and columns in the Worksheet
Sub UnhideRowsColumns()
Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
End Sub

Unmerge All Merged Cells

It's a common practice to merge cells to make it one. While it does the work, when cells are merged you
will not be able to sort the data.

In case you are working with a worksheet with merged cells, use the code below to unmerge all the
merged cells at one go.

'This code will unmerge all the merged cells

Sub UnmergeAllCells()
ActiveSheet.Cells.UnMerge
End Sub

Note that instead of Merge and Center, I recommend using Centre Across Selection option.

Save Workbook With TimeStamp in Its Name

A lot of time, you may need to create versions of your work. These are quite helpful in long projects
where you work with a file over time.

A good practice is to save the file with timestamps.

Using timestamps will allow you to go back to a certain file to see what changes were made or what
data was used.

Here is the code that will automatically save the workbook in the specified folder and add a timestamp
whenever it's saved.

'This code will Save the File With a Timestamp in its name
Sub SaveWorkbookWithTimeStamp()
Dim timestamp As String
timestamp = Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hh-ss")
ThisWorkbook.SaveAs "C:UsersUsernameDesktopWorkbookName" & timestamp
End Sub

You need to specify the folder location and the file name.

In the above code, "C:UsersUsernameDesktop is the folder location I have used. You need to specify the
folder location where you want to save the file. Also, I have used a generic name "WorkbookName" as
the filename prefix. You can specify something related to your project or company.

Save Each Worksheet as a Separate PDF

If you work with data for different years or divisions or products, you may have the need to save
different worksheets as PDF files.

While it could be a time-consuming process if done manually, VBA can really speed it up.

Here is a VBA code that will save each worksheet as a separate PDF.

'This code will save each worsheet as a separate PDF

Sub SaveWorkshetAsPDF()
Dim ws As Worksheet
For Each ws In Worksheets
ws.ExportAsFixedFormat xlTypePDF, "C:UsersSumitDesktopTest" & ws.Name & ".pdf"
Next ws
End Sub

In the above code, I have specified the address of the folder location in which I want to save the PDFs.
Also, each PDF will get the same name as that of the worksheet. You will have to modify this folder
location (unless your name is also Sumit and you're saving it in a test folder on the desktop).

Note that this code works for worksheets only (and not chart sheets).

Save Each Worksheet as a Separate PDF

Here is the code that will save your entire workbook as a PDF in the specified folder.

'This code will save the entire workbook as PDF

Sub SaveWorkshetAsPDF()
ThisWorkbook.ExportAsFixedFormat xlTypePDF, "C:UsersSumitDesktopTest" & ThisWorkbook.Name & ".pdf"
End Sub

You will have to change the folder location to use this code.

Convert All Formulas into Values

Use this code when you have a worksheet that contains a lot of formulas and you want to convert these
formulas to values.

'This code will convert all formulas into values

Sub ConvertToValues()
With ActiveSheet.UsedRange
.Value = .Value
End With
End Sub

This code automatically identifies cells are used and convert it into values.

Protect/Lock Cells with Formulas

You may want to lock cells with formulas when you have a lot of calculations and you don't want to
accidentally delete it or change it.

Here is the code that will lock all the cells that have formulas, while all the other cells are not locked.

'This macro code will lock all the cells with formulas
Sub LockCellsWithFormulas()
With ActiveSheet
   .Unprotect
   .Cells.Locked = False
   .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
   .Protect AllowDeletingRows:=True
End With
End Sub

Related Tutorial: How to Lock Cells in Excel.

Protect All Worksheets in the Workbook

Use the below code to protect all the worksheets in a workbook at one go.

'This code will protect all sheets in the workbook

Sub ProtectAllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect
Next ws
End Sub

This code will go through all the worksheets one by one and protect it.

In case you want to unprotect all the worksheets, use ws.Unprotect instead of ws.Protect in the code.

Thrive Leads Shortcode could not be rendered, please check it in Thrive Leads Section!

Insert A Row After Every Other Row in the Selection

Use this code when you want to insert a blank row after every row in the selected range.

'This code will insert a row after every row in the selection
Sub InsertAlternateRows()
Dim rng As Range
Dim CountRow As Integer
Dim i As Integer
Set rng = Selection
CountRow = rng.EntireRow.Count
For i = 1 To CountRow
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Next i
End Sub

Similarly, you can modify this code to insert a blank column after every column in the selected range.

Automatically Insert Date & Timestamp in the Adjacent Cell

A timestamp is something you use when you want to track activities.

For example, you may want to track activities such as when was a particular expense incurred, what
time did the sale invoice was created, when was the data entry done in a cell, when was the report last
updated, etc.

Use this code to insert a date and time stamp in the adjacent cell when an entry is made or the existing
contents are edited.

'This code will insert a timestamp in the adjacent cell

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Handler
If Target.Column = 1 And Target.Value <> "" Then
Application.EnableEvents = False
Target.Offset(0, 1) = Format(Now(), "dd-mm-yyyy hh:mm:ss")
Application.EnableEvents = True
End If
Handler:
End Sub

Note that you need to insert this code in the worksheet code window (and not the in module code
window as we have done in other Excel macro examples so far). To do this, in the VB Editor, double
click on the sheet name on which you want this functionality. Then copy and paste this code in that
sheet's code window.
Also, this code is made to work when the data entry is done in Column A (note that the code has the
line Target.Column = 1). You can change this accordingly.

Highlight Alternate Rows in the Selection

Highlighting alternate rows can increase the readability of your data tremendously. This can be useful
when you need to take a print out and go through the data.

Here is a code that will instantly highlight alternate rows in the selection.

'This code would highlight alternate rows in the selection

Sub HighlightAlternateRows()
Dim Myrange As Range
Dim Myrow As Range
Set Myrange = Selection
For Each Myrow In Myrange.Rows
   If Myrow.Row Mod 2 = 1 Then
      Myrow.Interior.Color = vbCyan
   End If
Next Myrow
End Sub

Note that I have specified the color as vbCyan in the code. You can specify other colors as well (such as
vbRed, vbGreen, vbBlue).

Highlight Cells with Misspelled Words

Excel doesn't have a spell check as it has in Word or PowerPoint. While you can run the spell check by
hitting the F7 key, there is no visual cue when there is a spelling mistake.

Use this code to instantly highlight all the cells that have a spelling mistake in it.

'This code will highlight the cells that have misspelled words
Sub HighlightMisspelledCells()
Dim cl As Range
For Each cl In ActiveSheet.UsedRange
If Not Application.CheckSpelling(word:=cl.Text) Then
cl.Interior.Color = vbRed
End If
Next cl
End Sub

Note that the cells that are highlighted are those that have text that Excel considers as a spelling error.
In many cases, it would also highlight names or brand terms that it doesn't understand.
Refresh All Pivot Tables in the Workbook

If you have more than one Pivot Table in the workbook, you can use this code to refresh all these Pivot
tables at once.

'This code will refresh all the Pivot Table in the Workbook
Sub RefreshAllPivotTables()
Dim PT As PivotTable
For Each PT In ActiveSheet.PivotTables
PT.RefreshTable
Next PT
End Sub

You can read more about refreshing Pivot Tables here.

Change the Letter Case of Selected Cells to Upper Case

While Excel has the formulas to change the letter case of the text, it makes you do that in another set of
cells.

Use this code to instantly change the letter case of the text in the selected text.

'This code will change the Selection to Upper Case

Sub ChangeCase()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub

Note that in this case, I have used UCase to make the text case Upper. You can use LCase for lower
case.

Highlight All Cells With Comments

Use the below code to highlight all the cells that have comments in it.

'This code will highlight cells that have comments`

Sub HighlightCellsWithComments()
ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Interior.Color = vbBlue
End Sub
In this case, I have used vbBlue to give a blue color to the cells. You can change this to other colors if
you want.

Highlight Blank Cells With VBA

While you can highlight blank cell with conditional formatting or using the Go to Special dialog box, if
you have to do it quite often, it's better to use a macro.
Once created, you can have this macro in the Quick Access Toolbar or save it in your personal macro
workbook.

Here is the code:

'This code will highlight all the blank cells in the dataset
Sub HighlightBlankCells()
Dim Dataset as Range
Set Dataset = Selection
Dataset.SpecialCells(xlCellTypeBlanks).Interior.Color = vbRed
End Sub

In this code, I have specified the blank cells to be highlighted in the red color. You can choose other
colors such as blue, yellow, cyan, etc.

How to Sort Data by Single Column

You can use the below code to sort data by the specified column.

Sub SortDataHeader()
Range("DataRange").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
End Sub

Note that the I have created a named range with the name 'DataRange' and have used it instead of the
cell references.

Also there are three key parameters that are used here:

 Key1 - This is the on which you want to sort the data set. In the above example code, the data
will be sorted based on the values in column A.

 Order- Here you need to specify whether you want to sort the data in ascending or descending
order.
 Header - Here you need to specify whether your data has headers or not.

Read more on how to sort data in Excel using VBA.

How to Sort Data by Multiple Columns

Suppose you have a dataset as shown below:

Below is the code that will sort the data based on multiple columns:

Sub SortMultipleColumns()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("A1"), Order:=xlAscending
.SortFields.Add Key:=Range("B1"), Order:=xlAscending
.SetRange Range("A1:C13")
.Header = xlYes
.Apply
End With
End Sub

Note that here I have specified to first sort based on column A and then based on column B. 

The output would be something as shown below:

How to Get Only the Numeric Part from a String in Excel

If you want extract only the numeric part or only the text part from a string, you can create a custom
function in VBA.

You can then use this VBA function in the worksheet (just like regular Excel functions) and it will extract
only the numeric or text part from the string.

Something as shown below:

 Below is the VBA code that will create a function to extract numeric part from a string:

'This VBA code will create a function to get the numeric part from a string
Function GetNumeric(CellRef As String)
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetNumeric = Result
End Function

You need place in code in a module, and then you can use the function =GetNumeric in the worksheet.

This function will take only one argument, which is the cell reference of the cell from which you want to
get the numeric part.

Similarly, below is the function that will get you only the text part from a string in Excel: 

'This VBA code will create a function to get the text part from a string
Function GetText(CellRef As String)
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If Not (IsNumeric(Mid(CellRef, i, 1))) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetText = Result
End Function

Want to automate your work and save time? Learn how to use the power of VBA with Excel to get
massive amount of work done in a few minutes

Click here to know more about the online VBA Training

  May 2017
  Excel Tips, Excel VBA Tips & Tricks
39 comments
 
Newest
 comments first

rakesh

There is a problem in this page

24 Useful Excel Macro Examples for VBA Beginners (Ready-to-use)
Share 
Reply to rakesh
Zac

This is very cool! If I may ask a more specific question: lets say I want to save a variety of worksheets to PDFs however, I only
want to convert worksheets that titles that begin with “D_”. Is this possible?
Share 
Reply to Zac
lord

hello, what if i have 2 sets of numeric part from a string and i wanted to separate them both
Share 
Reply to lord
Steve

Hello,
I am working on an excel database of vinyl records.
Row G shows if the track is an ‘a’ or ‘b’ side.
What I want to do, is when ‘a’ is typed into any cell in this Column, the corresponding cell in which shows the track title will turn
to light green.
If ‘b’ is entered, the cell will remain white.
Thank you for your help.
Share 
Reply to Steve
Jamal Huleatt

use conditional formating

Share 
Reply to Jamal Huleatt
Nahla

Hi
I would like to know how can i saved my code that i have and use it several times again in different workbook, and i have a
problem for running the code again in different workbook or if i changed the cell no . the functions have been created by macro are
acceptable for another orders fro excel?
Share 
Reply to Nahla
Graham

At a quick glance the macros look interesting.

I can see a use for some of them with modification.
Share 
Reply to Graham
mdsarva

Thats really some fantastic codin,

Thank you so much for sharing!
Share 
Reply to mdsarva
varun

if we protect the worksheets using macro then anyone can see the password from the coding and it will defeat the purpose of
protecting. How to stop such situation?
Share 
Reply to varun
Ak

i want to a Excel vba programming file for road cross section and Long Section Make In excel And send To autocad . automation
vba program.
Share 
Reply to A k
sam

Your comment is awaiting moderation.

i want to hyperlink my image with website url plz help me for hyperling my image! and i want to send it to outlook

Sub Send_email_fromexcel()
Dim edress As String
Dim subj As String
Dim message As String
Dim filename, fname2 As String
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim myAttachments As Object
Dim path As String
Dim lastrow As Integer
Dim attachment As String
Dim x As Integer
x=2

Set outlookapp = CreateObject(“Outlook.Application”)

Set outlookmailitem = outlookapp.createitem(0)
Set myAttachments = outlookmailitem.Attachments
path = “C:UsersUserDesktopstatements”

edress = Sheet1.Cells(x, 1)

subj = Sheet1.Cells(x, 2)
filename = Sheet1.Cells(x, 3)
fname2 = “Weddingplz-Safe-Gold.jpg”

attachment = path + filename

outlookmailitem.to = edress
outlookmailitem.cc = “”
outlookmailitem.bcc = “”
outlookmailitem.Subject = subj
outlookmailitem.Attachments.Add path & fname2, 1

outlookmailitem.htmlBody = “Thank you for your contract” _

& “nicely done this work” _
& “”
outlookmailitem.htmlBody = “” & outlookmailitem.htmlBody & “”

‘outlookmailitem.body = “Please find your statement attached” & vbCrLf & “Best Regards”

outlookmailitem.display
‘outlookmailitem.send

lastrow = lastrow + 1
edress = “”
x=x+1

Set outlookapp = Nothing

Set outlookmailitem = Nothing

End Sub
Share 
Reply to sam
Buddhi
Nice
Share 
Reply to Buddhi
In Kev

Hello good day 🙂 i want to learn how to open the item that is listed in the listbox like for example 3 item in listbox and every item
has a corresponding worksheet. after i select the item it opens a new workbook and show the data 🙂
Share 
Reply to In Kev
Philip

I tried the macro for protecting only cells with formulas. It worked well for the sheet that was active at the time but could not
protect any cell with a formula in the next sheet, even when I tried to run it while opening that next sheet. What can I do to use it in
more than one sheet.
Share 
Reply to Philip
joseph

how to separate dollar sign and number on different columns. Thanks

Share 
Reply to joseph
Adam Ghazali

u can just use “Text to column” in DATA tab..cut the separate column
Share 
Reply to Adam Ghazali
Rashul Upadhyay

Hi,
I work for a Finance company, i need an solution where, multiple sets of data values gets pasted to resultant sheets and also
calculates the values against them, under conditions.?

Please can you help me out with a suggestion?

Share 
Reply to Rashul Upadhyay
bnj198904

I work in a finance-related field, yet no one understands the value of (or knows how to build) models to do a lot of the work for us
rather than inputting everything manually. At the moment, I’m trying to convert a bank reconciliation that takes 5 or 6 separate
spreadsheets into a maximum of 3… preferably 1, but that’s ambitious. I came from another company that already had complex
models created, but now I’m in the position of knowing how valuable they are without the extensive enough excel knowledge to
build them how they should be built (I can do simple models).

I’m not sure if VLOOKUPS or Macros or a combination of both are my best solution. What I do know is that a series of sums and
manual entries won’t do the trick.
Anyone able to help??
Share 
Reply to bnj198904
Erika

Check out the group execl for freelancers on Facebook. Invaluable

Share 
Reply to Erika
rodney

I would like to take copy of cells in an invoice, eg. customer name, address, amount due etc. These are in a contiguous state on
invoice and I want to transfer VBA to sheet 2 to make a data base.
Share 
Reply to rodney
sagar

How can I run macro by changing cell value….

Cell value is trigger for macro ??
Share 
Reply to sagar
taufiralam

Hi, I need a macro code to copy the an adjustant cell reference of the trace present of a particular cell.

Eg. I have 3 sheet , I two sheet there are identical text and adjusted numeric value in another column. But in 3rd sheet the text name
is little different so I can’t use vlookup here . So I want to for copy the text from 1st sheet cell and search that in 2nd sheet and go to
its trace precedants and copy that cell and past at 1 sheet
Share 
Reply to taufiralam
Khaled

Thank you
Share 
Reply to Khaled
siva teja

Private Sub CommandButton1_Click()

If Txtl = “” Or Txtb = “” Or Txtc = “” Or Txtr = “” Or Txtlpa = “” Or Txtd = “” Or Txtp = “” Or Txta = “” Or Txte = “” Or Txtw =
“” Or Txtq = “” Or Txtdl = “” Or Txtehm = “” Or Txtco = “” Or Txtbo = “” Or Txtcurr = “” Or Txtwritten = “” Then

MsgBox “PLEASE FILL ALL THE DETAILS”

Txtl = “”
Txtb = “”
Txtc = “”
Txtr = “”
Txtlpa = “”
Txtd = “”
Txtp = “”
Txta = “”
Txte = “”
Txtw = “”
Txtq = “”
Txtdl = “”
Txtehm = “”
Txtco = “”
Txtbo = “”
Txtcurr = “”
Txtwritten = “”

Cancle = True

Exit Sub

End If

If Range(“A2”).Value = “” Then

Sheets(“output”).Select
Range(“A2”).Value = Txtl
Range(“B2”).Value = Txtb
Range(“C2”).Value = Txtc
Range(“D2”).Value = Format(Txtr, “mm/dd/yyyy”)
Range(“E2”).Value = Txtlpa
If IsNumeric(Txtd) Then
Range(“F2”).Value = Format(Txtd, “mm/dd/yyyy”)
Else
Range(“F2”).Value = Txtd
End If
If IsNumeric(Txtp) Then
Range(“G2”).Value = Format(Txtp, “mm/dd/yyyy”)
Else
Range(“G2”).Value = Txtp
End If
If IsNumeric(Txta) Then
Range(“H2”).Value = Format(Txta, “mm/dd/yyyy”)
Else
Range(“H2”).Value = Txta
End If
If IsNumeric(Txte) Then
Range(“I2”).Value = Format(Txte, “mm/dd/yyyy”)
Else
Range(“I2”).Value = Txte
End If
If IsNumeric(Txtw) Then
Range(“J2”).Value = Format(Txtw, “mm/dd/yyyy”)
Else
Range(“J2”).Value = Txtw
End If
If IsNumeric(Txtq) Then
Range(“K2”).Value = Format(Txtq, “mm/dd/yyyy”)
Else
Range(“K2”).Value = Txtq
End If
If IsNumeric(Txtdl) Then
Range(“L2”).Value = Format(Txtdl, “mm/dd/yyyy”)
Else
Range(“L2”).Value = Txtdl
End If
If IsNumeric(Txtehm) Then
Range(“M2”).Value = Format(Txtehm, “mm/dd/yyyy”)
Else
Range(“M2”).Value = Txtehm
End If
Range(“N2”).Value = Txtco
Range(“P2”).Value = Txtbo
Range(“O2”).Value = Txtcurr
Range(“Q2”).Value = Txtwritten

Else:

lr = Sheets(“output”).Range(“A” & Rows.Count).End(xlUp).Row

Range(“A” & lr).Offset(1, 0).Value = Txtl
Range(“B” & lr).Offset(1, 0).Value = Txtb
Range(“C” & lr).Offset(1, 0).Value = Txtc
Range(“D” & lr).Offset(1, 0).Value = Format(Txtr, “mm/dd/yyyy”)
Range(“E” & lr).Offset(1, 0).Value = Txtlpa
If IsNumeric(Txtd) Then
Range(“F” & lr).Offset(1, 0).Value = Format(Txtd, “mm/dd/yyyy”)
Else
Range(“F” & lr).Offset(1, 0).Value = Txtd
End If
If IsNumeric(Txtp) Then
Range(“G” & lr).Offset(1, 0).Value = Format(Txtp, “mm/dd/yyyy”)
Else
Range(“G” & lr).Offset(1, 0).Value = Txtp
End If
If IsNumeric(Txta) Then
Range(“H” & lr).Offset(1, 0).Value = Format(Txta, “mm/dd/yyyy”)
Else
Range(“H” & lr).Offset(1, 0).Value = Txta
End If
If IsNumeric(Txte) Then
Range(“I” & lr).Offset(1, 0).Value = Format(Txte, “mm/dd/yyyy”)
Else
Range(“I” & lr).Offset(1, 0).Value = Txte
End If
If IsNumeric(Txtw) Then
Range(“J” & lr).Offset(1, 0).Value = Format(Txtw, “mm/dd/yyyy”)
Else
Range(“J” & lr).Offset(1, 0).Value = Txtw
End If
If IsNumeric(Txtq) Then
Range(“K” & lr).Offset(1, 0).Value = Format(Txtq, “mm/dd/yyyy”)
Else
Range(“K” & lr).Offset(1, 0).Value = Txtq
End If
If IsNumeric(Txtdl) Then
Range(“L” & lr).Offset(1, 0).Value = Format(Txtdl, “mm/dd/yyyy”)
Else
Range(“L” & lr).Offset(1, 0).Value = Txtdl
End If
If IsNumeric(Txtehm) Then
Range(“M” & lr).Offset(1, 0).Value = Format(Txtehm, “mm/dd/yyyy”)
Else
Range(“M” & lr).Offset(1, 0).Value = Txtehm
End If
Range(“N” & lr).Offset(1, 0).Value = Txtco
Range(“O” & lr).Offset(1, 0).Value = Txtbo
Range(“P” & lr).Offset(1, 0).Value = Txtcurr
Range(“Q” & lr).Offset(1, 0).Value = Txtwritten

End If

Txtl = “”
Txtb = “”
Txtc = “”
Txtr = “”
Txtlpa = “”
Txtd = “”
Txtp = “”
Txta = “”
Txte = “”
Txtw = “”
Txtq = “”
Txtdl = “”
Txtehm = “”
Txtco = “”
Txtbo = “”
Txtcurr = “”
Txtwritten = “”

End Sub

Private Sub Txtb_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If IsNumeric(Txtn) > 50 Then
MsgBox “pls fill text only”
Txtn = “”
Cancel = True
End If

End Sub

Private Sub Txtb_Change()

End Sub

Private Sub Txtl_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If Len(Txtl) > 8 Then
Txtl = “”
MsgBox “please 8 chr numric only ”
Cancel = True
End If

If Not IsNumeric(Txtl) Then

Txtl = “”
MsgBox “please numeric values”
Cancel = True
End If
End Sub

Private Sub Txtl_Change()

End Sub