Problemas com Macro e Função

2024 - VBA & Macros

Post Recente por olakunde 10 anos atrás

5 Posts

2 Usuários

0 Reactions

1,128 Visualizações

RSS

olakunde

(@olakunde)

Posts: 22

Eminent Member

Topic starter

Bom dia!

Havia aberto anteriormente um tópico solicitando ajuda para criar um painel onde ao selecionar uma localização em um ListBox, seria apresentado as informações referente esta localização. Um usuário do fórum conseguiu fazer exatamente o que precisava, porém na planilha de Painel (a que foi inserido a macro), não consegui inserir na planilha nenhum tipo de função, formulas, quando insiro a pasta inteira trava. Segue duas planilhas exemplo em anexo uma sem função e outra com, se alguém conseguir descobrir o motivo do travamento da pasta agradeço.

Att,
Carlos

Postado : 26/01/2015 7:14 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Segue anexo para realizar os teste!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 26/01/2015 8:54 am

olakunde

(@olakunde)

Posts: 22

Eminent Member

Topic starter

Então esta da mesma forma, porque você retirou a função Cont.Se que estava nas células da tabela Totalizadores, ai a macro funciona e não trava, porém se vc incluir esta função na célula para calcular automático ele trava. Na planilha Base será atualizada diariamente, com novos equipamentos e os totalizadores serão atualizados automaticamente com a função Cont.Se

Postado : 26/01/2015 9:38 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Então esta da mesma forma

Eu sugiro que você feche todos os arquivos e teste o meu, pois está normal.

porque você retirou a função Cont.Se que estava nas células da tabela Totalizadores,

Não tirei!!!
A formula continua e virou valores, o resultado dessa formula será sempre o mesmo pois segundo sua formula os dados serão contados dentro da guia "Base" o arquivo foi testado, e funcionando.

Sub Formula()
    Dim lastrow As Long
     
    lastrow = Cells(Rows.Count, "B").End(xlUp).Row
     
    
    Application.EnableEvents = False
    Worksheets("Painel").Activate
    With Worksheets("Painel")
        .Range("C14").Formula = "=COUNTIF(Base!D:D,B14)"
        .Range("C14").AutoFill Destination:=.Range("C14:C" & lastrow)
        .Range("C14:C" & lastrow).Value = .Range("C14:C" & lastrow).Value
    End With
    Application.EnableEvents = True

    
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 26/01/2015 11:24 am