Notifications
Clear all

Problemas com Macro e Função

5 Posts
2 Usuários
0 Reactions
1,114 Visualizações
(@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)
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
(@olakunde)
Posts: 22
Eminent Member
Topic starter
 

cara perdão, esta correto sim. Obrigado!

 
Postado : 26/01/2015 2:48 pm