Visual Basic Escrever xlDown -1 VBA

[Jefferson TS]

Olá. Alguém sabe me dizer como faço pra selecionar a célula anterior a última célula com valor? No excel VBA

A intenção é fazer uma macro pra excluir a última linha da tabela, porém a última linha é a dos totais, e esta não quero excluir.

[Edson Luiz Branco]

Bom dia, @Jefferson TS

 

21 horas atrás, Jefferson TS disse:

...A intenção é fazer uma macro pra excluir a última linha da tabela

 

Quando você usa a expressão "tabela", você está se referindo a um objeto tabela mesmo (no VBA = ListObject) ou a um simples intervalo de células? Caso seja uma tabela, poderia usar:

 

Sub EliminaÚltimaLinhaDados()
  With ActiveSheet.ListObjects(1)
    If Not .DataBodyRange Is Nothing Then .ListRows(.ListRows.Count).Range.Delete xlShiftUp
  End With
End Sub

 

Se for baseado em intervalo, como pelo jeito você já encontrou a última linha que é a dos totais (usou .End(xlDown)), pode usar o Offset  com o valor negativo (.End(xlDown).Offset(-1,0)) para se referir à linha imediatamente anterior à dos totais.

[Jefferson TS]

@Edson Luiz Branco
 

2 horas atrás, Edson Luiz Branco disse:

(.End(xlDown).Offset(-1,0))

Fiz desta forma, mesmo sendo tabela (objeto) e deu certinho. Muito obrigado.