Notifications
Clear all

Limpar Celulas

12 Posts
5 Usuários
0 Reactions
8,592 Visualizações
(@vpeglow)
Posts: 88
Estimable 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-vidal-nobre)
Posts: 4063
Famed 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.

 
Postado : 07/04/2014 4:48 pm
(@vpeglow)
Posts: 88
Estimable 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)
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

 
Postado : 08/04/2014 5:15 am
(@vpeglow)
Posts: 88
Estimable 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)
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

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

Bom dia!!

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

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

Att

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

muitas maneiras :P

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

 
Postado : 08/04/2014 6:02 am
(@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

 
Postado : 08/04/2014 6:22 am
(@vpeglow)
Posts: 88
Estimable 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
(@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

 
Postado : 08/04/2014 11:37 am
(@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

 
Postado : 08/04/2014 5:48 pm