Notifications
Clear all

Como coverter textos enviados da listview para a planilha

5 Posts
2 Usuários
0 Reactions
951 Visualizações
(@brunomotta)
Posts: 26
Eminent Member
Topic starter
 

Meus amigos bons de VBA, estou novamente aqui pedindo a ajuda de vocês.
Estou uma dificuldade para enviar para o meu relatório na planilha, os dados da listview.
Já tentei:

CDate(....) deu erro 13

Dessas outras forma, não apresentaram erro na transferência, porém, os dados foram todos desconfigurados e embaralhado para a planilha.

Lv.ListSubItems.Add Text:=Format(Sheets("Filtro").Cells(lin, 5).Value, "Date")

coluna Data: apareceu assim "8ate"

Lv.ListSubItems.Add Text:=Format(Sheets("Filtro").Cells(lin, 12).Value, "Number")

coluna Dias perdidos: "0u12ber" e era para aparecer número inteiro.

Como eu poderia resolver isso?

 
Postado : 11/08/2016 7:45 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

BrunoMotta,

Bom dia!

Anexe, aqui mesmo no fórum, um arquivo exemplo compactado com .ZIP. Pode ser com dados fictícios, porém, o layout deve ser exatamente o do seu arquivo original.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 11/08/2016 8:21 am
(@brunomotta)
Posts: 26
Eminent Member
Topic starter
 

Segue anexo

 
Postado : 11/08/2016 8:55 am
(@brunomotta)
Posts: 26
Eminent Member
Topic starter
 

Pode ser só o código?

 
Postado : 11/08/2016 11:03 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

BrunoMotta,

Boa tarde!

Não tem como fazer sem o arquivo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 12/08/2016 9:20 am