Só para não deixar dúvidas, se após Enter a célula ativa muda para a célula abaixo é porque o seu Excel está ajustado para isso, e essa mudança da cél...

Experimente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 3 Or Target.Column > 8 Then Exit Sub ActiveSheet.Unprote...

Ao abrir o seu arquivo aqui, a planilha mostra os resultados das fórmulas conforme a imagem anexa. 1. aí pra você os resultados aparecem diferentes?...

Olá, @jonataferreira. A fórmula abaixo estendida por qualquer coluna irá retornar os conteúdos de A42, A132, A222, ... Se estendida pela linha irá...

@teleguiadoO que ele está tentando fazer é aplicar o Auto Filtro com critério equivalente a "contém".No entanto, esse critério não é disponível no Exc...

Experimente: Private Sub Valor_Change() Dim c As Range, LR As Long LR = [A:A].Find("*", , xlFormulas, , xlRows, xlPrevious).Row Application.Scree...

Olá, @depoisteconto. Experimente: Sub InsereLinhas() Dim k As Long Application.ScreenUpdating = False For k = Cells(Rows.Count, 1).End(3).Row T...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 10 Or Target.Value <> "Não" Then Exit Sub Target.Offset(, 1).Val...

@JSCOPA10 A linha de código que eu sugeri atende este critério que você colocou no primeiro post ~~~> "gostaria de saber qual a última linha pree...

@jscopa10 Range("J3:AG" & Cells(Rows.Count, "N").End(3).Row).Copy

Olá, @jscopa10. Veja se ajuda. Sub ultima_linha_inativosV2() Dim LR As Long, r As Range LR = Range("B2000").End(xlUp).Row + 3 Application.Scree...

"=UNIRTEXTO("" "";1;Obras!C" & Linha & ";"" Bairro "";Obras!S" & Linha & ")"

Fiz as alterações. Testaí. 1. apaga na planilha Base os registros que estão repetidos na planilha Recebidos(serão apagados os registros das linhas 2...

@tutoelizeu O código que eu sugeri faz duas ações, conforme abaixo, que foi o que entendi que você quer fazer: 1. apaga na planilha Recebidos o...