Marcos, boa noite. Anexo segue mais uma contribuição usando fórmula.

notei que o pessoal gosta sempre de definir um intervalo como uma variavel e depois manipular ele, como o "rg" parece que nao se gosta muito...

Uma ideia: Sub teste1() Dim rg As Range, i As Long For i = 1 To 5000 Step 2 Worksheets("lc").Range("A" & i)...

Ao invés de: UserForm1.TextBox1.Text = Sheets("Plan1").mensagem1.Value Mude para UserForm1.TextBox1.Text = mensagem1 e assim por diante. ...

E aí, conterrâneo! Funcionou muito bem quando eu copio para o notepad++ . Quando copio do Bloco de Notas dá um erro que voce inseriu. Por isso é tão...

Creuza, boa noite! vocês conseguem me dizer aonde está o erro? Não baixei seu arquivo, mas analisando superficialmente o principal erro é que a arma...

Boa noite, Klebersonr Considerações: Considerei inicialmente que seu arquivo txt está no mesmo diretório que o arquivo do Excel.[/*:m:3d3w29hv] Não ...

Klebersonr, bom dia! Anexe um txt como o layout real e com mais alguns registros (se precisar, distorça os dados reais substituindo por fictícios) e ...

Bom dia, Mem24 Isso acontece pq nas fórmulas da coluna J (Dias sem visita) vc converte desnecessariamente para texto o valor que de outra forma seria...

Bom dia, Romanholi Teste a rotina abaixo: Sub CopiarParaDesktop() Const arquivo = "Base_Dados.xlsx" Dim pastaOrigem As String, pa...

Bem vindo ao Planilhando, msilvac10! A 2ª pergunta não entendi. Quanto à primeira, experimente a fórmula abaixo em C2 e arrasste: =INT(B2)+SOMARPRO...

PVitor, Caso não seja um arquivo Excel (se for também serve) tente a função IsFileOpen desse antigo artigo do suporte da Microsoft: Macro code to che...

Matheus, boa tarde. Eu diria que, dos objetos do Excel, a Tabela de Dados é o "ser" que tem a personalidade mais atípica: apesar de minúscu...

Josenildo, bom dia! No critério, use a data no formato americano: Cells(Lin, 5) = Application.WorksheetFunction.SumIfs(w.Range("d_Valor&quo...

Vonzuben, bom dia [list=1] A String concatenada que define o endereço não-adjacente do range está incorreta: a vírgula deve estar dentro da String, n...