Este fórum está sendo desativado

[angras]

Boa tarde
Tenho essa macro que deleta um valor informado e preciso que faça o contrario: deletar valores não informado

[mucascosta]

Código: Selecionar todos

Sub DelValor()
    Application.ScreenUpdating = False
    Dim Rng As Range, Cell As Range
    CIni = Range("J3").Column
   CFim = Range("J3").Column
   Set Rng = Range(Range("J3:J21"), Range("J" & Rows.Count).End(xlUp))
    For Each Cell In Rng
        If Cell <> Range("G1").Value Then
          Range(Cells(Cell.Row, CIni), Cells(Cell.Row, CFim)).ClearContents
        End If
    Next Cell
    Application.ScreenUpdating = True
End Sub

[angras]

mucascosta, a macro tá fazendo o q a versão original faz: excluir em j3:j21, o valor informado em G1. O que preciso é que esse valor de g1 permaneça em j3:j21 e todos os demais valores sejam excluídos

[angras]

mucascostas, queira desconsiderar a mensagem anterior. Falha minha aqui na execução da macro. Grato pela ajuda

[osvaldomp]

Código: Selecionar todos

Sub DelValorV2()
 Dim r As Range
  For Each r In [J3:J21]
   If [r] <> [G1] Then r.Value = ""
  Next r
End Sub