Forlulário ListBox com ListOptions em Excel VBA

Excel 2010

Private Sub btnexcluir_Click()

Dim nlinha As Long

nlinha = Me.lbdados.ListIndex

'removendo item que está selecionado na variável nlinha'

Me.lbdados.RemoveItem (nlinha)

End Sub

Private Sub btnInserir_Click()

Dim lista As Long

lista = 0

'contagem da lista, se a lista for diferente de 0'

If lbdados.ListCount <> 0 Then lista = (lbdados.ListCount + 1) - 1

With lbdados

.AddItem

'trabalhando com Lista'

.List(lista, 0) = Me.txnome.Value 'linha 0, coluna 0'

.List(lista, 1) = Me.txidade.Value

.List(lista, 2) = Me.txendereco.Value

End With

End Sub

Private Sub btnmostrar_nome_Click()

Dim nlinha As Long

Dim nome As String

nlinha = Me.lbdados.ListIndex

nome = Me.lbdados.List(nlinha, 0) 'exibindo a linha e a coluna'

MsgBox "Nome selecionado: " & nome

End Sub

Private Sub UserForm_Click()

End Sub