Limpar célula de fo...
 
Notifications
Clear all

Limpar célula de forma condicionla

Página 1 / 2

PAYZZANNO
Posts: 24
Registered
Topic starter
(@payzzanno)
Eminent Member
Entrou: 2 anos atrás

Senhores, boa noite.

Eu gostaria, se possível, contar com a gentileza dos senhores.

Trata-se do seguinte.

Estou tentando limpar células de forma condicional.

Por gentileza, vejam o arquivo.

Obrigado a todos mais uma vez.

Responder
5 Respostas
EdsonBR
Posts: 913
Moderator
(@edsonbr)
Prominent Member
Entrou: 6 anos atrás

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

 

Responder
PAYZZANNO
Posts: 24
Registered
Topic starter
(@payzzanno)
Eminent Member
Entrou: 2 anos atrás

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.

Responder
EdsonBR
Posts: 913
Moderator
(@edsonbr)
Prominent Member
Entrou: 6 anos atrás
 
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.

Responder
Anderson
Posts: 188
Registered
(@anderson)
Estimable Member
Entrou: 2 anos atrás

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
Responder
Página 1 / 2