Jokaman Fiz o teste aqui e funcionou, ele tirou a seleção em azul do item selecionado

Jokaman Veja se isso te ajuda ListBox1.ListIndex = -1 'onde listbox1 é o nome da sua listbox se listindex indica qual linha deve ser selecio...

Veja se isso te ajuda Sub Main() Dim info() As String ' cria uma array ultlinha = ThisWorkbook.Sheets("referencias").Range(&qu...

Sempre há um porém ou uma variável que nunca é dita na pergunta original, explicar toda a questão facilita o trabalho, já que o projeto está na sua me...

Como voce não disponibilizou o código e nem a planilha segue um exemplo o código abaixo, usa uma funcção chamada "verifica" onde retorna ve...

Fiz uma função há um tempo atrás chamada Gettok essa função existe em outras linguagens Function Gettok(txt As String, crt As String, nm As Integer)...

Você pode usar Worksheets("BD-Duplicatas").Cells(totalregistro, 1) = caixa_titulo e tirar o select

Veja o código é Range e não rage, outra coisa, range só aceita a referência da célula ou seja, apenas Range("A1") ' exemplo o que ace...

Não consegui entender exatamente o que você precisa Mas vamos lá não é "FOR IF", existem dois tipos de loop for, que você pode buscar aju...

W&L, Veja se te ajuda

W&L, Se você tivesse enviado a planilha, já teria enviado de volta com a resolução do problema ao invés de tantas respostas e você ainda não ter ...

Clica em "adicionar anexo" e envia a sua planilha no modo .rar

Envia a sua planilha, isso é facil de ser feito

Veja se isso te ajuda Não baixei o arquivo ainda Sub abrir() Dim i As String i = Format(Now, "hh:mm") If i >= Format(Sheets(&qu...

Amigo segue sugestao, veja se consegue adaptar. Sub Abrir_Arquivo_Mais_Recente() Dim Arq As Variant, i As Integer, Caminho As Variant Cam...