Opa!
Eu tenho uma planilha relativamente complexa (para o meu nível), onde tenho várias macros, botões, formulas, etc. e esta planilha gira em torno da função "ContaCélulaColorida"
Function ContaCelulaColorida(rngColorInfo As Range, Intervalo As Range) As Long
Dim rConta As Range
For Each rConta In Intervalo.Cells
If rConta.Interior.ColorIndex = rngColorInfo.Interior.ColorIndex Then
ContaCelulaColorida = ContaCelulaColorida + 1
End If
Next
End Function
Atualmente estou tentando inserir alguns formulários que devem abrir automaticamente (Workbook Open), porém esta sub só funciona quando quer, literalmente. Estou usando uma Sub Workbook Open com Msgbox para testar, e num momento ela funciona, mas ao fazer qualquer alteração simples no arquivo, salvar, fechar e abrir novamente, a Sub Workbook Open não funciona =/. Já testei tudo para identificar o erro e até agora nada!
1 - "Salvei como", alterei nome, etc.
1 - Revisei as macros: apaguei espaços, comentários, etc.;
2 - Excluí algumas macros e botões: excluí módulos inteiros, um a um:
3 - Refiz fórmulas muito longas (minha maior fórmula tem 7 funções);
4 - Excluí abas inteiras, uma a uma;
5 - Testei a function "ContaCelulaColorida" em um arquivo novo juntamente com a sub Workbook Open Msgbox - Funciona perfeitamente!
Alguém tem alguma idéia do que possa estar causando esse problema? Quantidade máxima de macros? Botoes? Conflito entre X e Y?
Postado : 16/05/2017 8:22 pm