Boa noite, pasedo. Seria algo +- assim: Private Sub Workbook_Open() Dim QtdePlan As Long Dim i As Long Dim UltLin UltLin = Range("C"...

Boa tarde, vonzuben. O numero 6 é o valor de retorno da sua variável Resp. Aqui explica melhor https://msdn.microsoft.com/pt-br/libra...

Boa tarde, robo8268. Testei seu código e também retorno o mesmo erro, procurei na internet e encontrei o seguinte exemplo que esta funcionado, da uma...

Boa noite, Reef. Da uma olhada no arquivo, vê se é +- isso que queria

o problema da declaração do 32 e 64 bits foi resolvido da seguinte forma #If VBA7 Then Public Declare PtrSafe Function FindWindowA& Lib "us...

Desculpa intrometer na troca de ideia dos senhores ... Mas acho que seria isso que esta querendo vonzuben Troque seu código por esse abaixo e realiz...

Boa noite, Bernardo. Exatamente o que eu estava precisando, só troquei a referencia da colunas onde busca o nome e rodou tudo certinho. Mais uma vez ...

Boa noite, Bernardo ... Tudo tranquilo !! Cara sou seu fã, o código de gerar chave esta acabando com alegria de uns usuários ... , ficou muito bom, ...

Boa tarde, vambrosios Não sei se seria essa a solução, de uma olhada no arquivo vê se ajuda.

Ficaria algo assim CAMINHO = ThisWorkbook.Path & "" & strName

Boa tarde, FlavioCruz. Levando em consideração o que o nosso amigo MPrudencio falou, uma forma de contornar seria inserir os dados em caixa alta. No ...

Obrigado, Reef. Depois de você quase desenhar o que precisava, tinha que acertar uma vez .. kkkk Não esquece desses dois itens abaixo: Se a resposta...

Ficou muito da hora a regressão com o código que passou. Mais um vez obrigado. Agora sim posso colocar como RESOLVIDO o tópico !!!