Olá, Pedro. Ficou confuso: você resolveu ou ainda precisa de ajuda? Se não resolveu informe com exatidão o qua ainda falta.

Sub ExcluiLinhasVazias() Dim LR As Long, k As Long LR = Cells(Rows.Count, 2).End(3).Row For k = LR To 2 Step -1 If Application&...

Experimente: [I80].FormulaLocal = "=SE(F80="""";"""";SEERRO(ÍNDICE(Resultado!F2:F600...

Você comentou na planilha que as linhas 3 e 5 devem ser excluídas. Se o critério para excluir a linha for linha vazia no intervalo 'C:BJ', então no s...

Faça testes com os eventos abaixo, veja se algum te atende. Private Sub TextBox1_Change() ' seu código de busca End Sub Private Sub TextBox1_Dbl...

Experimente: Sub ExcluiLinhasVazias() Dim LR As Long, k As Long LR = Cells(Rows.Count, 1).End(3).Row For k = LR To 1 Step -1 I...

Pode ser por Formatação Condicional ao invés de macro ? Se sim, segue o passo-a-passo abaixo. 1. selecione a tabela 1 ---> B3:P30 2. no menu Form...

https://gurudoexcel.com/forum/viewtopic.php?f=12&t=4669&sid=4a15d8cb88c521bf9d09100e82399d46

Veja se pode ajudar:

...o problema é que não desejo apagar toda a linha....e sim apenas algumas células......teria como fazer isso? Sim!

Experimente: Sub NúmerosFaltantes() Dim a As String, i As Long, k As Long For k = 1 To Cells(Rows.Count, 1).End(3).Row For i = 1...

Sub teste() [A1] = ChrW(&H15B) [A2] = ChrW(&H17C) End Sub Se você quer o "z" com acento agudo então o código ...

Ele 'armazena' o valor da célula? Se o valor da "Plan2" for encontrado na "Plan1" o comando abaixo replica direto em 'B' da "...

Experimente: Sub ValorCorrigido() Dim v As Range, vc As Range For Each v In Sheets("Plan2").Range("A8:A" & Sheet...

Repetindo: o código funciona na sua amostra, que já deve ser décima quinta versão que você coloca aqui, e lá não existe nem pera e nem abacaxi. Eu de...