create a yellow popup window

[MetLife]

Hi,

I wanted to create a yellow pop up window when I click on the rows in a particular table.

I have seen this done but can't find the initial code to get me started.

Does anyone have the basic structure to use?

Thanks

 

[mumps]

When you say

a yellow pop up window

what kind of window are you talking about? Is it a message box, a user form, etc?

 

[MetLife]

I think its referred to as an input box

https://exceliseasy.wordpress.com/2012/10/23/yellow-pop-up-box-when-selecting-cell-in-excel/

I wanted to change the font size.

Thanks

 

[mumps]

An input box is used to get a response from the user. For example: the message in the pop-up could say "Please enter your name." The link you provided explains how to use Data Validation to display a message when you select any cell in your desired range. Perhaps you could explain in detail, step by step, what you are trying to do.

 

[MetLife]

I want to create the message "Hello" with font size 15 when the user clicks on cell A1.

The type of box is in the link.

Thanks

 

[mumps]

I don't think that you can change the font size of the message if you use Data Validation. You would have to create a userform with a textbox and set the font size using the Font Property of the textbox. Then in the worksheet code module, you would need a macro such as this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    UserForm1.Show
End Sub

which will show the userform when you click on any cell in the target range. Is it worth doing all this just for a font change?

 

[MetLife]

I don't think that you can change the font size of the message if you use Data Validation. You would have to create a userform with a textbox and set the font size using the Font Property of the textbox. Then in the worksheet code module, you would need a macro such as this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    UserForm1.Show
End Sub

which will show the userform when you click on any cell in the target range. Is it worth doing all this just for a font change?

The font size is important because the text in the userform equals the range in another sheet. So the text can vary a lot.

Maybe a userform is better than the data validation box.

 

[mumps]

If you want to change the font size, a userform is the way to go. You can also add the yellow background color to the textbox if you like. As well, you can increase the size of the textbox or decrease the size of the userform to make it look as you would like.

 

[Logit]

.
The pop-up box you are referring to is called a COMMENT.

Right click the cell in question, select INSERT COMMENT.

Type the desired message.

Click and hold the left mouse button and highlight all the text in the COMMENT box. Then, using the HOME TAB up top, select the FONT TYPE and SIZE desired.

Press ENTER.

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then
Dim cmt As Comment
  Set cmt = Target.Comment
    If cmt Is Nothing Then
        Target.AddComment "Hello"
        Target.Comment.Shape.TextFrame.Characters.Font.Size = 15
    Else
        Target.Comment.Delete
        Target.AddComment "Hello"
        Target.Comment.Shape.TextFrame.Characters.Font.Size = 15
    End If
End If
End Sub