I'm trying to make a msg box with ok and cancel buttons. The cancel button should continue the macro, the ok button ends the macro. I'm new to making message boxes.
I keep getting a compile error and it says it expects =
Here's what I have so far:
If WorksheetFunction.CountBlank(Intersect(Columns("I"), ActiveSheet.ListObjects(1).Range)) Then
MsgBox(Prompt:="Enter a status, moron. Click Ok to return and add a status, click Cancel to throw caution to the wind and continue",buttons:=vbOKCancel, title:="blank status")
If Answer = vbOK Then Exit Sub
I also don't know if my End Ifs are in the right places. I haven't been able to test my code because I keep getting this compile error.
Here is my Private Sub Workbook_Open() Select Case MsgBox("my question?", vbYesNoCancel) Case Is = vbYes 'Yes Code will sort Moistures and Owners Case Is = vbNo 'NO code will sort Moistures and Fields Case Is = vbCancel ' Will Sort neither and allow for data entry Case Else Debug.Print "Whoops" End Select End Sub
I want to rename the Yes, no, and cancel buttons to Pay Owner, Field Close Out, and Data entry.
I'm using excel 2010. I have a spreadsheet with a row that is hidden. One cell in this row contains a button. I have a macro that copies this hidden row, inserts it at another point on the spreadsheet and unhides it. It works great in excel 2007, but the button on the hidden row disappears when I close the sheet and re-open it.
My problem is I cannot copy from a Form Control drop down box, and I need to do this for ~10 drop down boxes in about 200 xls files. The files follow a template so the drop down button Inputs are uniform. Here is some more detail:
I’m building an Access Database so that our data (currently in many, many Excel Spreadsheets) can be efficiently queried. The old system was that when asset data was collected, the data would be entered into an Excel spreadsheet, using a Template. So for example:
Name Main Street Pipe High Street Pipe
Ref No. 12345 12346
Installation date 22/08/13 19/07/12
X Coordinate 55667 99212
Y Coordinate 77889 12364
We have hundreds of these files, but I managed to get all the files in one folder and Paste and Transpose the data from the relevant Cell Ranges in each file (using a VB sub) into ONE summary sheet. Success; or so I thought.
Unfortunately for one generation of the template (people changed them slightly every year), the template had people enter information into Drop Down Menus. Not a problem when they’re associated with a cell, but these were free floating Form Controls.. so you can’t actually click and copy from them, or call them in VB as you would a specific cell.. afaik.
So my issue is how can I extract the data from those Form Buttons? I’ll try and provide as much info as I can:
Firstly I tried to find some sort of identifier for each Form Button. The dropdowns are called Combo Boxes, (Developer tab > Insert > Combo Box (Form Control) ), and when you select them (by right clicking) and hit the View Code button in Developer Tab > Controls the following shows up in VB.
I’m guessing that the number is related to the button so that’s one useful thing, an identifier of sorts. There’s no actual code there though really from what I can see.. My problem is I have no idea how to extract from DropDown44!
The range of values in the drop down comes from a separate sheet where there’s just a list of the values. There aren’t any cells linked to the drop downs though. If I enter a cell in (Right Click) Format Control > Cell link: then it prints the number (e.g. 4) of the value in the range. So if the drop down options are “Monday”, “Tuesday”, “Wednesday”, “Thursday” and “Thursday” is selected, the linked cell says: “4”.
They didn’t link a cell, then I could call that cell in a VB sub and the job would be done. Unfortunately they didn’t, so I tried Recording a Macro and selecting the drop down form control.. That didn’t really work, except if I right clicked it, I got some more info from the macro VB:
ActiveSheet.Shapes.Range(Array("Drop Down 19")).Select
So is my drop down an Array? My understanding of an Array is that it’s a list of arguments.. all I get there is the name of the button. I am not experienced in VB so this is as far as I’ve got. Perhaps I can get a sub to select the button using the above line, but I need the info from it, i.e. which value is currently selected in the Drop Down.
(Using Excel 2010 but the .xls files are from ~2005)
I am trying to send bulk emails from my excel 2010 - however I am getting a POP UP. find the screen shot in the enclosed word document So every time a new mail is sent from excel we need to press the button allow Is there a way where I can turn off this warning.
I have an Excel 2007 template which is used for data entry. I want to disable cut, copy and paste functionality and have disabled shortcut keys via VBA and used CustomUI to leave a bare ribbon. However, a user can still add cut, copy and paste buttons to their quick access menu. Any way to prevent this?
I have written a piece of VBA code which I want to assign to a button in the front end of excel, however once I assign it and then press the button to run the macro (which works) I am not able to then press it again incase I need to re run it?
I have a workbook created in Excel2003 as an xls with a nuumber of buttons to call macros. I converted it to an xlsm in Excel2007 and now get the message "((#Ref.xls could not be found..." whenever I click any of the macro buttons. Event code in the individual worksheets works fine.
I am trying to create a worksheet that has multiple radio buttons. Each radio button is linked to a Macro. I need there to be many buttons running down one side of the worksheet. Each button needs to perform a macro that is relevant to the cells in the same row that it is on.
Essentially what i am trying to do is make a macro that when the button is pressed copys data from H6 and paste it into B6. The button is situated above I6. I need a button for each row from 6 to 110.
While this macro is easy to create (i use the record button and then assign the macro to the button), i would have to do this 104 times and assign a new macro to each button.
Is it possible to change the color of buttons or command buttons? There does not seem to be any place that allows this under properties for buttons, although there does for command bars. However, I've tried recording a macro as I change the color, but nothing get's recorded so I'm not sure what the syntax would be.
I have a spreadsheet with several buttons and I'd like them to change colors as they are pressed so it's possible to see what you've already done. And then, as soon as any other cell on the sheet is changed, the buttons reset color.
I created some excel 2003 spreadsheets to use for Fire/Police dispatchers. I have a series of yes/no option buttons that were created using the control toolbox. I have a macro that clears all the blanks where text is added, but want to add a line that clears the option buttons also.
I have created a macro in excel 2010 which enable the file to save (extract) data into separate location and name. The vba code for macro is as follows: Question: How can I save this workbook with reference to the value containing in cell B2? (it is named temporary now - as defined in the code)
Recorded macro. The hope is to insert a excel formatted table a set number of times. I have found a loop code that references a Cell A1 and repeats that amount of times. So if A1= 10. There should be 10 tables inserted. However on the second time there is a fault with the table name. I need the name to change each time the loop is run. ie Table1, Table2, Table3 etc up until the loop stops (A1 contents).
I am using excel for windows 2010. The macro that i have so far is below.
Sub LoopTest() Dim n Dim V Range("A1").Select V = ActiveCell.Value
I have several option groups (Y & N in each) linked to cells to display TRUE / FALSE depending on which option is selected in each group. I have another cell which I want to apply conditional formatting to if EITHER Y or N is selected in all groups. At present I use COUNTIF to check for FALSE=0 in the linked cells which works if all the answers are Y. How do I apply CF if there is a mixture of Y & N (TRUE / FALSE) in all groups (I'm not sure if I've explained that well or not).
How can I disable the cancel button when the user is prompted to do a "save as"? I need to force the user to name the file and save it to the appropriate file - if they are allowed to cancel I run into problems with my macro.
I have an input box which has OK and cancel buttons If the user clicks cancel I would like to routine to end, which I can do with exit sub. However this particular sub routine has been called from another so the rest of the code continues. Is there a way of exiting all the routines on cancel -- or a neater way than exit sub ?
If I press either the "OK" or "Cancel" button without entering any states in (because I changed my mind and want ALL states in there, or I pressed either button by accident), the macro eliminates ALL the rows because it needs criteria.
Can this code be modified so that the message box does the following...
1. If I press the "OK" button but I haven't entered in any criteria in the message box, bring up another message box saying "you have not entered in any states in" which brings up an "OK" box and brings you back to the original message box.
2. If I hit the "Cancel" button, bring up a message box that says "No states will be removed" with an "OK" button, essentially cancelling the "State" macro portion of the sub, but continuing with the rest of the code in the sub if there is any.
I would like to have this message box work this way even if states were entered in the input box but the user pressed the "Cancel" button anyway.
3. Create a NEW button named "Keep ALL States" which essentially does the same thing as the "Cancel" button. (I'm trying to "idiot proof" this).
i have a code that i am using but however when I click on the cancel it is giving me a false in the cell when all I am want is to cancel and leave the information in the cell. Here is an example of the code i am using.
I have a code that prepares my spreadsheet and then prints out around 6 different sheets when all is said and done. The prints are not together in the code. I was wondering if there is something that I can add at the beginning of the code to ask the user IF they want a Printout. If they answer Yes then they get printouts of the 6 or so sheets and if they answer No then the code will run but no printouts occur???
I have play3ed around a bit and implemented the following in one of my codes but this one only has 1 sheet that prints out.
'Checks to see if this is a corrected Deposit in which case Depositor probably has a Verification sheet already printed
If Sheets("Input Sheet").CheckBox5 = True Then
Answer = MsgBox("It's seems that this Verification sheet was already printed once. Do the Corrections you have made require you to print another one?" & vbCr & vbCr & "If you reuire the Verification sheet to print again the please click YES otherwise click No.", vbYesNo, "PRINT Out Required???")
I would like some help on disabling the Esc key in a macro and to disable the Cancel button and X on message and input boxes.
My macro is to insert rows in a protected worksheet and another to run a spellcheck, if my users hit any of the above keys during the macro my worksheet is left unprotected and formulas could be deleted in error. I have pasted a copy of my code below,
Sub InsertRowAboveCopyFormulas() ActiveSheet.Unprotect ("password") Dim Rng, n As Long, k As Long Application.ScreenUpdating = False Rng = InputBox("Enter number of rows required.") If Rng = "" Then Exit Sub On Error Resume Next ActiveCell.EntireRow.Select Selection.Resize(rowsize:=Rng).Rows(1).EntireRow. _ Resize(rowsize:=Rng).Insert Shift:=xlUp Selection.Offset(Rng).AutoFill Selection.Resize( _ rowsize:=Rng + 1), xlFill Selection.Resize(Rng).EntireRow. _ SpecialCells(xlConstants).ClearContents ActiveSheet.Protect ("password") End Sub