Veja se te atende.  Comparacao_e_substituicao.xlsm

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) ' Trata possíveis erros On Error Resume Next ' Ignor...

Pelo problema descrito, parece ser uma divergência do tipo da célula. Tente alterar do tipo Texto para Geral conforme print em anexo e veja se funcion...

Segue a fórmula. A primeira em destaque na imagem foi conforme solicitado, usando uma célula de referência para a datal atual.A segunda forma é a me...

Existe muito código para o evento Change da planilha, verifique a possibilidade de disparar tudo de uma vez através de um botão manualmente.

Lembrando que uma Sheet tem 2 nomes, o primeiro conseguimos manipular pela janela de propriedades VBA e o outro é o que conhecemos, o nome que aparece...

No evento Change da Sheet, cole o código: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) ' Trata possíveis erros ...

Boa noite, segue.  1730105430-LANCADOR-AUTOMATICO.xlsm

Boa noite Conrado. Compartilhe a planilha com dados ficticios, assim podemos te ajudar melhor. Se possível, mostre um exemplo de como os dados dev...

Quando você salva, a macro roda o código abaixo: Range("A11").Value = Me.TextBoxQtd.Value Em seguida, você define TextBoxQtd para uma string vazia ...

@souzadenilson anexa em algum serviço de armazenamento e compartilha o link

@souzadenilson Tente anexar novamente o arquivo, caso não consiga, tente enviar compactado.

=SOMA(CONT.SE(B2:AF2;"SD");CONT.SE(B2:AD2;"C");CONT.SE(B2:AD2;"J"))

Dá uma olhada, primeiro escolha os 2 arquivos em anexo para você ver como funciona corretamente, depois adapte para sua necessidade.  Consolida...

Boa noite. Tente anexar o arquivo novamente e faça um exemplo manualmente do resultado esperado para que possamos ajudar melhor.