Sim, sugiro que você encerre este tópico e abra outro com a sua nova demanda.

O código abaixo funciona conforme comentei no post anterior. Private Sub Worksheet_Calculate() Dim X, k As Long For k = 1 To 7 X = Split(Cells(1, ...

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", "")