List box items

[irresistible007]

okay now i have written a couple of things on 20th Row like A20="", B20=Potatoes, C20=Onion....

I want the list box to add these items on itself too, whenever i make a new entry on row 2 and click cmdupdate

 

[Erdinç E. Karaçam]

Look at this sample,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Cel As Range
    
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    
        For Each Cel In Range("A1:A10")
            UserForm1.ListBox1.AddItem Cel.Value
        Next Cel
    
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    
    UserForm1.Show
    
End Sub

Sheet1's scene:

<table border=1><tr><td align=left valign=center><font size=1 color=red face=verdana>Gönderen XL Ver.:</font><font size=1 face=verdana> Office 2003 / </font><font size=1 color=red face=verdana>OS Ver.:</font><font size=1 face=verdana> Windows XP </font></td></tr><tr valign=top><td><table border=0 bgcolor=d4d0c8 cellspacing=1 cellpadding=1 align=center><tr align=center valign=center bgcolor=white><td bgcolor=d4d0c8 align=center><font color=black size=2>+</font></td><td bgcolor=d4d0c8 width=60><font color=black size=1 face=verdana>A</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>1</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 1</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>2</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 2</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>3</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 3</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>4</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 4</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>5</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 5</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>6</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 6</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>7</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 7</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>8</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 8</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>9</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 9</font></td></tr><tr align=left bgcolor=white height=20><td align=center valign=center bgcolor=d4d0c8 width=10><font color=black size=1 face=verdana>10</font></td><td bgcolor=white nowrap=true><font size=1 color=black face=verdana>Data 10</font></td></tr></table></td></tr><tr><td bgcolor=f0f8ff align=center><font color=black size=1 face=verdana>XLtoHTML v1.1 / ExcelTürkiye - 2006©</font></td></tr></table>

 

[irresistible007]

good one but change it to...:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Cel As Range

Application.DisplayAlerts = False
Application.EnableEvents = False

UserForm1.Listbox1.clear

For Each Cel In Range("A1:A10")
If Cel.Value <> "" Then
UserForm1.ListBox1.AddItem Cel.Value
End If
Next Cel

Application.EnableEvents = True
Application.DisplayAlerts = True

UserForm1.Show

End Sub