Sub NumeraçãoV2() Range("B3").Value = 1 Range("B3:B4").AutoFill Destination:=Range("B3:B" &am...

antes você postou esta edieta = Application.WorksheetFunction.VLookup(Range(eCelE).Value, Dietas, 2, False) depois postou esta ??? edieta = Applicati...

Experimente: substitua esta linha edieta = Application.WorksheetFunction.VLookup(eCelE, Dietas, 2, False) por esta edieta = Application.WorksheetFun...

O código abaixo retorna a linha da coluna A que contiver o número 5. Retorna erro se não encontrar. Sub Teste() Dim CÓDIGO As Integer, k As Long C...

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