SubTotal após filtro com critério  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

SubTotal após filtro com critério

Mensagempor elosprod » Qua Jan 17, 2018 6:02 pm

Boa noite, sou apaixonado por VBA e planilhando é minha bíblia.

Não consigo colocar o valor de SUBTOTAL na planilha anexo aba Carregamento, já tentei vários códigos mas sempre retorna o valor errado.
Será que poderiam me ajudar?

cheguei até aqui:
Código: Selecionar todos
Sub Relatorio_carregamento()

Sheets("Planilha Milenium").Select

relatorio_fdgiga

    Application.ScreenUpdating = False
    Sheets("Carregamento").Visible = True
    Sheets("Carregamento").Select
    Range("A1").Select
    ActiveCell = "RELATÓRIO LONDRINA - FD GIGA"
    Range("A2").Select
    ActiveCell = "VALOR"
    Range("A1048576").End(xlUp).Offset(1, 0).Select
    ActiveCell = "subtotal da coluna D do relatorio gerado pelo critério da planilha milenium"

           '****Aqui gostaria de inserir o subtotal da coluna "D" do relatorio gerado pelo critério da planilha milenium**** total de valores
         
Range("A1048576").End(xlUp).Offset(1, 0).Select

ActiveCell = "VOLUMES"
   Range("A1048576").End(xlUp).Offset(1, 0).Select
    '****Aqui gostaria de inserir o subtotal da coluna "I" do relatorio gerado pelo critério da planilha milenium**** total de volumes
    ActiveCell = "subtotal da coluna I do relatorio gerado pelo critério da planilha milenium"
   
Código do relatório com critério

Sub relatorio_apucarana()

'
    Sheets("Planilha Milenium").Select
    retirar_filtro
    ActiveSheet.Range("$A$2:$O$3878").AutoFilter Field:=3, Criteria1:="="
    ActiveSheet.Range("$A$2:$O$3878").AutoFilter Field:=7, Criteria1:= _
        "APUCARANA"
    ActiveWindow.SmallScroll Down:=-123

End Sub

Anexei planilha, o código que preciso alterar está no módulo 9.
Você não está autorizado a ver ou baixar esse anexo.
elosprod
Membro
Membro
 
Mensagens: 19
Registrado em: Ter Mai 24, 2016 2:59 pm
Has thanked: 7 times
Have thanks: 1 time

{ SO_SELECT }

Re: SubTotal após filtro com critério

Mensagempor Osvaldomp » Qua Jan 17, 2018 7:56 pm

elosprod escreveu:...sou apaixonado por VBA ...

Dicas:
1. escreva os seus códigos sem utilizar o comando Select
2. esta expressão ~~~> Range("A1048576").End(xlUp).Offset(1, 0)... ~~~> só funciona a partir do Excel 2007, nas versões anteriores provocará erro; esta funciona em qualquer versão ~~~> Cells(Rows.Count, "A").End(xlUp).Offset(1)...

para contar valores:
Código: Selecionar todos
Cells(Rows.Count, 1).End(xlUp).Offset(1).FormulaLocal = _
"=SUBTOTAL(103;D2:D" & Cells(Rows.Count, 4).End(xlUp).Row & ")"


para somar valores
Código: Selecionar todos
Cells(Rows.Count, 1).End(xlUp).Offset(1).FormulaLocal = _
"=SUBTOTAL(109;D2:D" & Cells(Rows.Count, 4).End(xlUp).Row & ")"
Osvaldo
Osvaldomp
Membro
Membro
 
Mensagens: 505
Registrado em: Seg Mar 26, 2012 6:33 pm
Has thanked: 99 times
Have thanks: 259 times

Re: SubTotal após filtro com critério

Mensagempor elosprod » Qui Jan 18, 2018 3:43 pm

Obrigado Osvaldo, vou testar aqui e já agradeço pela dica!

Grande abraço
elosprod
Membro
Membro
 
