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

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