remove item fr listbox (correction)
 

Sory earlier my question was not very clear.i write again.I have following
code."ROSTER" is the sheet name,paizapm is the range name,all I want display
input box to look for the search weather in the listbox or not,if in the
listbox I want to remove.But I tried so hard could not fix the remove item
from the listbox.Any helpful souls?Thanks in advance
Dim farx As Range
UserForm1.ListBox1.RowSource = "Roster!paizapm"
Dim Title, Default
Dim PMname As Variant
Title = "Please enter the value you want to find?"
PMname = InputBox(Title, Default, 100, 100)
Set farx = Cells.Find(What:=PMname)
If farx Is Nothing Then
MsgBox "There is no item called as " & PMname
Else
'*****HERE HOW CAN I REMOVE THE ""PMname""*****
End If

--
Regards,
Baha

remove item fr listbox (correction)
 

Dim farx As Range
UserForm1.ListBox1.RowSource = "Roster!paizapm"
Dim Title, Default
Dim PMname As Variant
Title = "Please enter the value you want to find?"
PMname = InputBox(Title, Default, 100, 100)
Set farx = Cells.Find(What:=PMname)
If farx Is Nothing Then
MsgBox "There is no item called as " & PMname
Else
UserForm1.ListBox1.RowSource = ""
doevents
farx.EntireRow.delete
UserForm1.ListBox1.RowSource = "Roster!paizapm"
End If

--
Regards,
Tom Ogilvy


"Baha" wrote:

Sory earlier my question was not very clear.i write again.I have following
code."ROSTER" is the sheet name,paizapm is the range name,all I want display
input box to look for the search weather in the listbox or not,if in the
listbox I want to remove.But I tried so hard could not fix the remove item
from the listbox.Any helpful souls?Thanks in advance
Dim farx As Range
UserForm1.ListBox1.RowSource = "Roster!paizapm"
Dim Title, Default
Dim PMname As Variant
Title = "Please enter the value you want to find?"
PMname = InputBox(Title, Default, 100, 100)
Set farx = Cells.Find(What:=PMname)
If farx Is Nothing Then
MsgBox "There is no item called as " & PMname
Else
'*****HERE HOW CAN I REMOVE THE ""PMname""*****
End If

--
Regards,
Baha

remove item fr listbox (correction)
 

First of all thanks for reply Mr.Tim. Do I have to delete entire row just
the delete items from the listbox?Actually all I want is,I have two different
array, pmlist and farx.pmlist is the main list and farx is assignment list
which all the names also in the pmlist. I want have a listbox which rowsource
from pmlist(mainlist) but remove the name which are already in farx list.
--
Regards,
Baha


"Tom Ogilvy" wrote:

Dim farx As Range
UserForm1.ListBox1.RowSource = "Roster!paizapm"
Dim Title, Default
Dim PMname As Variant
Title = "Please enter the value you want to find?"
PMname = InputBox(Title, Default, 100, 100)
Set farx = Cells.Find(What:=PMname)
If farx Is Nothing Then
MsgBox "There is no item called as " & PMname
Else
UserForm1.ListBox1.RowSource = ""
doevents
farx.EntireRow.delete
UserForm1.ListBox1.RowSource = "Roster!paizapm"
End If

--
Regards,
Tom Ogilvy


"Baha" wrote:

Sory earlier my question was not very clear.i write again.I have following
code."ROSTER" is the sheet name,paizapm is the range name,all I want display
input box to look for the search weather in the listbox or not,if in the
listbox I want to remove.But I tried so hard could not fix the remove item
from the listbox.Any helpful souls?Thanks in advance
Dim farx As Range
UserForm1.ListBox1.RowSource = "Roster!paizapm"
Dim Title, Default
Dim PMname As Variant
Title = "Please enter the value you want to find?"
PMname = InputBox(Title, Default, 100, 100)
Set farx = Cells.Find(What:=PMname)
If farx Is Nothing Then
MsgBox "There is no item called as " & PMname
Else
'*****HERE HOW CAN I REMOVE THE ""PMname""*****
End If

--
Regards,
Baha