Notifications
Clear all

Transferir a somatoria para outra tabela

8 Posts
3 Usuários
0 Reactions
1,196 Visualizações
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Pessoal,
Por gentileza, alguém saberia me auxiliar, eu fiz uma somatória de uma coluna (F8: F19 da TabVendas e agora preciso salvar ou transferir para outra tabela chamada de RelPedido para a coluna de Total F21, grato a todos que postarem na ajuda. obrg

Fiz dessa maneira o código:
Dim SumTotal as integer

SumTotal = WorksheetFunction.Sum(Range("F8:F19"))
Worksheets("RelPedido").Range("F21").Value = SumTotal

 
Postado : 31/03/2018 3:48 pm
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

E que erro isso está retornando?

Aqui Seu código funciona perfeitamente...

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 31/03/2018 3:57 pm
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola xlarruda, na verdade não consegui ainda fazer aparecer na tabela RelPedido a totalização dessas colunas.
como não tenho experiencia em excel, estou tentando de acordo com códigos dos quais tenho tirado da internet.
Minha necessidade atualmennte é de somar a coluna F8 da TabVendas e o resultado (Total) transferir para o Relatorio (RelPedido) na coluna F21

 
Postado : 31/03/2018 4:10 pm
(@klarc28)
Posts: 971
Prominent Member
 
Private Sub CommandButton1_Click()
sheets("RelPedido").Range("F21").Value = WorksheetFunction.Sum(sheets("TabVendas").Range("F8:F19"))
End Sub
 
 
Postado : 31/03/2018 4:16 pm
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola xlarruda, eu consegui fazer o código funcionar, totalizando no relatório, só que, esta somando apenas o último registro lido na TabVendas, conforme segue abaixo as tabelas e o Relatório
Obrg pelo envio da aula da totalização, deixei guardado para possíveis utilização.

Este meu código fonte

Sub ImprimirPedido()
Dim LINHA As Integer
Dim LINHAREL As Integer
Dim LINHATAB As Integer
Dim SumTotal As Integer

'Limpando os registros do RelPedido - para receber novos dados
 Sheets("RelPedido").Range("A8:F18").Clear
 Sheets("RelPedido").Range("B3:B4").Clear
 Sheets("RelPedido").Range("D4").Clear
 Sheets("RelPedido").Range("F21").Clear

'Copiar dados do Cabecalho para o Relatorio
Sheets("TabVendas").Range("E2").Copy Destination:=Sheets("RelPedido").Range("B3")
Sheets("TabVendas").Range("B2").Copy Destination:=Sheets("RelPedido").Range("B4")
Sheets("TabVendas").Range("D2").Copy Destination:=Sheets("RelPedido").Range("B5")

LINHATAB = 2 'Pegar os dados da TabVendas A2
LINHAREL = 8 'Pegar os dados da RelPedido A7
   
   
    Worksheets("RelPedido").Range("B3").Font.ColorIndex = 3
    
   
  Do Until TabVendas.Cells(LINHATAB, 12) = ""
    If TabVendas.Cells(LINHATAB, 12) = Pedidos Then
     
     'PRODUTO
     Sheets("TabVendas").Cells(LINHATAB, 1).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 1)
     'DESCRICAO
     Sheets("TabVendas").Cells(LINHATAB, 3).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 2)
     'QUANTIDADE
     Sheets("TabVendas").Cells(LINHATAB, 7).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 4)
     'PRECO
     Sheets("TabVendas").Cells(LINHATAB, 6).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 5)
     'TOTAL
     Sheets("TabVendas").Cells(LINHATAB, 8).Copy Destination:=Sheets("RelPedido").Cells(LINHAREL, 6)
      
         
         SumTotal = WorksheetFunction.Sum(TabVendas.Cells(LINHATAB, 8))
         Sheets("RelPedido").Range("F21").Value = WorksheetFunction.Sum(TabVendas.Cells(LINHATAB, 8))
          
        LINHAREL = LINHAREL + 1
  
    End If
      LINHATAB = LINHATAB + 1
  Loop
  
  Sheets("RelPedido").Range("F21").Value = SumTotal
  
   Criar_PDF
   
End Sub
 
Postado : 31/03/2018 5:06 pm
(@klarc28)
Posts: 971
Prominent Member
 

Substitua estas linhas:

SumTotal = WorksheetFunction.Sum(TabVendas.Cells(LINHATAB, 8))
Sheets("RelPedido").Range("F21").Value = WorksheetFunction.Sum(TabVendas.Cells(LINHATAB, 8))

Por:

SumTotal = SumTotal + TabVendas.Cells(LINHATAB, 8)
Sheets("RelPedido").Range("F21").Value = SumTotal
 
Postado : 31/03/2018 5:13 pm
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola xlarruda
Desculpa da demora em tentar enviar o Relatório, pois não estava facil de transforma-lo em 50kb, mais peguei seu código
conforme havia modificado, ESTA FUNCIONANDO PERFEITAMENTE, muito obrg por sua ajuda, vou aprendendo com suas dicas e orientações, abraço

 
Postado : 31/03/2018 5:23 pm
(@klarc28)
Posts: 971
Prominent Member
 

Quando enviar código, aperte o botão Code.
Marque como resolvido na parte que resolveu sua dúvida, não na sua própria parte.

 
Postado : 31/03/2018 5:28 pm