Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Relatório com Quebr...
 
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,529 Visualizações
RSS
 Fernandox
(@fernandox)
Posts: 0
New 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: 0
New Member
Topic starter
 

Arquivo em anexo

 
Postado : 05/04/2018 12:36 pm
 brunoxro
(@brunoxro)
Posts: 0
New 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: 0
New 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: 0
New 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: 0
New 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: 0
New 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
 brunoxro
(@brunoxro)
Posts: 0
New Member
 

Boa tarde,

Parece que mudaram o tamanho permitido.
Tente colocar a planilha em algum site que anexe arquivo ou tente reduzir o tamanho.

Dê uma lida: viewtopic.php?f=28&t=8862

att,

 
Postado : 10/04/2018 2:31 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico