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