Bom dia, Resolvido o Problema com o seguinte macro, Private Sub TextDataRecibo_AfterUpdate()TextDataRecibo = Format(TextDataRecibo, " dd"" de ""m...

@teleguiado obrigado pela ajuda mas vou desistir do projeto por ora, esta enrolado e estou incomodando demais , Agradeço imensamente a ajuda .

Teleguiado, Bom dia inseri a planilha junto nos meus controles e acontece o seguinte se houver outra planilha dentro da pasta ele trava marque...

@teleguiado Boa noite, é isso mesmo muitíssimo obrigado pela ajuda tenhas um otimo dia

@teleguiado desculpa se não fui claro ' pega o valor da célula C3 e verifica se tem um diretório aberto' se não tiver cria um diretório e salva ...

@teleguiado estive procurando consegui alguns comando me auxiliaram mas não consegui obter o resultado esperado obrigado pela informação

Não consegui anexar o arquivo segue o código Sub Achar() Application.ScreenUpdating = False Dim M As Worksheet Dim UltCel As ...

Não sei se foi o arquivo, mas segue então

Vitor o que eu acho que seria interessante se ficasse os serviços independentes da nota, se pudesse buscar as informações na planilha produtos e im...

vou verificar com ele e retorno, mas sabendo que tem possibilidade ja informo a ele obrigado pela atenção Leandro,