Boa noite, @payzzanno

Como em I1 vc já está usando a notação adequada para união de intervalos (referências separadas por vírgulas), dá pra fazer o que vc deseja de maneira bem simplificada:

Sub LimpaCelulas()
  Range(Range("I1").Value).ClearContents
End Sub

Bom dia.

Primeiramente eu quero agradecer a ajuda.

O que eu não estou conseguindo fazer é colocar a condição de uma coluna em relação a outra.

No exemplo a limpeza da célula é feita de forma direta. De acordo com o que está declarado em (I1). O que eu preciso é buscar na coluna (A) a condição e limpar a célula vizinha na coluna (B).

No exemplo a quantidade de informação é pequena. Mas, no arquivo original o volume é muito grande e não é possível fazer manualmente. Então, pensei em fazer dessa forma. O meu problema está justamente na condição para realização da rotina.

Mais uma vez obrigado.

 

Postado por: @payzzanno

O que eu preciso é buscar na coluna (A) a condição...

Então por gentileza, poste um exemplo mais claro de como vc lista essas condições, em qual coluna estão, etc. É uma lista de nomes um em cada linha? É uma lista de nomes numa só célula, separados por vírgula?

Pelo seu exemplo do anexo, vc inseriu na célula I1 uma lista de endereços de célula separados por vírgula, os quais eram para ter seu conteúdo apagado e o código que propus faz exatamente isso.

https://youtu.be/DJ8vVNC46w8

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LINHA1 As Long
Dim LINHA2 As Long


LINHA2 = 2


While Plan2.Range("A" & LINHA2).Value <> ""



LINHA1 = 2


While Plan1.Range("A" & LINHA1).Value <> ""


If UCase(Plan2.Range("A" & LINHA2).Value) = UCase(Plan1.Range("A" & LINHA1).Value) Then

Plan1.Range("B" & LINHA1).Value = ""

End If

LINHA1 = LINHA1 + 1


Wend



LINHA2 = LINHA2 + 1


Wend


End Sub

Puxa vida   Anderson. Ficou show de bola. 

Só que, ao invés de eu colocar na planilha, resolvi colocar como sub mesmo. Agradeço demais a tua ajuda.

Ficou perfeito.

  EdsonBR Agradeço a ti também pelo empenho. A forma como fizeste ficou muito boa realmente. Embora minha necessidade em relação a rotina está mais de acordo com a proposta do  Anderson.

Porém, após ter postado é que me dei conta de que eu não soube me expressar. E por essa razão peço desculpas. Acredito que se eu o fizesse de forma mais clara, tenho certeza, que você também teria sacado a minha intensão.

Muitíssimo obrigado a todos.