Notifications

Clear all

Relatório com Quebra de Pedido

2024 - VBA & Macros

Post Recente por brunoxro 7 anos atrás

8 Posts

2 Usuários

0 Reactions

1,552 Visualizações

RSS

Fernandox

(@fernandox)

Posts: 68

Trusted Member

Topic starter

Ola Pessoal,

Estou desenvolvendo este relatório onde possa efetuar a quebra pelo Nr.do Pedido, esta gravando o Nr. do Pedido na tabela, só que necessito que imprima o Nr. do Pedido e pule uma linha, quem puder orientar-me, agradeço, abraço

Obs. Em anexo minha planilha que foi gerada por este código

Sub ImprimirVDClientes()

Dim LINHA As Integer
Dim LINHAREL As Integer
Dim LINHATAB As Integer
Dim SumTotal As Double
Dim SumTotalx As Double
Dim QuebraAnterior As Integer

SumTotal = Format(SumTotal, "##,##0.00")

LINHATAB = 2 'Pegar os dados da TabVendas A2
LINHAREL = 8 'Pegar os dados da RelPedido A7

linhaquebra = 8
  
   
  QuebraAnterior = "0"
   
 Do Until TabVendas.Cells(LINHATAB, 12) = ""
    If TabVendas.Cells(LINHATAB, 12) > 0 Then
        
      If QuebraAnterior <> Sheets("TabVendas").Cells(LINHATAB, 12) Then
         QuebraAnterior = TabVendas.Cells(LINHATAB, 12)
         Sheets("RelVDCliente").Cells(linhaquebra, 2) = QuebraAnterior
         Sheets("RelVDCliente").Cells(linhaquebra, 1).Value = TabVendas.Cells(LINHATAB, 12)
      Else
         QuebraAnterior = TabVendas.Cells(LINHATAB, 12)
         Sheets("RelVDCliente").Cells(linhaquebra, 1).Value = TabVendas.Cells(LINHATAB, 12)
         linhaquebra = linhaquebra + 1
         End If
              
     'PRODUTO
     Sheets("TabVendas").Cells(LINHATAB, 1).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 1)
     'DESCRICAO
     Sheets("TabVendas").Cells(LINHATAB, 3).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 2)
     'QUANTIDADE
     Sheets("TabVendas").Cells(LINHATAB, 7).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 5)
     'PRECO
     Sheets("TabVendas").Cells(LINHATAB, 6).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 6)
     'TOTAL
     Sheets("TabVendas").Cells(LINHATAB, 8).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 7)
     'GRUPO
     Sheets("TabVendas").Cells(LINHATAB, 11).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 8)
     'PERCENTUAL
     Sheets("TabVendas").Cells(LINHATAB, 9).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 9)
     'GRUPO
     Sheets("TabVendas").Cells(LINHATAB, 10).Copy Destination:=Sheets("RelVDCliente").Cells(LINHAREL, 10)
    
    
      'Totalização / Totais dos Itens para o RelPedido
     
        SumTotal = SumTotal + TabVendas.Cells(LINHATAB, 8)
        Sheets("RelVDCliente").Range("F21").Value = SumTotal
        Sheets("RelVDCliente").Range("F21").NumberFormat = "#,##0.00"
  
        LINHAREL = LINHAREL + 1
  
    End If
      LINHATAB = LINHATAB + 1
  Loop
  
   
End Sub

Postado : 05/04/2018 12:30 pm

Fernandox

(@fernandox)

Posts: 68

Trusted Member

Topic starter

Arquivo em anexo

Postado : 05/04/2018 12:36 pm

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa tarde Fernando,

Você anexou uma imagem do arquivo, e não um arquivo de exemplo.

att,

Postado : 05/04/2018 1:51 pm

Fernandox

(@fernandox)

Posts: 68

Trusted Member

Topic starter

Ola brunoxro, estou tentando reduzir o tamanho da planilha, mesmo sendo pequena 82kb, teria alguma opção ou alternativa para estar reduzindo esta planilha, ja retirei alguns registros da planilha para estar reduzindo, já compactei a planilha e mesmo assim, não foi possivel.

Postado : 06/04/2018 11:11 am

Fernandox

(@fernandox)

Posts: 68

Trusted Member

Topic starter

Ola Bruno, teria como voce montar esta planilha com os seguintes campos, PRODUTO, DESCRIÇÃO, QTDE, PRECO , TOTAL apenas, fico grato pela ajuda,abraço

Postado : 06/04/2018 11:25 am

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa noite Fernando,

Eu não consiguo nem enxergar a imagem que você colocou em anexo.

No forum é aceito até 1mb, essa planilha é aceita sim. Tente compactar num arquivo .zip.

Veja se ajuda: viewtopic.php?f=7&t=3841

att,

Postado : 06/04/2018 4:10 pm

Fernandox

(@fernandox)

Posts: 68

Trusted Member

Topic starter

Ola, Bruno, estou enviando por partes, pois não consegui ainda enviar as planilhas ocorre a mesma mensagem dizendo que o limite e 50kb, será porque não possuo um tempo de forum ainda? Por este motivo tenho uma limitação para envio de arquivos?

Postado : 10/04/2018 9:53 am