Office

     Go!
Prospero Blocks


 

Chat Center

Board Folders

MS Office - General: 4351 msgs in 879 dscns, Latest: Nov-13 MS Office - Ge...
4351 msgs in 879 dscns
Latest: Nov-13
Outlook: 10259 msgs in 1962 dscns, Latest: Nov-21 Outlook
10259 msgs in 1962 dscns
Latest: Nov-21
Word & Word VBA: 9368 msgs in 1767 dscns, Latest: Nov-18 Word & Word VBA
9368 msgs in 1767 dscns
Latest: Nov-18
Excel & Excel VBA: 12847 msgs in 2265 dscns, Latest: Nov-17 Excel & Excel VBA
12847 msgs in 2265 dscns
Latest: Nov-17
Powerpoint: 750 msgs in 196 dscns, Latest: Sep-18 Powerpoint
750 msgs in 196 dscns
Latest: Sep-18
Access & Access VBA: 5436 msgs in 1214 dscns, Latest: Nov-6 Access & Acces...
5436 msgs in 1214 dscns
Latest: Nov-6
Graphic Tools: 130 msgs in 34 dscns, Latest: Aug-25 Graphic Tools
130 msgs in 34 dscns
Latest: Aug-25
Publisher: 254 msgs in 47 dscns, Latest: Oct-18 Publisher
254 msgs in 47 dscns
Latest: Oct-18
Works Suite: 360 msgs in 73 dscns, Latest: May-26 Works Suite
360 msgs in 73 dscns
Latest: May-26
Money & MSTaxSaver: 97 msgs in 27 dscns, Latest: 12/25/08 Money & MSTaxS...
97 msgs in 27 dscns
Latest: 12/25/08
MS Maps & Trips: 78 msgs in 15 dscns, Latest: Oct-23 MS Maps & Trips
78 msgs in 15 dscns
Latest: Oct-23
FrontPage: 1259 msgs in 224 dscns, Latest: Oct-15 FrontPage
1259 msgs in 224 dscns
Latest: Oct-15
Other Office Products: 325 msgs in 82 dscns, Latest: Oct-29 Other Office P...
325 msgs in 82 dscns
Latest: Oct-29
OneNote: 144 msgs in 19 dscns, Latest: Nov-11 OneNote
144 msgs in 19 dscns
Latest: Nov-11
Message Area
Excel & Excel VBA

Message bo

 Subscribe SubscribeGet a printer-friendly version of this discussion Print Discussion 

#1 of 4

     Posted Oct-31 8:42 PM   
A1pilot
 
From  A1pilot  Posts 195  Last Nov-11
To  All      [Msg # 15892.1 ]    

Is it possible to have a message box that shows data?

I have four cells that have data in them, BASE, MONTH, EQUIPMENT, and, DATE.

I would like to have the message box say something like:

 

You have selected the following information:

BASE: (from cell E7)

EQUIPMENT: (from H4)

MONTH: (from E4)

DATE (from H8)

Is this data correct?

 

YES    NO      CANCEL

 

 

Yes continues the macro

No sends you back to cell H4 to change the data

CANCEL stops the macro.

 

Is this possible?

How is the best way to accomplish this?

 

Thanks

 

A1pilotA320

A1pilot@fica.net

 OptionsReply to this Message Reply

#2 of 4

     Posted Nov-1 3:27 AM   
Bill Manville
 
From  Bill Manville  Posts 4150  Last Nov-21
To  A1pilot      [Msg # 15892.2 Message 15892.2 replying to 15892.1 15892.1 ]    
Dim iReply As Integer
iReply = MsgBox("You have selected the following information:" & vbNewline & "BASE: " & Range("E7") & vbNewline & _

      "EQUIPMENT:" & Range("H4") & vbNewline & "MONTH: " & Range("E4") & vbNewline & _

      "DATE: " & Range("H8") & vbNewline & "Is this data correct?",vbYesNoCancel)
If iReply = vbCancel Then
  Exit Sub
ElseIf iReply = vbNo Then
  Range("H4").Select
  Exit Sub
End If

Bill Manville
Excel MVP/TA
Oxford, England

 OptionsReply to this Message Reply

#3 of 4

     Posted Nov-5 5:33 PM   
A1pilot
 
From  A1pilot  Posts 195  Last Nov-11
To  Bill Manville      [Msg # 15892.3 Message 15892.3 replying to 15892.2 15892.2 ]    

Thanks Bill

That worked great. I don't usae Message boxes that often although I can see where they would come in handy on some of my up comming projects.

Can the text in the Message box be formatted at all or are we stuck with the default text, size, and color?

Thanks for your help with this. All the Gurus in here help us morals out a lot. Thanks again.

Richard Hughes
A1pilot@flica,net

 OptionsReply to this Message Reply

#4 of 4

     Posted Nov-5 6:54 PM   
Bill Manville
 
From  Bill Manville  Posts 4150  Last Nov-21
To  A1pilot      [Msg # 15892.4 Message 15892.4 replying to 15892.3 15892.3 ]    (Unread)

Can the text in the Message box be formatted at all or are we stuck with the default text, size, and color?

No. You're stuck with Windows standard font.  If you want prettier text you would need to apply the formatting to a label on a UserForm. 

Bill Manville
Excel MVP/TA
Oxford, England

 OptionsReply to this Message Reply
 Subscribe SubscribeGet a printer-friendly version of this discussion Print Discussion 
Excel & Excel VBA

Message bo

  
 
     

Welcome, Guest

  • Post a message
  • New messages to you
  • Log in

Start Search
Advanced Search

Prospero Blocks
 
 
 
Special Offers
 
 
 

Finding People

 
 
 

Cool Clicks!

 
 
 
© 2009 CompuServe Interactive Services, Inc. All rights reserved.

Legal Notices | Privacy Policy