Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
lançar dados da Lis...
 
Notifications
Clear all

lançar dados da List View

 
2024 - VBA & Macros
Post Recente por Jozelia 8 anos atrás
4 Posts
2 Usuários
0 Reactions
1,110 Visualizações
RSS
Jozelia
 Jozelia
(@jozelia)
Posts: 45
Eminent Member
Topic starter
 

Boa Noite Galera,
Tenho um form_caixa, onde todos os produtos que o cliente compra são adicionados em uma list view somando o total a pagar, só que para ser feito o recibo só consigo enviar uma linha (produto) por vez e imprimir.
Quero que ao apertar IMPRIMIR RECIBO todas as linhas da list view com o nome e valor de todos os produtos comprados vá para o BD_recibo, para que eu possa imprimir.

********Essa e a rotina que quero, mas ela apenas funciona em listbox *************************************

'apaga o intervalo
    Range("A5:I50000").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A5").Select
    
    MsgBox ("Não há itens a serem lançados...")
Exit Sub
 
Else
    
    'limpa dados antes de lançar os novos dados
    If Range("A5").Select = "" Then
    'não faz nanda
    Else
    'apaga o intervalo
    Range("A5:I50000").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A5").Select
    End If
    
Range("A5").Resize(lst_busca2.ListCount, lst_busca2.ColumnCount) = lst_busca2.List

Obrigada. ;)

 
Postado : 18/10/2016 8:30 pm
 WRSouza
(@wrsouza)
Posts: 8
Active Member
 

Jozelia, boa noite

Veja se o arquivo anexo te atende. É +/- isso?

 
Postado : 25/10/2016 11:45 pm
Jozelia
 Jozelia
(@jozelia)
Posts: 45
Eminent Member
Topic starter
 

Bom Dia WRSouza,
Obrigada pela atenção, e exatamente isso, uma listview e um botão imprimir...
o que Preciso e que ao apertar imprimir todos os dados da listview vá para a planilha diferente "Recibo" para que possa ser impresso.

 
Postado : 29/10/2016 5:18 am
Jozelia
 Jozelia
(@jozelia)
Posts: 45
Eminent Member
Topic starter
 

Segue a Solução ai pessoal!

Sheets("Recibo_avulso").Select

   'apaga o intervalo
    Range("A12:E17").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents

    
    Range("A12").Select

    Dim i As Integer, j As Integer

        'Loop das linhas
    For i = 1 To list_pedidos.ListItems.Count
        Cells(i + 11, 1) = list_pedidos.ListItems(i).Text
        
            'Loop das colunas
         For j = 1 To list_pedidos.ColumnHeaders.Count - 1
            Cells(i + 11, j + 1) = list_pedidos.ListItems(i).ListSubItems(j).Text
        Next j
    
    Next i
 
Postado : 21/01/2017 8:25 am
Forum Jump:
  Tópico Anterior
Próximo Tópico