Resultado em 'F1': Sub ContaÚnicos() [F1] = Evaluate("=SUM(1/COUNTIF($D$5:$D$25,$D$5:$D$25))") End Sub

Experimente: ActiveCell.FormulaArray = "=SUM(1/COUNTIF($D$5:$D$25,$D$5:$D$25))" EDIT: eu entendi que você queria inserir a ...

A planilha original possui mais de 3.000 linhas na coluna A da aba "como está". Se você quiser experimentar uma solução via macro, utilize...

Cells(Rows.Count, 1).End(3)(2) ~~~> é a referência à primeira célula vazia da coluna 'A' abaixo da tabela 1.este comando Cells(Rows.Count, 1).End(...

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...