Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Listbox exporta dat...
 
Notifications
Clear all

Listbox exporta data errada para plan

 
2024 - VBA & Macros
Post Recente por Syrax 8 anos atrás
3 Posts
3 Usuários
0 Reactions
771 Visualizações
RSS
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Boa noite
Venho mais uma vez junto de vocês para me ajudarem no seguinte: o listbox exporta a data mm/dd/yyyy para a plan, estou a utilizar o seguinte código para exportar:

Dim iLin As Integer
    Dim wsRelatorio As Worksheet
    Dim UltimaLinha As Long
    Dim iListCount As Integer
    Dim sCol As Integer
    
    Set wsRelatorio = ThisWorkbook.Worksheets("Relatorio")
    
    Worksheets("Relatorio").Activate
    
    UltimaLinha = wsRelatorio.UsedRange.Rows.Count
    
    wsRelatorio.Range("A2:" & "F" & UltimaLinha).ClearContents
    
    sCol = 1
    iLin = 2

    For iListCount = 0 To ListBox1.ListCount - 1
      
        For iColCount = 0 To 5
            
        wsRelatorio.Cells(iLin, sCol).Value = ListBox1.List(iListCount, iColCount)
             
        sCol = sCol + 1
             
        Next iColCount
        
        iLin = iLin + 1
        sCol = 1
        Next iListCount

Call CriaPDF

Não encontro o erro é que plan dados está correto, mas ao exportar da listbox para a plan relatorio vai errada.
Att.,
Rui

 
Postado : 01/03/2017 3:03 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

E pq nao faz direto de planilha para planilha.

Listbox serve apenas para visualização.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 01/03/2017 3:06 pm
Syrax
 Syrax
(@syrax)
Posts: 160
Estimable Member
 

Veja se isso te ajuda

    Dim iLin As Integer
        Dim wsRelatorio As Worksheet
        Dim UltimaLinha As Long
        Dim iListCount As Integer
        Dim sCol As Integer
       
        Set wsRelatorio = ThisWorkbook.Worksheets("Relatorio")
       
        Worksheets("Relatorio").Activate
       
        UltimaLinha = wsRelatorio.UsedRange.Rows.Count
       
        wsRelatorio.Range("A2:" & "F" & UltimaLinha).ClearContents
       
        sCol = 1
        iLin = 2

        For iListCount = 0 To ListBox1.ListCount - 1
         
            For iColCount = 0 To 5
               
            wsRelatorio.Cells(iLin, sCol).Value = ListBox1.List(iListCount, iColCount)
                 wsRelatorio.Cells(iLin, sCol).NumberFormat = "dd/mm/yyyy"
            sCol = sCol + 1
                 
            Next iColCount
           
            iLin = iLin + 1
            sCol = 1
            Next iListCount

    Call CriaPDF

se te ajudou, clique no joinha do lado de "citar"

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 01/03/2017 5:46 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico