Necessito de uma luz
Private Sub UserForm_Initialize1()
Dim UltimaLinha, i As Integer
'Dim cells As String
Dados_Dizimista.ColumnCount = 5
Dados_Dizimista.Clear
UltimaLinha = Sheets("Cad_Antes").cells(cells.Rows.Count).End(xlUp).Row
If UltimaLinha <> "" Then Exit Sub
For i = 2 To UltimaLinha
With Me.Dados_Dizimista
'.Dizimista.AddItem .Cells(i, 1)
'.AddItem Sheets("cad_antes").Range("a" & i).Value
'.AddItem Sheets("cad_antes").Range("a")
'.List(Dados_Dizimista.ListCount - 1, 1) = Sheets("cad_antes").Range("a" & i).Value
'.List(Dados_Dizimista.ListCount - 1, 2) = Sheets("cad_antes").Range("a" & i).Value
.List(Dados_Dizimista.ListCount - 1, 1) = Sheets("cad_antes").Range("a")
.List(Dados_Dizimista.ListCount - 1, 2) = Sheets("cad_antes").Range("b")
End With
Next
End Sub
Private Sub UserForm_Initialize()
Call PreencheLista
End Sub
Private Sub PreencheLista()
Dim ws As Worksheet
Dim i As Integer
Dim TextoCelula As String
Set ws = ThisWorkbook.Worksheets("Cad_antes")
i = 1
Dados_Dizimista.Clear
With ws
While .cells(i, 1).Value <> Empty
TextoCelula = .cells(i, 1).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
Dados_Dizimista.AddItem .cells(i, 1)
Dados_Dizimista.AddItem .cells(i, 1 + 1)
End If
i = i + 1
Wend
End With
End Sub
Se utilizar o "Private Sub UserForm_Initialize()"
As informações aparecem em linha e se eu utilizar "Private Sub UserForm_Initialize1()" as informações apareçam em coluna somente 1 coluna a medida que vou digitando o nome desejado.
Qual comando falta para que as informações que apareçam no listbox sejam iguais a da planilha.
Obs: Será 8 colunas que deveram aparecer no listbox.
Preciso que
Postado : 20/07/2016 2:14 pm