Mensagens: 19
Registrado em: Ter Mai 24, 2016 2:59 pm
Has thanked: 7 times
Have thanks: 1 time

Re: SubTotal após filtro com critério

Mensagempor elosprod » Qui Jan 18, 2018 4:01 pm

Não funcionou!, não entendi onde colocar o código
elosprod
Membro
Membro
 
Mensagens: 19
Registrado em: Ter Mai 24, 2016 2:59 pm
Has thanked: 7 times
Have thanks: 1 time

Re: SubTotal após filtro com critério

Mensagempor Osvaldomp » Qui Jan 18, 2018 4:07 pm

Coloque exatamente na parte que você pediu:

Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveCell = "subtotal da coluna D do relatorio gerado pelo critério da planilha milenium"

'****Aqui gostaria de inserir o subtotal da coluna "D" do relatorio gerado pelo critério da planilha milenium**** total de valores
Osvaldo
Osvaldomp
Membro
Membro
 
Mensagens: 505
Registrado em: Seg Mar 26, 2012 6:33 pm
Has thanked: 99 times
Have thanks: 259 times

Re: SubTotal após filtro com critério

Mensagempor elosprod » Qui Jan 18, 2018 4:38 pm

Entendi, retorna falso pois o código é rodado na sheet carregamento e a referencia de subtotal teria de ser da sheet planilha milenium.

Agradeço até aqui, pois funciona em outro relatório que tenho aqui.

mas vou tentar ainda acertar. se estiver entendendo o que peço e poder ajudar fico novamente grato.
elosprod
Membro
Membro
 
Mensagens: 19
Registrado em: Ter Mai 24, 2016 2:59 pm
Has thanked: 7 times
Have thanks: 1 time

Re: SubTotal após filtro com critério  [Resolvido]

Mensagempor Osvaldomp » Sex Jan 19, 2018 4:24 pm

Experimente:

substitua as duas linhas abaixo
Código: Selecionar todos
Range("A1048576").End(xlUp).Offset(1, 0).Select
   ActiveCell = "subtotal da coluna D do relatorio gerado pelo critério da planilha milenium"



por estas
Código: Selecionar todos
Cells(Rows.Count, 1).End(xlUp).Offset(1).FormulaLocal = _
     "=SUBTOTAL(109;'Planilha Milenium'!D2:D" & Sheets("Planilha Milenium").Cells(Rows.Count, 4).End(xlUp).Row & ")"
Osvaldo
Osvaldomp
Membro
Membro
 
Mensagens: 505
Registrado em: Seg Mar 26, 2012 6:33 pm
Has thanked: 99 times
Have thanks: 259 times

Re: SubTotal após filtro com critério [Resolvido]

Mensagempor elosprod » Sáb Jan 20, 2018 10:23 am

Obrigado Osvaldo!

Deu certo, esta é a melhor comunidade de VBA que existe!

Vcs são Feras!!

Grande Abraço.

For this post the author elosprod thanked:
Osvaldomp (Sáb Jan 20, 2018 10:41 am)
elosprod
Membro
Membro
 
Mensagens: 19
Registrado em: Ter Mai 24, 2016 2:59 pm
Has thanked: 7 times
Have thanks: 1 time

Re: SubTotal após filtro com critério

Mensagempor Patropi » Sáb Jan 20, 2018 1:20 pm

elosprod

Faltou clicar na mãozinha para agradecer ao colaborador.
Na próxima marque Resolvido na resposta que te atendeu, não na tua pergunta.

Acesse o link abaixo para ver como funcionam essas ferramentas.

viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador
Patropi /Moderador
Se a resposta foi útil, clique na mãozinha ao lado da ferramenta Citar.
Avatar do usuário
Patropi
Ninja do Excel
Ninja do Excel
 
Mensagens: 8719
Registrado em: Sáb Jun 05, 2010 4:36 pm
Localização: Campo Mourão - PR
Has thanked: 212 times
Have thanks: 3450 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 4 visitantes