Re: Command Button question

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 work*** 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" <nc-schmidka@xxxxxxxxxxxxx> wrote in message
news:eik8t0$cql$1@xxxxxxxxxxxxxxxxxxxxxxxxxxxx
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" <ordnance1@xxxxxxxxxxx> schrieb im Newsbeitrag
news:OtWwUnKAHHA.4992@xxxxxxxxxxxxxxxxxxxxxxx
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





.