I'm trying to setup vb message box code on a group on cells so it looks at cells that doesn't belongs to 'ortho'. I want the message box to appears when it's not 'ortho'.
Cells between A1 to A10 will show ortho, but if one of those cells contains a different text when entered (a human error), this is where a would like the message box to appear saying something like 'Title name "Error Group"; 'message saying "this person is not part of this group"
Does anyone know if there is a way of sending SMS text messages from excel?
And if there is can this be automated from within VBA so that the OnTime method could be used?
I've got a messagebox in my VBA code and I would like to bold the title of the filename that I've stored in a variable. My message box code (even though you probably don't need to see it) is as follows:
MsgBox ("There has been error. Please check the file - " & strFile & " and make sure there are no #REF errors." & vbCrLf _
& "If there are, correct the errors, save the workbook and regenerate the report. If the error still persists, reboot your machine and try again.")
Is this possible, and if so, how would I go about bolding the strFile variable?
Is there a quick Macro I could use to rearrange text in a cell. For example our organisation list all the departments in an unconsistant way and it makes finding the departments hard using A-Z. For example some department will say "Department of ...", "Dept of ...", Division of ..." or "Div of ...". (Obviously excluding the quotes).
What I wanted to know is this. If you highlight the range you wish to work with, could you use a message box to ask you what text you wish to edit and then automatically search the range and make the changes.
For example search for "Dept of " (note I would need to keep the space after of otherwise I would have leading spaces) so that "Dept of ABC" becomes: "ABC, Dept of" and say "Division of XYZ" becomes "XYZ, Division of"
How to send a range of cells in a sms text message by using Visual Basic for Applications in Excel?
BTW: I really need this to work for my job! So any feedback would be greatly welcomed. Please read below to understand what I'm trying to do. I need to be able to send my guys their daily goals via sms text message:
The following works great for sending a range of cells in a email message: ....
Can data validation be used to enter a text message if no numeric value is entered in the cell?
I want to force the cell to have to be populated with a number and if not show "--".
I want to be able to specify inside the message the word that is in cell F6. So it would say "You Must Give A Reason For The Amount Of Mgr Voids For Shawn"... shawn being the name in cell F6.
If Range("F9").Value > 50 Then
MyInput = Application.InputBox("You Must Give A Reason For The Amount Of Mgr Voids For This Employee")
If MyInput = "" Then End
If MyInput = False Then End
ActiveSheet. Unprotect ("13792468")
ActiveSheet.Range("F9").AddComment
Range("F9").Comment.Visible = False
Range("F9").Comment.Text Text:="" & Chr(10) & (MyInput) & Chr(10) & ""
ActiveSheet.Protect ("13792468")
End If
iam trying to hightlite the textbox text after the error message.
Private Sub txtRoofWidth_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(Me.txtRoofWidth.Value) Then MsgBox "Use numbers only", vbCritical, "RoofWidth"
With txtRoofWidth
.SelStart = 0
.SelLength = Len(txtRoofWidth)
End With
Frame23.Visible = False
End Sub
In a range of cells (e.g. B26-B40) I have names (first name and second name or first initial and second name). This data is carried from sheet 1 to the second sheet via formula. Some cells may be blank as well.
A VB code to display a message when the user changes the name in any of these cells with data or adds a new name to a cell that is blank, in sheet2
A user inputs a string into a message box. A particular cell on a worksheet is then given the value of this string. I would like to have this cell automatically format to Wrap Text if the string is longer than 100 characters and skip to the next line after each 100 characters. However, if 101th character is part of a word, then that word would be on the next line. If the string is less than 100 characters then the cell is simply given the value of the inputted string ( I know how to do this )
View 3 Replies View RelatedI am having trouble with copy-paste-from-outlook-to-excel routine. Is there a way where I can get a certain text (or numbers, perhaps) from an outlook email message and transfer it to an excel? It is fine to copy and paste one or a hundred emails, but it already exceeds 30 thousand email messages. I just wanted to know is there is a way for me to simplify my work through VBA.
Here is a sample of the email body:
"The lead with phone number 1231234567 is in the federal DNC list and has been rejected. We apologize for any inconvenience this may have caused. This email was automatically generated, please do not reply to it."
In this email body, i wanted to get only the number 1231234567 and paste it in the excel.
I have a file that the user selects and when they enter a value (in this case, a job title) into the input box, my macro looks for the value in that file. If the value is there, a msgbox pops up that lets the user know that the value was found and it then goes to that cell, displaying in the next msgbox the cell address of where the value was found. I already have the code down for this part of the macro.
My problem is what happens if the file has the same value more than once. Ideally, I'd like to display a message box that returns the addresses of both cells with the same value and then prompts the user to select one of these values as the value they are looking for. I am not sure if a msgbox or a msgbox and then an input box are most appropriate for this situation. Once the user does this, the macro continues. The rest of my macro is built on the cell where this value is, so it is crucial that I make sure there is at least one value selected. Any help is much appreciated. I have included a sample worksheet of what this situation might look like.
Here is the code I presently have for this part of my macro.
Sub GetOpenFileName()
strFind = InputBox("Please enter the job title you wish to search for:", "Search for job title in this file")
If strFind = vbNullString Then Exit Sub
With Sheets(strSheetsMainCompProfile)
If WorksheetFunction. CountIf(Range(Cells(1, 1), Cells(100, 100)), "*" & strFind & "*") = 0 Then
MsgBox strFind & " cannot be found on this sheet"
Else
I have an excel file with many worksheets. I want to get a pop up message providing definitions of different subjects when they are entered from a drop down list in a specific range within a column to improve the users understanding of the subjects.
Worksheet 1
Range (where I want the pop up message to be valid): J85:J385
Subjects from drop down list in specified range: "x,y,z"
Pop up message: "Definitions of x,y,z"
Do I have to make a new module, or write the macro in the selected worksheet? What should be the settings of the macro (general, worksheet, declarations etc.)
I've set up an email to be sent via a macro (excel 2007 and outlook) and I expanded the body of the message and it now comes up with an error "Compile error: invalid outside procedure"
It was working when I only had 4 lines and now it's not working.
strbody = "Hi," & vbNewLine &_
"abc." & vbNewLine &_
"def." & vbNewLine & vbNewLine & _
"ghi" & InputBox("Enter Response date (dd/mm/yyyy)") & vbNewLine & vbNewLine & _
"jlk." & vbNewLine & vbNewLine & _
"lmn" & vbNewLine & vbNewLine & _
"ABC" & vbNewLine & vbNewLine & _
"XYZ" & vbNewLine & _
[code]....
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