AMORIM, Substitua este trecho de código pelo que deixo abaixo : If strbusca = datPeriodo Then 'Formato moeda sem os cara...

AMORIM, Desculpe amigo. Acabei postando a rotina de testes. Favor Altere a linha : trataErro: If Err= Err Then Para: trataErro: If Err= ...

AMORIM, Experimente substituir a rotina contida no evento AfterUpdate pela que deixo abaixo : Dim lngPriLin, lngUltLin, lngLoopLin As Long...

AMORIM, Analisando seu modelo, pude notar que a rotina contida no evento AfterUpdate não retorna os dados de acordo com a data e sim, atualiza os val...

AMORIM, Amigo, posso estar enganado, mas creio que o erro esteja ocorrendo justamente porque ao iniciar o Formulário, você está convertendo o txt_Per...

Monrizzo, Se você utiliza a propriedade RowSource para preencher o ComboBox, com certeza é isso que causa a perda de dados. Para que isso não ocorra...

Luk, Desculpe a confusão! Faça como segue abaixo : For vItem = 1 To ListProdutos.ListItems.Count ListProdutos.ListItems(vItem)�...

Luk, Após remover o item selecionado, use um laço FOR => NEXT para reindexar o ListView, ex : For vItem = 0 To ListView1.ListItems.Coun...

Armorim, Veja se o exemplo abaixo te ajuda: Sub excluir() Dim w As Worksheet Dim linhaAtual, ultCel As Long Set w = Sheets("NfeRelacaoRecebid...

ecks, Altere em sua rotina, a linha que recebe o nome do arquivo, e adicione a ela, antes do nome do arquivo TXT, a instrução ThisWorkBook.Path &...

ecks, Experimente a rotina que deixo abaixo : Sub apagarDados() With ThisWorkbook.Sheets("Plan1") Dim linhaAtual, linhaFi...

vonzuben, Experimente trocar esta rotina pela que deixo abaixo: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If ...

ecks, Experimente o que segue abaixo : Adicione o bloco de códigos abaixo em um módulo. Sub pesquisarTermo() Dim caixaPesquisa As String in...

Fernando, Fiz alguns testes e modificações em seu modelo. Agora é possível adicionar, editar e remover um registro normalmente. Link : https://...

Fernandox, Fiz alguma alterações. Favor teste e retorne. Link : https://we.tl/2lzk0ObRQM Abs