Boa noite,

Se "limpar" seria apagar o conteúdo e a formatação da célula, sugiro utilizar clear:

Range("UltCel").Clear

Caso "UltCel" seja o que você quer "limpar".

Abraço

Só limpar mesmo o conteúdo, mas esse que eu fiz não está limpando

Bom dia,

Veja se atende:

Sub Limpar()
    If Range("I4").Value < 0 Then
        OutPut = MsgBox("Seu saldo é insuficiente !", vbCritical, "Tabela - Saldo")
        UltCel = Cells(Rows.Count, 10).End(xlUp).Address
        Range(UltCel).ClearContents
        Exit Sub
    End If
End Sub

Abraço

Não deu certo !

Se o saldo ficar negativo tem que limpar I12

Bom dia, vonzuben.

Testei o código do JValq e fiz as seguintes trocas:

De

Range("I4").Value

Para

Range("I7").Value

De

UltCel = Cells(Rows.Count, 10).End(xlUp).Address

Para

UltCel = Cells(Rows.Count, 9).End(xlUp).Address

O código todo ficou assim:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("I7").Value < 0 Then
        OutPut = MsgBox("Seu saldo é insuficiente !", vbCritical, "Tabela - Saldo")
        UltCel = Cells(Rows.Count, 9).End(xlUp).Address
        Range(UltCel).ClearContents
        Exit Sub
    End If
End Sub

Aqui funcionou belezinha ... Testa ai e nos de um retorno.

Alguma coisa me confundi aqui, pois quer dizer que o código estava certo.

Vou dar o ponto JValq, espero que me entenda, mas obrigado pela sua atenção Trindade

Vonzuben

Você não esta interpretando corretamente a parte de pontuação do fórum.

Por exemplo o Trindade te ajudou, portanto, ele merece o ponto. (Não há problema em pontuar mais de uma pessoa, desde que não sejam aqueles comentários só para aumentar o número de postagens, se for algo útil, deve pontuar).

Leia o link abaixo:

viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador

Nem fiz o teste que daria para pontuar mais de uma pessoa.
Valeu pela resposta Patropi