| Home |
| Search |
| Today's Posts |
|
#1
|
|||
|
|||
Message popup
Have a button on worksheet that clears certain cells on the sheet, would like
that a message box pops up when pressed asking user for confirmation, have added below to the script on button but it clears cells regardless wether you say O/k or cancel need reposne to O/k "clears cells" or cancel " does not clear cells" Dim response As Long response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub |
|
#2
|
|||
|
|||
|
try extracting from: Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If that should help bbc1 Wrote: Have a button on worksheet that clears certain cells on the sheet, would like that a message box pops up when pressed asking user for confirmation, have added below to the script on button but it clears cells regardless wether you say O/k or cancel need reposne to O/k "clears cells" or cancel " does not clear cells" Dim response As Long response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub -- Bryan Hessey ------------------------------------------------------------------------ Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059 View this thread: http://www.excelforum.com/showthread...hreadid=395724 |
|
#3
|
|||
|
|||
|
This is what my script looks like now and it still deletes all data if cancel
is pushed Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub "Bryan Hessey" wrote: try extracting from: Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If that should help bbc1 Wrote: Have a button on worksheet that clears certain cells on the sheet, would like that a message box pops up when pressed asking user for confirmation, have added below to the script on button but it clears cells regardless wether you say O/k or cancel need reposne to O/k "clears cells" or cancel " does not clear cells" Dim response As Long response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub -- Bryan Hessey ------------------------------------------------------------------------ Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059 View this thread: http://www.excelforum.com/showthread...hreadid=395724 |
|
#4
|
|||
|
|||
|
Ahha, yes, my mistake, I should have been more clear, but I preferred to show how it worked for me (with copy - paste) rather than type in here as I type so badly. You need Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End if End Sub bbc1 Wrote: This is what my script looks like now and it still deletes all data if cancel is pushed Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub "Bryan Hessey" wrote: try extracting from: Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If that should help bbc1 Wrote: Have a button on worksheet that clears certain cells on the sheet, would like that a message box pops up when pressed asking user for confirmation, have added below to the script on button but it clears cells regardless wether you say O/k or cancel need reposne to O/k "clears cells" or cancel " does not clear cells" Dim response As Long response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub -- Bryan Hessey ------------------------------------------------------------------------ Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059 View this thread: http://www.excelforum.com/showthread...hreadid=395724 -- Bryan Hessey ------------------------------------------------------------------------ Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059 View this thread: http://www.excelforum.com/showthread...hreadid=395724 |
|
#5
|
|||
|
|||
|
Dim response
response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < vbOK Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").ClearC ontents Range("A2").Select End If End Sub Is that what you want? -- HTH RP (remove nothere from the email address if mailing direct) "bbc1" wrote in message ... This is what my script looks like now and it still deletes all data if cancel is pushed Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub "Bryan Hessey" wrote: try extracting from: Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If that should help bbc1 Wrote: Have a button on worksheet that clears certain cells on the sheet, would like that a message box pops up when pressed asking user for confirmation, have added below to the script on button but it clears cells regardless wether you say O/k or cancel need reposne to O/k "clears cells" or cancel " does not clear cells" Dim response As Long response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub -- Bryan Hessey ------------------------------------------------------------------------ Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059 View this thread: http://www.excelforum.com/showthread...hreadid=395724 |
|
#6
|
|||
|
|||
|
NO Bob, he does not need the code For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next ' as that was a part of how I used the OK/Cancel. My post (timed 54 minutes before your reply) explained this, bbc1 needs Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End if End Sub Bob Phillips Wrote: Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < vbOK Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").ClearC ontents Range("A2").Select End If End Sub Is that what you want? -- HTH RP (remove nothere from the email address if mailing direct) "bbc1" wrote in message ... This is what my script looks like now and it still deletes all data if cancel is pushed Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub "Bryan Hessey" wrote: try extracting from: Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If that should help bbc1 Wrote: Have a button on worksheet that clears certain cells on the sheet, would like that a message box pops up when pressed asking user for confirmation, have added below to the script on button but it clears cells regardless wether you say O/k or cancel need reposne to O/k "clears cells" or cancel " does not clear cells" Dim response As Long response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub -- Bryan Hessey ------------------------------------------------------------------------ Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059 View this thread: http://www.excelforum.com/showthread...hreadid=395724 -- Bryan Hessey ------------------------------------------------------------------------ Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059 View this thread: http://www.excelforum.com/showthread...hreadid=395724 |
|
#7
|
|||
|
|||
|
If MsgBox(prompt:="Do you REALLY wanna do this?", Buttons:=vbYesNo) = vbYes
Then ' code goes here End If "bbc1" wrote in message ... Have a button on worksheet that clears certain cells on the sheet, would like that a message box pops up when pressed asking user for confirmation, have added below to the script on button but it clears cells regardless wether you say O/k or cancel need reposne to O/k "clears cells" or cancel " does not clear cells" Dim response As Long response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub |
|
#8
|
|||
|
|||
|
That works great
Thankyou. "Bryan Hessey" wrote: Ahha, yes, my mistake, I should have been more clear, but I preferred to show how it worked for me (with copy - paste) rather than type in here as I type so badly. You need Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End if End Sub bbc1 Wrote: This is what my script looks like now and it still deletes all data if cancel is pushed Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub "Bryan Hessey" wrote: try extracting from: Dim response response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) If response < 2 Then For i = 1 To Worksheets.Count + 3 Range("Q" & i + 10) = "" Next End If that should help bbc1 Wrote: Have a button on worksheet that clears certain cells on the sheet, would like that a message box pops up when pressed asking user for confirmation, have added below to the script on button but it clears cells regardless wether you say O/k or cancel need reposne to O/k "clears cells" or cancel " does not clear cells" Dim response As Long response = MsgBox(prompt:="ok or cancel", Buttons:=vbOKCancel) ' Range("A2:A32,C2:C32,D2:D32,E2:E32,H2:H32").Select Range("H2").Activate Selection.ClearContents Range("A2").Select End Sub -- Bryan Hessey ------------------------------------------------------------------------ Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059 View this thread: http://www.excelforum.com/showthread...hreadid=395724 -- Bryan Hessey ------------------------------------------------------------------------ Bryan Hessey's Profile: http://www.excelforum.com/member.php...o&userid=21059 View this thread: http://www.excelforum.com/showthread...hreadid=395724 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Adding an error message at close of file when criteria are met | Excel Discussion (Misc queries) | |||
| when opening excel I receive a message that says file can't be fo. | Excel Discussion (Misc queries) | |||
| changing the message in an error message | Excel Worksheet Functions | |||
| "Why did we get here????" popup | Excel Discussion (Misc queries) | |||
| Pivot Table not valid error message when formatting data 'button'. | Excel Discussion (Misc queries) | |||
Linear Mode
