Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Limpar Celulas
 
Notifications
Clear all

Limpar Celulas

 
2024 - VBA & Macros
12 Posts
5 Usuários
0 Reactions
8,602 Visualizações
RSS
 vpeglow
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Boa Tarde a todos.

alguém sabe como criar um código vba que limpe o conteúdo de varias células em 5 abas diferentes? por exemplo limpar o conteúdo da célula A34, C46 E D80 na plan cadastro e limpar as células B29, D29 e E85 na plan Impostos.

desde já agradeço a atenção.

 
Postado : 07/04/2014 2:22 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

vpeglow,

Boa noite!

No exemplo que você citou, você mencionou células diferentes e abas diferentes. É necessário saber que células você quer limpar em cada aba. Se existirem células a serem limpas em todas as abas, não há necessidade de saber o nome das abas. Todavia as referencias das células são imprescindíveis. A menos que também sejam as mesmas células em todas as abas.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/04/2014 4:48 pm
 vpeglow
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Bom dia Wagner.

Preciso cria um botão que exclua determinadas células em diferentes abas, mas nem sempre sera a mesma célula nas abas.

Att;

 
Postado : 08/04/2014 5:09 am
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

para limpar se usa
Range( "A1" ).ClearContents <<<vai limpar A1 na planilha ativa

Sheets("nome da planilha").Range("A1").ClearContents

Sheets("Plan5").Range("A1:B5").ClearContents <<<vai limpar de A1 até B5 na plan5

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/04/2014 5:15 am
 vpeglow
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

Oi Edcronos.

e caso eu queira limpar células especificas, somente a B3 e Y2, apenas essas duas, não tem como colocar todas no mesmo comando? eu tenho que fazer uma para cada?

 
Postado : 08/04/2014 5:30 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Da pra fazer assim:

With Sheets("nome da planilha")
Union(.range("A1"), .range("B2")).clearcontents
End with

With Sheets("nome da planilha2")
Union(.range("A1"), .range("B2")).clearcontents
End with

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 08/04/2014 5:56 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Se eu entendi bem....tente...

Sub AleVBA_11229()
    Sheets("Plan5").Range("B3,Y2").ClearContents
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/04/2014 5:58 am
 Edcronos
(@edcronos)
Posts: 1006
Noble Member
 

muitas maneiras :P

Sheets("Plan5").Range("b2,d5,e1,F1:F10").ClearContents

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/04/2014 6:02 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!
vpeglow , para maiores detalhes veja a página 139 da apostila no link abaixo.

http://www.bertolo.pro.br/FinEst/Semana ... oExcel.pdf

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/04/2014 6:22 am
 vpeglow
(@vpeglow)
Posts: 88
Trusted Member
Topic starter
 

coloquei os códigos, porem esta me dando o seguinte erro: Não é possível alterar a parte de uma célula mesclada.

Att

 
Postado : 08/04/2014 11:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!
Neste caso tente definir seu intervalo.

Public Sub N_Testado()
Dim rng As Range
Dim rCell As Range

Set rng = Range("A1:A10") 'Defina seu Intervalo

For Each rCell In rng.Cells
With rCell
If .MergeCells Then
.MergeArea.ClearContents
Else
.ClearContents
End If
End With
Next rCell

End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/04/2014 11:37 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

coloquei os códigos, porem esta me dando o seguinte erro: Não é possível alterar a parte de uma célula mesclada.

Att

É por esse motivo que devemos evitar ao máximo a utilização de células mescladas, pois elas só atrapalham, tanto fórmulas quanto macros.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/04/2014 5:48 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico