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
So 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.
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).
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." & " "
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 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
Below 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.
In 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".
I 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.
My 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
I am using the following code (thanks to Leith Ross) to display a row of cells in a messagebox based on the row number entered by the user via an input box;
This is the only sheet that the users this is distributed to can see. The top two cells are dropdown boxes where users select what they need, then the rest of the table populates based off of those. It pulls info from this table:
My question is regarding the special notes. Sometimes the notes can be fairly lengthy so it doesn't display properly in the cell and even if it did it would be HUGE. So my question is: is it possible to create a hyperlink that when clicked would open up a message box containing the special handling notes in the table?
I have a shape with a macro assigned to hide certain columns when clicked. I want to have a box pop up when you hover this button which explains what clicking the button will do.
I know the VBA code is called MouseMove but I am new to VBA and don't know where to even start.
Could I get the code for creating a message pop up in case a particular character is typed in a cell. eg Typing in "3" should throw a pop up msg saying "Not allowed"
