De um duplo click na Listbox apague o que estiver escrito dentro dela, cole o código abaixo.
BOM PROVEITO!!!
Private Sub UserForm_Initialize() Dim arrayItems() With Planilha1'aqui você pode alterar o nome da planilha' ReDim arrayItems(1 To .UsedRange.Rows.Count, 1 To .UsedRange.Columns.Count) Me.ListBox1.ColumnCount = .UsedRange.Columns.Count For linha = 1 To .UsedRange.Rows.Count Me.ListBox1.AddItem For coluna = 1 To .UsedRange.Columns.Count arrayItems(linha, coluna) = .Cells(linha, coluna).Value Next coluna Next linha Me.ListBox1.List = arrayItems() End With End Sub
Nenhum comentário:
Postar um comentário