Mais um post rápido, que resolve.
Segue alguns códigos para que você possa popular List Box nos formulários que você desenvolve.
Sub PrimeiroMetodo()
' Não se esqueça de mudar o nome do listbox e o nome da planilha.
With Sheet1.Shapes("lst_box1").ControlFormat
.RemoveAllItems
.AddItem "Jan"
.AddItem "Feb"
.AddItem "Mar"
End With
End Sub
Sub SegundoMetodo()
' Não se esqueça de mudar o nome do listbox e o nome da planilha.
With Sheet1.Shapes("lst_box1").ControlFormat
'change fill range here
.ListFillRange = "Sheet1!$a$1:$a$5"
End With
End Sub
Sub TerceiroMetodo()
Dim rng As Range, cl As Range
' Não se esqueça de mudar o Range.
Set rng = Sheet1.Range("a1:a5")
' Não se esqueça de mudar o nome do listbox e o nome da planilha.
With Sheet1.Shapes("lst_box1").ControlFormat
.RemoveAllItems
For Each cl In rng
.AddItem cl.Value
Next
End With
End Sub
Sub QuartaMetodo()
Dim arr, i As Long
'Atente em mudar a referência do range.
Let arr = Sheet1.Range("a1:a5")
' Não se esqueça de mudar o nome do listbox e o nome da planilha.
With Sheet1.Shapes("lst_box1").ControlFormat
.RemoveAllItems
For i = LBound(arr) To UBound(arr)
.AddItem arr(i, 1)
Next
End With
End Sub
brazilsalesforceeffectiveness@gmail.com
