Automating email using an If

L

Lizard07

Board Regular
Joined
Jul 20, 2011
Messages
103
I am trying to setup an automated email list each morning but I need to send out multiple emails to different contacts depending on what a specific cell indicates.

For instance, if a cell in column F says "PICY" then I need it to copy the adjacent cell's content in rows B and C into the email after the body message. The text in column F will also determine who the email is sent to. I have about 10 different cell options for column F that will determine who the email is sent to and what cell information is copied after the body message.

Sub SendStatusUpdateEmail()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
ActiveWorkbook.Save
CurrFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
With olMail
.To = "aslkdfjlkja@mail.com"
.Subject = "Status Update"
.Body = ActiveSheet.Range("E2").Text & vbCrLf
.Display '.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub
 

Excel Facts

Select a hidden cell
Somehide hide payroll data in column G? Press F5. Type G1. Enter. Look in formula bar while you arrow down through G.
Sort by date Sort by votes
im sorry but there doesnt seem to be a question here...

can you give us more detail about what you need help on and if it has to do with the data in colums maybe an example?
 
Upvote 0
This is what the excel spreadsheet looks like

<TABLE style="WIDTH: 298pt; BORDER-COLLAPSE: collapse" border=0 cellSpacing=0 cellPadding=0 width=398 x:str><COLGROUP><COL style="WIDTH: 51pt; mso-width-source: userset; mso-width-alt: 2486" width=68><COL style="WIDTH: 32pt; mso-width-source: userset; mso-width-alt: 1572" width=43><COL style="WIDTH: 93pt; mso-width-source: userset; mso-width-alt: 4534" width=124><COL style="WIDTH: 77pt; mso-width-source: userset; mso-width-alt: 3766" width=103><COL style="WIDTH: 45pt; mso-width-source: userset; mso-width-alt: 2194" width=60><TBODY><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: #666699 0.5pt solid; BORDER-LEFT: #666699 0.5pt solid; BACKGROUND-COLOR: #ccccff; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: #666699 0.5pt solid; BORDER-RIGHT: #666699 0.5pt solid" class=xl63 height=17 width=68>Shipment_ID</TD><TD style="BORDER-BOTTOM: #666699 0.5pt solid; BORDER-LEFT: #666699; BACKGROUND-COLOR: #ccccff; WIDTH: 32pt; BORDER-TOP: #666699 0.5pt solid; BORDER-RIGHT: #666699 0.5pt solid" class=xl63 width=43>PO</TD><TD style="BORDER-BOTTOM: #666699 0.5pt solid; BORDER-LEFT: #666699; BACKGROUND-COLOR: #ccccff; WIDTH: 93pt; BORDER-TOP: #666699 0.5pt solid; BORDER-RIGHT: #666699 0.5pt solid" class=xl63 width=124>Origin</TD><TD style="BORDER-BOTTOM: #666699 0.5pt solid; BORDER-LEFT: #666699; BACKGROUND-COLOR: #ccccff; WIDTH: 77pt; BORDER-TOP: #666699 0.5pt solid; BORDER-RIGHT: #666699 0.5pt solid" class=xl63 width=103>Destination</TD><TD style="BORDER-BOTTOM: #666699 0.5pt solid; BORDER-LEFT: #666699; BACKGROUND-COLOR: #ccccff; WIDTH: 45pt; BORDER-TOP: #666699 0.5pt solid; BORDER-RIGHT: #666699 0.5pt solid" class=xl63 width=60>Carrier</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000001</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver 0.5pt solid; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>PICY</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000002</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000002</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>PICY</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000003</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000003</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>JOHC</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000004</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000004</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>NGTI</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000005</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000005</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>HUTK</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000006</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000006</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>JOHC</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000007</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000007</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>VRJT</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000008</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000008</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>VRJT</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000009</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000009</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>VRJT</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver 0.5pt solid; BACKGROUND-COLOR: transparent; WIDTH: 51pt; HEIGHT: 12.75pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 height=17 width=68>CS000010</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 32pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=43>000010</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 93pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=124>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 77pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=103>NA</TD><TD style="BORDER-BOTTOM: silver 0.5pt solid; BORDER-LEFT: silver; BACKGROUND-COLOR: transparent; WIDTH: 45pt; BORDER-TOP: silver; BORDER-RIGHT: silver 0.5pt solid" class=xl64 width=60>VRJT</TD></TR></TBODY></TABLE>

