Excel Concatenar Células em Negrito com Texto Pré-Definido

[Luan Valle]

Galera, bom dia!

 

Tentei algumas vezes sem sucesso, parti para o google. Incrivelmente não achei sobre e criei este tópico.

 

Quando algum cliente meu precisa de Notas Fiscais Série-D, antes precisa desta carta solicitando a Gráfica com todos os seus dados. Então criei esta planilha para o restante dos funcionários, concatenando as informações inseridas na direita para o texto já pré-definido à esquerda. 

 

A questão é: consigo, via VBA, "negritar" somente as informações das empresas inseridas à direita mesmo concatenadas na mesma célula? 

 

Exemplo: =CONCATENAR("A empresa ";AJ5;", nome fantasia ";AJ6;", sediada na ";AJ7;", telefone ";AJ8;", CEP ";AJ9;", inscrita no CNPJ ";AJ10;", Inscrição Estadual nº ";AJ11;", neste ato devidamente representado pelo seu titular, o Sr. ";AJ12;", portador do CPF n° ";AJ13;", vem através deste, requerer junto a GRÁFICA IPAGRAF LTDA, a confecção de ";AJ14;" ("&AJ15&")";" blocos de notas fiscais, 50x3, série 'D' de n° ";AJ16;" a ";AJ17;", sendo no total de ";AJ18;" notas CARBONADAS.")

 

 

[jonaskoxne]

@Luan Valle Olá, tudo certo?

Também estou com essa mesma necessidade, se tiver conseguido fazer de alguma forma desde a criação do post, e puder me enviar, agradeço muito!

Abraço

[Visitante]

Negritar na própria fórmula me parece que não é possível.

 

Para contornar é possível via macro copiar/colar a fórmula como valor em outra célula e aí sim, negritar.

 

Se houver interesse disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel com o resultado desejado.

[Luan Valle]

@osvaldomp Segue a planilha.

 

TERMO REQUERIMENTO NF D.rarBuscando informações...

[Visitante]

 

1. insira uma planilha vazia no seu arquivo e renomeie-a Plan1

2. na planilha inserida formate B18:Z27 exatamente igual à formatação que você aplicou em Recibo Mega Central!B18:Z27

3. copie a fórmula de Recibo Mega Central!B18:B27 e cole em Plan1!B18:B27

4. na fórmula colada será preciso inserir o nome Recibo Mega Central junto de cada endereço de célula, por exemplo AJ5 deverá ficar assim 'Recibo Mega Central'!AJ5; uma forma de fazer isso é via Localizar/Substituir, assim: selecione a célula que contém a fórmula / Ctrl+L / Localizar: AJ / Substituir: 'Recibo Mega Central'!AJ

5. cole uma cópia do código abaixo em um módulo comum, salve o arquivo e rode o código com a planilha Recibo Mega Central sendo a planilha ativa

 

Se o resultado for o desejado então você poderá descomentar no código o comando que chama a macro GerarPDF ou poderá chamar o código logo no início da macro GerarPDF.

Sub NegritaPartes()
 Dim c As Range, k As Long, x As Long
  Application.ScreenUpdating = False
  Sheets("Plan1").[B18:Z27].Copy
  [B18].PasteSpecial xlValues
  For Each c In Range("AJ5:AJ18")
   k = InStr(x + 1, [B18], c.Value)
   [B18].Characters(k, Len(c.Value)).Font.Bold = True
   x = k + Len(c.Value)
  Next c
  'GerarPDFEntradaseSaídas
End Sub

 

[Luan Valle]

@osvaldomp Valeu mano! Vou disponibilizar ela aqui pra quem precisar futuramente fazer o download. Eu inclusive adicionei um botão ao lado do Gerar PDF pra ficar interativo, já que o restante do pessoal do escritório é básico, será fácil de utilizar.

 

 

 

TERMO REQUERIMENTO NF D.rarBuscando informações...

adicionado 1 minuto depois

@jonaskoxne O @osvaldomp nos trouxe a solução amigo, deixei o arquivo pra download acima.

[jonaskoxne]

Valeu @osvaldomp ótima solução. Consegui adaptar para a minha necessidade aqui.

 

Obrigado também ao @Luan Valle pelo post.