Dei uma reduzida no código. Segue outra solução com base na sua ideia de colocar fórmulas em 'AA5:DA5': Sub ReplicaDados() Sheets("banco"...

...no entanto houve algumas mudanças e precisei alterar a forma de busca das informações. Dito de outra forma, trata-se de uma nova demanda que nada ...

Acrescente a parte em vermelho: Cells(LR + 1, 4) = Right(Cells(LR + 1, 4), Len(Cells(LR + 1, 4)) - 2) & "n" Se você quiser experimenta...

Experimente. Resultado na coluna 'D'. Sub ConcatLoja() Dim k As Long, x As Long, m As Long, LR As Long [D:D] = "" For k =...

Por exemplo, tenho o número 0,0077395, depois da função Left ele fica eu deveria ter 0,0071532, mas fica 7,1532. 1. coloquei em uma célula o valor 0,...

Veja se ajuda. Sub Teste() Dim x As Long, k As Long, m As Long, v As String On Error GoTo fim v = ActiveCell.Value m = InStr(1, v, "...

O que mais me deixa sem resposta é o fato de funcionar em um novo userform que fiz com as mesma condições para testar o mesmo código que esta apresent...

Experimente: Sub ReplicaSaída() Dim k As Long k = Sheets("Banco de Dados").Columns("G").Find([C2], lookat&#...

Experimente: Me.txtHoras.Text = Format(TimeValue(Me.txtSaida.Text) - (TimeValue(Me.txtEntrada.Text) > TimeValue(Me&#...

Considerei que ambos os arquivos (que você trata por planilha) estarão abertos ao rodar o código. Experimente: Sub ReplicaDados() Dim wsO As Workshee...

Experimente o código abaixo no lugar do existente. Coloquei até a coluna M (Range("B4:M"). altere se necessário. Public Sub CarregarComboBox...

mas na planilha que irei salvar "filhodamãe", terei outras macros. Entendi. Nesse caso podemos remover o Módulo6, considerando que nesse mó...

Veja se ajuda. Este comando salva na versão sem macro. Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C�...

Experimente: Sub SeparaEContaPalavras() Dim Dic As Object, r As Range, c As Range, w As Variant Set Dic = CreateObject("Scripting.Dictiona...

dentro da pasta estara arquivos em PDF, Doc, xls Ao acessar a pasta via macro você abrirá somente arquivos em Excel?