in userforms i frequently use command buttons that don't become visible
until some other prequisite is fulfilled.................

xxxxxxxxxxxxxxxxxxxxxx

If Trim(ListBox1.Value) = "" or Listbox1.ListIndex = -1 Then
msgbox "Please Select a name first!"
Exit Sub

Else
Edit_Name.visible=true
Delete_Name.visible=true

End If
End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxx

just another idea nobody mentioned........ :)
susan


Patrick Simonds wrote:
The problem seems to be that If Trim(ListBox1.Value) = "" does not work
(for me). I even tried putting a text value in the cell and the code. Still
would not work.

"Tom Ogilvy" wrote in message
...
In contrast, it works fine for me - exactly as intended.

--
Regards,
Tom Ogilvy


"Patrick Simonds" wrote in message
...
Thanks, but it does not enable the buttons when you select a name in the
listbox.


"Tom Ogilvy" wrote in message
...
Sub listbox1_change()

If Trim(ListBox1.Value) = "" or Listbox1.ListIndex = -1 Then

Edit_Name.Enabled = False
Delete_Name.Enabled = False

Else

Edit_Name.Enabled = True
Delete_Name.Enabled = True

End If

End Sub

--
Tom Ogilvy


"Patrick Simonds" wrote in message
...
Thanks guy here is the code I ended up with, and it works fine, but,
there always seems to be a but.

The source for ListBox1 is a worksheet which has a list of all
employees by job category separated by a blank row between each
category, so of course this blank space appears in the ListBox (which
is good because it provides a visual separator between job categories.
So in addition to what the code below achieves I also need the
Edit_Name and Delete_Name buttons disabled when the blank space between
job categories is selected.

Sub listbox1_change()

If ListBox1.ListIndex = -1 Then

Edit_Name.Enabled = False
Delete_Name.Enabled = False

Else

Edit_Name.Enabled = True
Delete_Name.Enabled = True

End If

End Sub

"Kai Uwe Schmidt" wrote in message
...
Hi Patrick,

when no selection is made, ListBox.ListIndex has the value -1
(otherwise, it has a value from 0 to Listbox.Listcount -1).

Public Sub ChangeRowSource ()
If listbox1.listindex = -1 then
MsgBox "Please Select a name first!" : Exit Sub 'quick and
very dirty.
Else
..
End if
End Sub

Regards,
Kai


"Patrick Simonds" schrieb im Newsbeitrag
...
On my UserForm I have a ListBox (ListBox1) and 2 Command Buttons
(Edit Name, Delete Name). When I click on one of the two command
buttons it runs code to go to the source for the ListBox and selects
the name and then allows you to Edit or Delete the name.

What I need is a piece of code which will prevent the code associated
to either Command Button from running if no name is selected in
ListBox1


I tried:

EditName ()

If ListBox1.Value = "" Then GoTo BlankList

My Code here

BlankList:

End Sub