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

Segue uma ideia, veja se lhe serve. Selecione na coluna S a célula que contém a cor que você deseja, clique na ferramenta Pincel, clique na célula a...

Passe a variável "x" para o interior do If ... End If. If NFICHA.Text = Sheets("CONTROLE").Range("B" & Contador).Value Then Range("c" & Con...

... fiz uma fórmula em M1 que mostra a Matriz de linhas em branco ... Eu não quero excluir linhas nem colunas, só quero apagar o conteúdo!!! Range...

Olá, @jscopa10. Já experimentou ~~~> Range(Range("M1").Value).Delete obs. se a fórmula em M1 for somente para identificar o intervalo vazio, en...

@siqs Experimente uma cópia do código abaixo.Instale o código em um módulo comum e não no módulo da planilha, onde está o seu código atual.Para inse...

@ericksant, se os nomes dos arquivos seguem o padrão dos seus exemplos ~~~> "espaçoNºNFespaço", então o comando abaixo poderia ajudar. If InStr(A...

@joaorlneto Tentando anexar aqui. Lentidão ... 1643906842-1618943355-TESTE-1-Formulas.xlsx