Populate list or text box

[Hank Hendrix]

I use excel 2000 for a home inspection report. Part of the report is a
check list of items inspected. If a problem is found I type more
information about it into a merged cell. I find that I type some of the
same information over and over again. There must be a better way.

I would like to populate a text box or a cell with prepared statements such
as:

The house is green.
The house is blue.
The house is ugly.
The house does not have windows.

The prepared statements would be on a separate worksheet called "LIST." I
would have statements prepared for various areas such as electrical,
plumbing, structure, etc.

Not everything on the list will be used and I will need to be able to type
additional information that might not be on the prepared list. The cell or
text box (or whatever would be best ? ) would be a concatenated short
sentences using items selected from the prepared list.

Thanks
Hank

 

[Dick Kusleika]

Hank

I would use a userform for this. Create a userform with a listbox and a
commandbutton. Load your range into the listbox and put this behind the
commandbutton.

Private Sub CommandButton1_Click()

If Me.ListBox1.ListIndex >= 0 Then
ActiveCell.Value = ActiveCell.Value & " " & Me.ListBox1.Value
End If

Unload Me

End Sub

Then in a standard module create a sub like

Sub InsertText()
Userform1.Show
End Sub

and assign a hotkey to it. (tools - macros, then the options button)

If you need more explanation on any of that, let me know.