i have this code which will not open the requested userform when the messagebox yes button is selected
Private Sub UserForm_Activate()
Dim Response As Integer
MsgBox "Are Both Parapets the Same?", vbYesNo, "PARAPETS"
If Response = vbYes Then
ufmDoubleParapet.Show
End If
If Response = vbNo Then
Exit Sub
End If
End Sub
If A1 = >10 then I want to pop up the messagebox having "You are entered invalid number"
View 9 Replies View RelatedI have the following VB macro that runs after user presses OK on a userform. I don't think it's written correctly. I would like a prompt that gives two options (either yes to return a null value if they've left a field blank, or return user to a reset userform1 if they select no.)
Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "" Then
MsgBox ("You Must Enter a Part Number (eg. 1007821-12)")
Unload UserForm1
Calculate
UserForm1.Show
End If
If Me.TextBox2.Value = "" Then
MsgBox ("You Must Enter a Lot Number (eg. 6020631)")............
I have a list box where I select "Income" or "Expense". In relation to that, In the next column called "Category", I use the offset formula in " Validation". Depending on whether I choose Income or Expense, I will get different dropdown options for "Category". What I want to do is if I choose the first column combo box, and leave the second column combo box empty, or Vice Versa, I want a messagebox popup saying that I have to choose an option from the dropdown. But if both are empty fields, then do nothing. I have attached the file called "Data Validation Test"
View 7 Replies View RelatedI have a cell E1 that is actually a vlookup and returns a date. I had to custom format the cell so the value returned looks like "June 2007" instead of "39827". I am running a macro and I need a messagebox to tell the user that they are creating an email for June 2007 (which is really the variable cell E1). Problem is the message gives the date as '6/4/2007' instead of 'June 2007'. I tried using the text() function to format the cell as "mmmm yyyy" but I get a type mismatch error. Below is the code I wrote. The first way shows successful but the date as numeric. The second gives me the type mismatch error: First way:
a = Range("e1").Value
Msg3 = "You are about to create an email for " & a & ". Are you sure?" 'Define msg
Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons.
Title3 = "Create new file" ' Define title.
Response3 = MsgBox(Msg3, Style, Title3)
If Response3 = vbYes Then ' User chose Yes.
'create email
Second way (mismatch error): a = text(Range("e1").Value, "mmmm yyyy") Msg3 = "You are about to create an email for " & a & ". Are you sure?" ' Define message.
Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons.
Title3 = "Create new file" ' Define title.
check and list duplicates in a message box giving the user the option to then go and delete as necessary.
The "remove duplicates" function in excel is great but doesn't list the account numbers it actually removed.
I'm therefore having to sort Column A (account code column) alphabetically and then manually check for duplicates.
Basically, in the "Thisworkbook" code , i have some code in the Workbook_BeforeClose section. Currently , it autosaves the workbook in a folder i have specified.
However, i need to add some code.I want to check that a certain cell has a value in it before the user closes the workbook, and if the cell is empty, show a messagebox asking him to enter a value.
I know how to get a messagebox to pop up, the only thing is once the user clicks the OK button,
i need the rest of the code execution to pause, allowing him to make the change then if he clicks the "X" (top right of the screen) to close the file or application, the filesave dialog appears and he can then save the document.
how to go about this because at the moment when user clicks ok, the messagebox just disappears and filesave dialog appears and he doesn't have a chance to edit the cell.