Experimente a fórmula matricial abaixo. =ÍNDICE(D$2:D$19;CORRESP(1;(B$2:B$19=I2)*(C$2:C$19=J2)*(A$2:A$19=MÁXIMO(SE(B$2:B$19=I2;SE(A$2:A$19<=H...

Veja no arquivo anexado.  Formatacao-Condicional.xlsx

Experimente: =CONT.SE($A$2:$J$11;M2)

Resolvido aqui.

Cole uma cópia do código abaixo no módulo da planilha Entrada. Para acessar o módulo clique com o direito sobre a guia daquela planilha e escolha Exib...

dica para manter o fórum organizado ~~~> aproveite para revisar a sua edição da postagem sem número (?), deste tópico, do usuário @refernande de ho...

Não concordo. Se eu citei foi porque eu entendi que a citação era para facilitar o entendimento da minha mensagem. Quanto a classificar a citação com...

Sim, eu sei disso e é como tenho feito. Não entendi a sua observação, achei inoportuna.

Amigo, é isso que o código faz. Como você até agora não informou em que coluna quer colar eu adotei a primeira linha vazia da coluna B. Para confirmar...

Sub ReplicaDados() Sheets("Planilha1").Range("B5:M14").Copy Cells(Rows.Count, 2).End(3) End Sub

Você quer copiar da planilha ativa e colar na planilha ativa ? Sub ReplicaDados() Range("B5:M14").Copy Cells(Rows.Count, 2...

Experimente: Sub ExcluiNavios() Dim navio As Range With Sheets("CadastroNavio") For Each navio In .Range("A2:A" &...

... todavia, preciso selecionar e copiar as linhas inteiras ~~~> em macros não é necessário "selecionar", ao contrário, é recomendável nã...

Veja se ajuda. Range([A1] & ":" & [A2]).Copy [A3]

Experimente: Sub copiarcolar() Dim r As Range [P1:U5].Copy [P2] For Each r In Range("P2:S2") r...