ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Listbox data required (https://www.excelbanter.com/excel-programming/362205-listbox-data-required.html)

kuzniaj

Listbox data required
 

I am pretty new to this forum and have had most of my questions answere
by searching other threads. But can't find an answer on this one.

I have created a form for data entry and it has several list and tex
boxes. I have used an if then statement to validate that the tex
boxes have data in them at the time of execution. I would like to d
the same with the list box but the code does not work. The list box i
poplulated but no data is selected. When I press "OK" I would like fo
it to validate that data is selected / highlighted.

Private Sub cmdOK_Click()
If lboTeam.value = "" Then
MsgBox "You need to fill in your Team Name"
Exit Sub
End If

If txtPlayer.Value = "" Then
MsgBox "You need to fill in the Player's Name"
Exit Sub
End If

Any help would be greatly appreciated. Thanks

--
kuznia
-----------------------------------------------------------------------
kuzniaj's Profile: http://www.excelforum.com/member.php...fo&userid=3471
View this thread: http://www.excelforum.com/showthread.php?threadid=54479


Tom Ogilvy

Listbox data required
 
Private Sub cmdOK_Click()
If lboTeam.ListIndex = -1 Then
MsgBox "You need to Select your Team Name"
Exit Sub
End If

--
Regards,
Tom Ogilvy


"kuzniaj" wrote:


I am pretty new to this forum and have had most of my questions answered
by searching other threads. But can't find an answer on this one.

I have created a form for data entry and it has several list and text
boxes. I have used an if then statement to validate that the text
boxes have data in them at the time of execution. I would like to do
the same with the list box but the code does not work. The list box is
poplulated but no data is selected. When I press "OK" I would like for
it to validate that data is selected / highlighted.

Private Sub cmdOK_Click()
If lboTeam.value = "" Then
MsgBox "You need to fill in your Team Name"
Exit Sub
End If

If txtPlayer.Value = "" Then
MsgBox "You need to fill in the Player's Name"
Exit Sub
End If

Any help would be greatly appreciated. Thanks.


--
kuzniaj
------------------------------------------------------------------------
kuzniaj's Profile: http://www.excelforum.com/member.php...o&userid=34712
View this thread: http://www.excelforum.com/showthread...hreadid=544796



kuzniaj[_2_]

Listbox data required
 

Works great thankx for the quick response.


--
kuzniaj
------------------------------------------------------------------------
kuzniaj's Profile: http://www.excelforum.com/member.php...o&userid=34712
View this thread: http://www.excelforum.com/showthread...hreadid=544796



All times are GMT +1. The time now is 06:14 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com