Fernandox, Desculpe o inconveniente amigo. Fiz pequenas alterações nos códigos existentes. Favor teste e retorne. Link : https://we.tl/kDk...

Duvidoso, A única maneira que conheço para isso seria, criar uma variável do tipo Integer ou Long no escopo do formulário, ex : Dim idBotao As Long ...

Fernandox, Amigo, veja se as alterações atendem sua necessidade. Código comentado para melhor entendimento. Link : https://we.tl/A1n3nBdcA...

Paulo, Se houverem unidades mapeadas em seu computador, experimente o que segue abaixo: If Dir (Z:) = "" Then Exit Sub Else 'Cód...

vonzuben, Veja se é isso que busca. Link WeTransfer : Espero ter ajudado. Abs

Gabriel, Veja se as alterações atendem sua necessidade. PS : Não consegui postar o arquivo aqui, então baixe deste link do WeTransfer Abs

Carlos, Experimente o que segue abaixo : Sub Macro02() Dim novaLinha As Long Range("A1:E1").Select Selection.Co...

AMORIM123, Adicione a instrução On Error Resume Next no bloco que define o valor de cada variável. O erro ocorre devido á tentativa de converter o va...

AMORIM123, Experimente pegar o bloco que faz a o tratamento dos dados e colocá-lo antes do bloco que faz a pesquisa por dados idênticos e questiona o...

ThiagoJ, Isso está ocorrendo justamente por causa do evento utilizado. Repare que você está utilizando o evento certo para isso, mas não está validan...

diogodvd, Experimente tratar o erro, conforme exemplo que deixo abaixo: Option Explicit Sub BuscarCSV() Application.ScreenUpdating = False ...

gfsouza86, Veja se as alterações atendem sua demanda. Para que funcione, clique em EDITAR, digite a NF e tecle ENTER ou TAB para fazermos a pesquisa...

gfsouza86, Veja se a forma como editei seu modelo atende sua necessidade. Abs

Perroni, Pelo pouco que analisei seu modelo, notei o que segue : Para o formulário fmCadastro_Leitura_Atual, a rotina funciona pois existe 2 colunas...

Perroni, Como o controle está em um UserForm, experimente referenciar o nome do formulário e do controle (este, de outra forma) na linha WorkSheetFun...