Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Besides the multiple access in excel(still havn't solve the problem..
), I got another question want to throw to this group.. :< I got 2 button in a userform... 1 is Erase button, and 1 is Edi button. Both of this 2 button will delete the row that I choose i listbox, how am I going to program this 2 button? Below is the cod that used to select item and display which item u choose... But I dunn how to delete the row that I choose... The rowsource for the listbox i "ListBox1.RowSource = "Sheet1!range" " Private Sub EraseButton_Click() Msg = "" For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then _ Msg = Msg & ListBox1.List(i) & vbCrLf Next i MsgBox "Are you sure u wana delete this Selected row: " & _ vbCrL & Msg ... ... End Sub Please somebody can help me to program this? And for the Edit button, I want to do such that when I select the ro in listbox, and click on edit button, the data that stored in th spreadsheet will appear in the textbox in the userform respectively... Hope to hear from others.... as I already took so much time in doi such a userform...My boss is unhappy with tat... : -- Message posted from http://www.ExcelForum.com |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Perhaps anyone got any links that can sent to me for my reference..?
I'm desperately need it.... THanks.. -- Message posted from http://www.ExcelForum.com |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
http://tinyurl.com/25nvq
-- Regards, Tom Ogilvy "unplugs " wrote in message ... Perhaps anyone got any links that can sent to me for my reference..? I'm desperately need it.... THanks... --- Message posted from http://www.ExcelForum.com/ |
#6
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Thanks Tom! Anyway, I had work it out wif the solution u provide las
time.. Private Sub CommandButton1_Click() 'Delete Selection Set rng = Range(ListBox1.RowSource) idex = ListBox1.ListIndex If idex = -1 Then Exit Sub ListBox1.RowSource = "" rng(idex + 1).EntireRow.Delete Set rng1 = Worksheets("Sheet1").Range("A1").CurrentRegion Set rng1 = rng1.Offset(1, 0).Resize(rng1.Rows.Count - 1) ListBox1.RowSource = rng1.Address(external:=True) End Sub Your code works great... And it can delete my selected items i listbox! Anyway, the problem is, after I delete the items in a row, al of the range that I define had modified! =OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),10) change to the below: =OFFSET(Sheet1!#REF!,0,0,COUNTA(Sheet1!$A:$A),10) After that, my program gave me error message because of the range ha been modified...! U got any idea of this? Or anyone got any idea abou this -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Select Multiple Items and return value for Dropdown or listbox | Excel Discussion (Misc queries) | |||
Problem using INDEX to select items in listbox | Excel Discussion (Misc queries) | |||
Adding Items to a ListBox-Unique Items Only | Excel Programming | |||
Items in a Listbox | Excel Programming | |||
Listbox--moving items up or down | Excel Programming |