Sim realmente, mesmo depois de atualizar tanto o post ainda me esqueci de dizer que na verdade preciso da coluna A até a coluna G Você não informou se...

Private Sub Worksheet_Calculate() Dim X X = Split([A1], "@") On Error GoTo fim Application.EnableEvents = False C...

No seu exemplo os dados citados (1@2@3@4@5@6) são os que você colocou na coluna A, suponho. E o resultado desejado onde está? Na coluna F vi uma sequê...

Veja se ajuda. Cole no módulo da planilha. Lembra disso? Eu acho que não fui claro o suficiente e você colocou o código em um módulo comum ao invés de...

Desculpe, na mensagem anterior eu não passei todo o raciocínio. Com base nas suas informações, a entrada do RTD em K1 (ou é em A1?) não provoca o rec...

É estranho, pois comumente uma entrada RTD dispara o evento Calculate. Estou considerando que o Cálculo da Pasta de Trabalho está setado para Automát...

Substitua esta linha Else por esta Cells(LinInicial, "O").Value=Cells(LinInicial, "O").Value

No arquivo que você disponibilizou já existe uma etiqueta formatada com negrito em A1:A8 da planilha Resumo. Faça um teste assim: copie manualmente a...

O trecho de código que coloquei no post anterior faz a formatação em negrito dos dados na planilha Resumo e é dessa planilha que deve ser copiada a et...

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