Coincidência: este tópico é semelhante ao tópico do link abaixo (que foi abandonado ... ) http://www.planilhando.com.br/f...

Veja se ajuda. Cole no módulo da planilha. Private Sub Worksheet_Calculate() Cells(Rows.Count, 1).End(3)(2).Resize(, 4).Value = ...

Sheets("resumo").Range("A1") = "NOME QUIMICO:" & Codigo 'utilize o comando abaixo e faça um Loop no inter...

[G1] = IIf(Weekday([A1]) = 7, "OK", "")

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