First - I will need to send an email to each carrier. Second, I would like the body of each text to contain the adjacent PO and Shipment_ID. For instance, in the PICY email, I need it to find each PICY row and copy the PO and SHipment ID into the email body. IS this possible? I've created a separate pivot table for each carrier as well and tried to copy the entire pivot table into the email body. ANy other suggestiosn or work-aroudns are welcome.

Thanks
 
Upvote 0
Hi,
thanx for clearing that up. I will make a test workbook and have a play. Is possible for sure just going to see how id do it :)

sorry one last questions - the data can be varying in size correct? like more than 10 rows to less than 10? and do you want the emails to show automadically and send without noticing (except a box that says done)
 
Last edited:
Upvote 0
ok the below will do it for you but sending to a specified address in the code. this is easy to change but depends how you wish to do it

can make it pick up from another coloum would be easiest or look it up in another sheet that has PICY and address next to it or hard coded if you only have a few carriers... please let me know and I will change acordingly

Code: 
Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim user As Variant ' email address
    Dim body As String
    Dim lngRows As Long
    Dim carrier As String
    Dim count As Long
    Dim body2 As String
    lngRows = Range("A2").CurrentRegion.Rows.count
    count = 2
    
    user = "[EMAIL="user@unknown.com"]user@unknown.com[/EMAIL]" 'insert you email to test values
      Do Until count = lngRows + 1
    
     carrier = ThisWorkbook.Sheets("Sheet1").Range("D" & count).Value
    body = ThisWorkbook.Sheets("Sheet1").Range("A" & count).Value
    body2 = ThisWorkbook.Sheets("Sheet1").Range("B" & count).Value
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = body & vbNewLine _
                & body2
    On Error Resume Next
    With OutMail
        .To = user
        .CC = ""
        .BCC = ""
        .Subject = "Shipment"
        .body = strbody
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
    count = count + 1
    Loop
    MsgBox ("Emails Sent For:" & " " & count & " " & "Shipment ID")

hope i make sense, any questions happy to help

cheers
 
Upvote 0
OK great, I'll test the code out now. To solve the email address issue, perhaps I could create a separate button/macro for each carrier. One button for PICY, one for VRJT, etc...

Thank-you for your work, I'll let you know how it goes
 
Upvote 0
If those are all you have then a slight addition to the code is all you need (eg an if statement) kind of like

If Carrier = "PICY" then
User = "email@email.com"
Elseif carrier = "JOHC" then
User = "differentemail@email.com

Etc etc
 
Upvote 0
inbetween the two lines below

carrier = ThisWorkbook.Sheets("Sheet1").Range("D" & count).Value
'insert if statement here
body = ThisWorkbook.Sheets("Sheet1").Range("A" & count).Value
 
Upvote 0
When I run the macro a message pops up saying "a program is trying to send an email on behalf of you, would you like to allow this." I select yes and it then says an email has been sent, but I don't receive anything. Is there some type of setting in outlook I need in order to run this type of macro (see code below)?

Sub Send_StatusUpdate()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim user As Variant ' email address
Dim body As String
Dim lngRows As Long
Dim carrier As String
Dim count As Long
Dim body2 As String
lngRows = Range("A6").CurrentRegion.Rows.count
count = 2
carrier = ThisWorkbook.Sheets("Sheet 1").Range("C" & count).Value
If carrier = "PICY" Then
user = "email@email.com"
ElseIf carrier = "JOHC" Then
user = "email@email.com"
End If
body = ThisWorkbook.Sheets("Sheet 1").Range("A" & count).Value
body2 = ThisWorkbook.Sheets("Sheet 1").Range("B" & count).Value

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = body & vbNewLine _
& body2
On Error Resume Next
With OutMail
.To = user
.CC = ""
.BCC = ""
.Subject = "Status Update"
.body = strbody & ActiveSheets.Range(f2)
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
count = count + 1
MsgBox ("Emails Sent For:" & " " & count & " " & "Shipment ID")

End Sub

Thank-you
 
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Question Question
code to include a column or more based on checkbox
Replies
6
Views
146
mecerrato
M
M
  • Question Question
Add text before pasting pic in outlook
Replies
2
Views
88
DanteAmor
DanteAmor
P
  • Question Question
Issue opening Outlook with VBA
Replies
1
Views
283
rlv01
R
K
  • Question Question
Can you please explain why this code getting error while running
Replies
2
Views
241
Joe4
Joe4
S
  • Question Question
VBA sending an email of two conditions are met
Replies
5
Views
232
mumps
mumps

Forum statistics

Threads
1,224,522
Messages
6,179,297
Members
452,903
Latest member
Knuddeluff

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top