- 29 Jun 2022 às 07:52
#71548
Bom dia,
Antes de mais, referir que tenho aprendido muito neste fórum.
Montei uma estrutura de decisão para apagar conteúdo de uma tabela, no entanto tem dado o erro 13, ou seja o que eu quero é o seguinte se o conteúdo naquela linha for vazio acabou a estrutura de decisão, mas caso não seja vazio selecionar a linha e as linhas abaixo e apagar o conteúdo.
Álvaro Gonçalves
Antes de mais, referir que tenho aprendido muito neste fórum.
Montei uma estrutura de decisão para apagar conteúdo de uma tabela, no entanto tem dado o erro 13, ou seja o que eu quero é o seguinte se o conteúdo naquela linha for vazio acabou a estrutura de decisão, mas caso não seja vazio selecionar a linha e as linhas abaixo e apagar o conteúdo.
Código: Selecionar todos
Cumprimentos,'Apagar conteúdo da folha c/Estrutura de decisão
If Sheets("Folha1").Range("A12:G12").Value = "" Then
MsgBox "Sem conteúdo para apagar"
GoTo Acabou
Else: Sheets("Folha1").Range("A12:G12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
MsgBox "Apagado conteúdo"
Acabou:
End If
Álvaro Gonçalves