Segue em anexo
Na celula C1 tem uma fórmula, pois ao clicar no botão + ela inseri a linha, mas não copia a fórmula para C11
Agora vai no código VBA e desativa esse trecho do código abaixo, pois assim funciona
Conclusão: Esse código não está deixando copiar a fórmula
With wsAtiva
uC = .Cells(11, .Columns.Count).End(xlToRight).Column
Set rng = .Range(.Cells(11, "A"), .Cells(11, uC))
For Each c In rng
c = UCase(c.Value)
Next
End With
Postado : 16/04/2016 12:36 pm