Exportação listbox ...
 
Notifications
Clear all

Exportação listbox para txt ou csv

8 Posts
2 Usuários
0 Reactions
1,421 Visualizações
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Boa noite.
Estou com uma planilha na qual filtro os dados que preciso aparecem, estou tentando exportar estes dados que estão no listbox e quando consegui exportar eu mesmo escolha o nome com a extensão txt.
Porém exporta todos os dados.
Exemplo. Quero os dados somente de jan/16, ele aparece de todos os meses do ano.

 
Postado : 10/07/2016 6:57 pm
(@adgere)
Posts: 76
Trusted Member
 

Acho q esta confuso... não consegui entender... em qual planilha realiza o filtro? Quais dados deseja exportar?

 
Postado : 11/07/2016 7:19 pm
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

O listbox puxa os dados da guia pagamentos

 
Postado : 12/07/2016 6:04 pm
(@adgere)
Posts: 76
Trusted Member
 

Do formulario Relatorio?
O que quer que ele faça?

 
Postado : 13/07/2016 8:23 pm
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Consegui resolver em parte.
Quando abro o formulário aparece todos os dados que estão na planilha, que são 3 colunas (mês/ano, código da pessoa e que status)
Porém quando digito qualquer mês os outros dados que eram para aparecer somem.

 
Postado : 14/07/2016 5:22 pm
(@adgere)
Posts: 76
Trusted Member
 

No evento de inicialização do form vc digitou o codigo que preenche todas as colunas.
Ao digitar no textbox chama a sub PreencheLista que preenchia apenas a primeira coluna...
De uma olhada.

 
Postado : 14/07/2016 8:20 pm
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

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
(@adgere)
Posts: 76
Trusted Member
 

No arquivo que postei no dia 14 você consegue ver a diferença

 
Postado : 21/07/2016 2:54 pm