Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
Listbox Problem
I have a list box which I have set up which runs a message bank. I would
like it to have the ability to delete the sected message from the worksheet. How can I do this? userform name is "splash" listbox1 its rowsource is messagesa2:a1000 and the button i wish to use to delete is commandbutton2 any help with the code would be great Thanks Greg |
#2
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
Listbox Problem
Private Sub CommandButton2_Click()
Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Delete End Sub -- HTH RP (remove nothere from the email address if mailing direct) "browie" wrote in message ... I have a list box which I have set up which runs a message bank. I would like it to have the ability to delete the sected message from the worksheet. How can I do this? userform name is "splash" listbox1 its rowsource is messagesa2:a1000 and the button i wish to use to delete is commandbutton2 any help with the code would be great Thanks Greg |
#3
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
Listbox Problem
Thanks will try it now
Greg "Bob Phillips" wrote in message ... Private Sub CommandButton2_Click() Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Delete End Sub -- HTH RP (remove nothere from the email address if mailing direct) "browie" wrote in message ... I have a list box which I have set up which runs a message bank. I would like it to have the ability to delete the sected message from the worksheet. How can I do this? userform name is "splash" listbox1 its rowsource is messagesa2:a1000 and the button i wish to use to delete is commandbutton2 any help with the code would be great Thanks Greg |
#4
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
Listbox Problem
Bob
How can it be changed to delete the whole row. sorry I just noticed I wrote it as a1:a1000 where it should be e1000 Private Sub CommandButton2_Click() Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Delete End Sub Thanks in advance Greg "browie" wrote in message ... Thanks will try it now Greg "Bob Phillips" wrote in message ... Private Sub CommandButton2_Click() Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Delete End Sub -- HTH RP (remove nothere from the email address if mailing direct) "browie" wrote in message ... I have a list box which I have set up which runs a message bank. I would like it to have the ability to delete the sected message from the worksheet. How can I do this? userform name is "splash" listbox1 its rowsource is messagesa2:a1000 and the button i wish to use to delete is commandbutton2 any help with the code would be great Thanks Greg |
#5
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
Listbox Problem
Private Sub CommandButton2_Click()
Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Entirerow.Dele te End Sub -- HTH RP (remove nothere from the email address if mailing direct) "browie" wrote in message ... Bob How can it be changed to delete the whole row. sorry I just noticed I wrote it as a1:a1000 where it should be e1000 Private Sub CommandButton2_Click() Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Delete End Sub Thanks in advance Greg "browie" wrote in message ... Thanks will try it now Greg "Bob Phillips" wrote in message ... Private Sub CommandButton2_Click() Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Delete End Sub -- HTH RP (remove nothere from the email address if mailing direct) "browie" wrote in message ... I have a list box which I have set up which runs a message bank. I would like it to have the ability to delete the sected message from the worksheet. How can I do this? userform name is "splash" listbox1 its rowsource is messagesa2:a1000 and the button i wish to use to delete is commandbutton2 any help with the code would be great Thanks Greg |
#6
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
|
|||
|
|||
Listbox Problem
Thanks Bob works Great
Greg "Bob Phillips" wrote in message ... Private Sub CommandButton2_Click() Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Entirerow.Dele te End Sub -- HTH RP (remove nothere from the email address if mailing direct) "browie" wrote in message ... Bob How can it be changed to delete the whole row. sorry I just noticed I wrote it as a1:a1000 where it should be e1000 Private Sub CommandButton2_Click() Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Delete End Sub Thanks in advance Greg "browie" wrote in message ... Thanks will try it now Greg "Bob Phillips" wrote in message ... Private Sub CommandButton2_Click() Worksheets("Messages").Range("A2").Offset(ListBox1 .ListIndex).Delete End Sub -- HTH RP (remove nothere from the email address if mailing direct) "browie" wrote in message ... I have a list box which I have set up which runs a message bank. I would like it to have the ability to delete the sected message from the worksheet. How can I do this? userform name is "splash" listbox1 its rowsource is messagesa2:a1000 and the button i wish to use to delete is commandbutton2 any help with the code would be great Thanks Greg |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Listbox Problem | Excel Discussion (Misc queries) | |||
Listbox problem | Excel Programming | |||
listbox problem #2 | Excel Programming | |||
Listbox Problem | Excel Programming | |||
ListBox problem | Excel Programming |