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

really no one can help me on this?

:

--
Message posted from http://www.ExcelForum.com

Sorry.... But really nobody can solve my problem..

--
Message posted from http://www.ExcelForum.com

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

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/

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