Excel SpellNumber e Concatenar Erros

[Ileusis LUNA ARAUJO E SILV]

Ola, pessoal! Como vcs estão?

 

Estou montando uma planilha para previsão do DAS (imposto pago por empresa optante pelo Simples Nacional).

 

No fim dela estou criando uma formula para auxiliar o usuário a elaborar o texto obrigatório de dados adicionais, que é:

I - ME ou EPP Optante Pelo Simples Nacional. II - "Não gera direito a credito fiscal de IPI. III - Permite o aproveitamento de crédito de ICMS sob aliquota de ____% no valor de R$ ________ (repetindo por extenso). Base legal  LC 123/2006, art. 23 §§ 1º ao 6º. 

 

 

Para fazer este texto todo estou usando a fórmula "concatenar".

No campo da aliquota, ele tem que copiar a informação dada na celula I35 (para este caso, que o usuário ira usar a tabela do anexo II)

No campo do valor, ele tem que copiar a informaçaão dada na celula I37.

 

Para o valor por extenso, tentei criar o VBA conforme orientado no site da microsoft https://support.microsoft.com/pt-br/office/converter-números-em-palavras-a0d166fb-e1ea-4090-95c8-69442cd55d98#:~:text=Digite a fórmula %3D SpellNumber(a1,Enter para confirmar a fórmula.

 

 

 

Problemas:

Na formula "concatenar", ao invés de copiar exatamente o que está nas celulas I35 e I37, o excel está convertendo o percentual em decimal e colocando todas as casas depois da vígula, quero que ele respeite a regra de arredondamento (no exemplo dado, seria 89,30)

 

Quanto ao VBA, eu não mudei nada na estrutura do código, mas aparece uma mensagem de erro. Printes abaixo e planilha em anexo.

 

 

 

Grata desde ja´, 

 

 

 

PROVISAO DE ALIQUOTA - 2023.xlsx

[OreiaG]

Veja se atende.

 

=CONCATENAR(A68;" ";TEXTO(I35;"##,00%");" ";A69;" ";TEXTO(I37;"R$ ##,00");"";A72)

 

 

Na UDF, remova a sublinha na linha em que ocorre o erro.

& _ "00" >>> deve ficar assim >>> & "00"

[Ileusis LUNA ARAUJO E SILV]

@OreiaG Muito obrigada! Caiu como uma luva!