Notifications
Clear all

Limpar dados em uma linha somente até determinada coluna

7 Posts
4 Usuários
1 Reactions
2,282 Visualizações
(@henriquelopesz)
Posts: 3
New Member
Topic starter
 

Olá!

Não tenho muita experiência com o VBA, montei essa macro para limpar os dados em uma linha com uma condicional(caso a coluna H seja diferente de vazio), porém preciso que ela só limpe até a coluna "O" dessa linha.

Sub Limpar_Com_Critério()
With Planilha1
Dim Coluna As Range
Coluna.Value = Range("H:O")

For Linha = 247 To 12 Step -1
If Planilha1.Cells(Linha, "H").Value <> "" Then
Planilha1.Rows(Linha, Coluna).ClearContents
End If

Next
End With

End Sub

 

 
Postado : 30/12/2022 2:58 pm
(@osvaldomp)
Posts: 858
Prominent Member
 

 

Experimente o código abaixo.

Sub Limpar_Com_Critério()
 Dim linha As Long
  With Planilha1
   For linha = 12 To 247
    If .Cells(linha, "H") <> "" Then .Cells(linha, "H").Resize(, 8).ClearContents
   Next linha
  End With
End Sub

Osvaldo

 
Postado : 30/12/2022 10:06 pm
(@henriquelopesz)
Posts: 3
New Member
Topic starter
 

Funcionou perfeitamente, meu amigo. Muito obrigado!

 
Postado : 02/01/2023 8:53 am
Osvaldomp reacted
Eron
 Eron
(@eron)
Posts: 102
Illustrious Member Admin
 

Teste após atualização do forum.

Eron
CRA/RS 27.563
Administrador Fórum Planilhando

 
Postado : 02/01/2023 2:35 pm
(@osvaldomp)
Posts: 858
Prominent Member
 

Salve, @eron

Um problema antigo e que causa transtornos irritantes é que o App do fórum "trunca/corta/decepa" a exibição de fórmulas que são postadas, com ou sem tag ().

Ao editar o post, nota-se que a fórmula está intacta, mas ao salvar novamente, ela não é exibida por inteiro.

Osvaldo

 
Postado : 02/01/2023 2:46 pm
(@teste50)
Posts: 1
New Member
 

teste novamente

 
Postado : 02/01/2023 6:54 pm
(@osvaldomp)
Posts: 858
Prominent Member
 

O meu alerta acima foi ignorado, então me parece que ninguém está cuidando do fórum, que se autodenomina como "O maior e mais antigo Fórum de Excel do Brasil!" Será mesmo o maior?

Como dizia a minha avó, o incomodado que se mude. Então bye, bye.

Osvaldo

 
Postado : 03/01/2023 3:21 pm