Message Box Reply
Jan 3, 2009 my message box reply.
In cell e14 I have the following formula =IF(D14
my message box reply.
In cell e14 I have the following formula =IF(D14
I have a macro which sends an excel file to certain recipients via outlook. I have embedded the voting buttons in the same macro. However, when I respond to the voting buttons, I am unable to add the sender and another group. The current macro .readrecipients, enables me to send it to the sender. I would like to add another group id to the same.
View 1 Replies View RelatedI am currently trying to automate a receipt system. I have successfully managed to create an email based on calculated Excel data. The email is created using the following routine.
callref="12345"
strbody = "The main text of the email"
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "John Smith"
.BCC = ""
.Subject = "Test email receipt - " & callref
.Body = strbody
.Display 'or .Send - still developing!!!
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
My problem is that there will be several people using this system so I would like to include a reply address which is different from the sender. Alternatively, I would like to send the email from a different account (but I have to assume that the users will have their own email accounts open).
I’m currently writing a code, which will enable me to run a code, which will reply to a selected email with standard text in the cc, subject, body, and so on.
The code that I managed to write creates a new email message, instead I want the code to select "reply to all" to the email that I’ve selected, and then fill in the cc, subject, body, and so on.
Sub test()
Dim msg As Outlook.MailItem
Set msg = Application.CreateItem(olMailItem)
msg.Display
msg.CC = "test@hotmail.com"
msg.Subject = "testing!"
msg.Body = "hello all" & vbNewLine & vbNewLine & "We agree to your call..."
End Sub
I am using PrimoPDF, as suggested elsewhere in the forum, to attach a PDF to an E:Mail and send it automatically, it works a treat ... however, I do have to manually intervene to click on the OK button & then again to click on YES when the filename is duplicate. I would like to automate these actions and am looking for a way to do it. It looked like the SendKeys command was perfect, but I'm not 100% sure how to do it. The PrimoPDF window is open, named as "PrimoPDF", but is not my active window, so I have put PrimoPDF.SendKeys "{Enter}"
... into the program but I am getting the error message "Run Time Error '424': Object required". Is this something to do with my code ? I am guessing that the program isn't recognising that PrimoPDF is an open & inactive window, so am I missing a prefix here or is it something more serious, like having to add a new Component or Additional Controls ?
Is there any way someone can put the option of "SOLVED" on the post reply when you are the orginal poster.
Now you have to reply to the post then go back into your orginal post to mark it solved. they would be more willing to mark the thread solved. I have noticed many people get an answer and never respond or mark solved.
How do you add icons into a message box. ie a warning triangle etc.
View 3 Replies View RelatedSo i would like a message box to appear upon opening that asks the user "Are you sure this is the most recent copy of this workbook?"
Click Yes would simply close the message box and allow user to continue
Click No would close the workbook immediately without saving and also without prompting to save ( i have =TODAY() function within the workbook so the workbook will instantly be different from the current saved file and will for sure prompt the 'Exit without saving' warning box
Office 365 is my setup if that makes a difference.
I need to trigger a message box if 2 conditions are met: A1>1 and A2>1 Message "Limit Exceeded".
On searching I've found some code but can't get it to work;
Option Explicit ....
I have the following spreadsheet
Column A-------------Column B------------Column C
Invoice No.-----------Part Number---------Classification
8200001733----------LX+150SV-----------9010.90.9000
---------------------SE+68763001--------8501.31.4000
---------------------GJ+1000-------------8528.30.8040
---------------------LX+150SV-----------9010.90.9000
---------------------GJ+1055-------------9013.30.2020
---------------------SE+2222-------------" "
---------------------GJ+67210------------8419.39.3311
---------------------GJ+100217-----------" "
What I need is two sets of VBA Code and 2 message boxes for the above scenario:
If Range C3:Last row contains a blank cell then Message Box ("WARNING: All items are not classified" refer too C6 and C8)
If Range C3:Last row contains "8528" or "9013" then Message Box ("WARNING: There is an FDA/FCC requirements for this file refer to C4 and C5 - create an Attachment from the scan folder and save as Attachment3-FDAFCC documents).
Is it, by any means, I can display the value of a cell adjacent to a match in a column range in a message box ?
I am searching for the answer to this question past 1 hour on the internet !
As part of a macro I would like to add a piece of code that will make a pop up window appear, something like: "Please open the file ABC"
Can someone tell me what code should I add to my existing macro ? (I have just recorded the macro as I am do not know coding)
I need a VBA script that will allow an input either Text or Numerical and then search an entire workbook (5 sheets) and find it. It would be nice if it posted the information on the 1st sheet from where the macro will be run, Then I could use VLOOKUP and retrive the rest of the information.
I have a workbook with a ton of Purchase order Numbers, Vendors Name, Work Orders etc... and I have to search through them regulary. I have used the FIND button and it works, but when I try to record a macro with it I get stumped. Im Sure this is easy for you GURU's that program for a living, but for me, well.....Lets just say I am at a loss. I have tried this:
Sub FindPON()
Dim MyPON As Variant
MyPON = InputBox("Please enter your search criteria")
On Error Resume Next
Range("frmParts").Find(What:=MyPON, Lookat:=xlWhole).Activate
End Sub
I do not want to use comments box or data validation
I want to use a macro
cells C14, C32, and C49 are drop down list
If user selects "MFRHTC" from drop down list in either one
I want a message box to pop up and end when user clicks the OK button
this is what I currently have but is NOT Working
If Not Application.Intersect(Range("C14, C32,C49"), Target) Is Nothing _
And Target.Count = 1 _
And Target.Select = "MFRHTC" Then
Msg = "Units will provide the following in order to have ammunition Fed Ex to HTC's " & vbCrLf
Msg = Msg & "" & vbCrLf
Msg = Msg & " POC" & vbCrLf
Msg = Msg & " Unit ship to Address" & vbCrLf
Msg = Msg & " Phone Number" & vbCrLf
Msg = Msg & "" & vbCrLf
Msg = Msg & "" & vbCrLf
Msg = Msg & "Input the required info in the Comments Box"
MsgBox Msg, vbInformation, "FED EX AMMO INFO REQUIRED"
End If
End Sub
When a workbook is opened, is it possible to have a "welcome" message appear before the worksheets can be accessed?
I would like to create a "message" and two boxes that say "enter your name" and "enter your password".
These will be dummy boxes, but the user wont know that
I have following code to pop up the message box, but it does not pop up itself, I have to run the macros evry time. Is there any solution.
All I want if in Cell "C20" has the message " Check your Margin" than the message box pop up and should have the message as defined in my below code. Also, is this possible that the message should come in one box.
Private Sub Find_Criteria()
Dim i As Variant
Dim FindRange As Range
Set FindRange = Range("c10")
For Each i In FindRange
If i = "PLEASE CHECK YOUR MARGIN" Then
MsgBox "a) Check Provisional Sum allowances and Discounts"
MsgBox "b) Check with Brian if a base price review was required and missed"
MsgBox "c) Check for double ups in Timberline"
MsgBox "d) Check all big ticket items in Timberline ie. Trusses, bricks, plaster, paint and Site Works)"
MsgBox "d) Check if any items were underpriced in the contract and provide feedback to Brian"
MsgBox "e) Review and discuss any allowances with me." & " "
End If
Next i
End Sub
I've got a Macro that, when activated, allows the user to cancel a demand and highlight that row red when completed, here's the
Sub Cancel_DMD()
Dim datatoFind, sRemark As Variant
Dim sheetCount As Integer
Dim counter As Integer
Dim currentSheet As Integer
Dim searchRange As Variant
currentSheet = ActiveSheet.Index
datatoFind = InputBox("Demand Number To Cancel {(}Ensure correct Demand No. entered{)}:")
If datatoFind = "" Then Exit Sub
sheetCount = ActiveWorkbook.Sheets.Count
I also need to insert a MsgBox that pops up before exiting. The MsgBox needs to be in two stages, the first will ask "Have you contacted the Demands Clerk to cancel?" with "Yes" or "No" buttons. If "Yes" is clicked, then the macro completes and exits, if "No" is clicked, then the sencond stage will appear.
I am wanting a pop up box to appear when a certain value is reached in my worksheet.
My worksheet is a schedule of training, and we have the same columns duplicated over monthly tabs, i want a message to appear if a certain column named " Trainers" has reached 30. Would this be possible? I would like it to pop up with what cell it is that has reached this number.
I ve a formula in cell A2 of Sheet1. Say now formula value is 10,000,002 (this will change based on other calculation).
What I need is, whenever cell A2's formula value will become greater than 10 M, following pop up message will be shown: ....
Is there a way to add a message pop up in Excel to say that whenever cell c9 is > than .90 the pop up message should say "Please create exception"?
View 9 Replies View RelatedI have a list of products ranging from A2:A28. I have a formula which randomly selects 1 product from this list.
=index(a2:a28,randbetween(1,counta(a2:a28)),1)
and it works fine.
My question is whether or not i can output the results of this formula into a message box?
Title: Your Selected Product Is:
Results: forumla above
Buttons: OK
I have a lot of links on my excel page, links going to videos. Everytime I click the link, I have this message :
"there might be viruses... are you sure you want to open this file?"
I know there must be a way to take this message off : I worked with it for months, and then it suddenly disappeared. But now that I formatted, it's back again
message box properties. i m using this
View 3 Replies View RelatedBelow is a message box with an input bar inside the message box. I am able to put a prompt message on top of the input bar but i am finding it difficult to enter another message underneath the box. I want to have the text "Continue?".
[Code] ......
This is what the promt message with the input box looks like : Untitled.png
So basically right underneath the input bar i would like to have the word "Continue?"
I would like a macro that prompts a user to title the first row of a worksheet. My coworker told me to use a message box with a defined input variable, but I have no idea how to do that.
View 14 Replies View RelatedIn my macro, can I make a message box pop-up if any cells in 2 different columns (in the same row) meet certain criteria?
More precisely, in any given row, if Column G is "0", and Column K contains, but is not limited to "out of stock", I need a message box to pop up saying something like "Please review line items showing out of stock". Then the user should be able to click OK and the macro will continue to run.
Is there any code available for a floating Message Box instead of Standard Message where by the user can scroll the sheet and decide to choose "Yes" or "No".
View 4 Replies View RelatedI have got a macro link to a button - but I would like a box to pop up saying warning do you want to do this etc etc - the person has to then yes in the box (then potentially) click on ok for the rest of the macro to run. As a fall back there would be a cancel option on the box.
View 2 Replies View Relatedi need a vba code that a given time will open a message box saying go for a tea break
View 7 Replies View RelatedMy problem: get a cell to produce a pop up message when it exceeds a
certain value and do not restrict the entry value?
I tried Data - Validation but have had no luck.
The details (much simplified) are these:
I want to multiply B2 x A2 and if the answer exceeds $2499 have a pop up
message appear. Is it possible to have the pop up ocurr while inputting data
into B2 or only after "entering" or when B2 has been reselected.
A B
1 qty unit cost
2 1 $1250
WHAT IS THE METHOD OR FORMULA?