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

Veja se ajuda. Sub FollowUpPedidos() Application.ScreenUpdating = False With Sheets("Recebidos") On Error Resume Next .ListObjects("Tabela2"...

Pode ser sem Loop ? Sub DeletaCélulasVazias() Range("B5:B" & Cells(Rows.Count, 2).End(3).Row).SpecialCells(4).Delete Shift:=xlToLeft End Sub

@lidy Se for viável para você o uso de macro e você quiser experimentar, instale uma cópia do código abaixo no módulo da planilha Modelo. Para acessar...

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [B1:B3]) Is Nothing Then Exit Sub Target.Offset(1).Resize(4 - Target.Row).V...

Pergunta genérica, resposta genérica ~~~> substitua B3 por B20. 😜

Segue uma solução via macro, veja se lhe serve. Cole uma cópia do código abaixo no módulo da Plan1. Para acessar o módulo clique com o direito na gu...

Me parece que você sequer testou, pois a sequência que passei faz exatamente o que você pediu aí acima e não requer nenhuma função adicional. 😉 Apó...