Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Apagar dados dentro...
 
Notifications
Clear all

Apagar dados dentro da célula

 
2024 - VBA & Macros
10 Posts
2 Usuários
0 Reactions
1,614 Visualizações
RSS
 nando
(@nando)
Posts: 53
Trusted Member
Topic starter
 

Boa tarde a todos,

Fiz várias pesquisa no forum mais sem sucesso, alguém poderia me ajudar:
Tenho um comando de busca pela matrícula, após a pesquisa preciso limpar os dados..
PRECISO APAGAR SOMENTE OS DADOS DAS CELULAS NÃO EXCLUIR AS CELULAS.
Obrigado.
Alguem pode me ajudar?

Nome_______Telefone____ Função
Fernando______999999___ Eng.Segurança APAGAR DADOS
Jose__________999999____ Medico
Maria_________999999___ Dentista
Saulo _________999999___ Advogado
Cheysson______999999___ Tecnologia
Paulo _________999999___ Escritório

 
Postado : 22/02/2014 2:33 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Sinceramente eu não entendi.

Esse tal comando de busca é em um formulário?

Apagar alguma célula que contém algum tipo de dado em especifico?
:?

Att

 
Postado : 22/02/2014 2:55 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Seria isso?

Sub Tente()
For Each Cell In [C2:C2222]
If Cell.Value = "Eng.Segurança" Then Cell.ClearContents
Next Cell
End Sub

Att

 
Postado : 22/02/2014 2:59 pm
 nando
(@nando)
Posts: 53
Trusted Member
Topic starter
 

Alexandre boa noite,

Segue um modelo para facilitar..
obrigado.

modelo.xlsx
 
Postado : 22/02/2014 4:20 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja minha segunda postagem, tente adaptar.

Att

 
Postado : 22/02/2014 4:45 pm
 nando
(@nando)
Posts: 53
Trusted Member
Topic starter
 

Como faço para apagar todos dados da C2:C2222?

For Each Cell In [C2]
If Cell.Value = "*****" Then Cell.ClearContents (não quero especificar tipo de dados queria apagar tudo automático
Next Cell
End Sub

 
Postado : 22/02/2014 10:35 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Então tente...

Sub Tente()
For Each Cell In [C2:C2222]
If Cell.Value <> "" Then Cell.ClearContents
Next Cell
End Sub

Att

 
Postado : 23/02/2014 8:54 am
 nando
(@nando)
Posts: 53
Trusted Member
Topic starter
 

Alexandre Obrigado!!
Certinho!!
Abraços

 
Postado : 23/02/2014 2:48 pm
 nando
(@nando)
Posts: 53
Trusted Member
Topic starter
 

Alexandre...
Como posso colocar para apagar de For Each Cell In [A2] ?

 
Postado : 23/02/2014 3:14 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente assim..

Sub Tente()
For Each Cell In [A2:Z500]
If Cell.Value <> "" Then Cell.ClearContents
Next Cell
End Sub
 
Postado : 23/02/2014 4:37 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico