doriva,

Boa tarde!

antes de mais nada, peço, por gentileza, que você edite sua mensagem de modo a reescrever a mesma com letras minúsculas. A prática de escrever mensagens com todas as letras em maiúsculo, na internet, significa que o dono da mensagem escrita está GRITANDO com todos. Muitos usuários sequer olham para esse tipo de mensagem.

Outro detalhe importante é você sempre anexar, aqui mesmo no fórum, um arquivo compactado com .ZIP, com a sua dúvida e inclusive demonstrando manualmente como deve ser o resultado esperado. Isso facilita a rápida resposta por parte de todos.

Quanto a sua demanda, veja se é assim.

Wagner,
boa tarde!!!

Obrigado pela vossa atenção e desculpe-me pela escrita em maiúsculo, pois foi questão de correria na hora do almoço aqui na empresa.

Então, amigo, ao tentar baixar seu exemplo, ocorreu a msg " Você não está autorizado a baixar este anexo"

Porventura, você sabe o que acontece???

Wagner, agora deu certo, após eu enviar a pergunta pra voce, consegui baixar.

Obrigado

doriva,

Boa tarde!

Ok. Mas eu não fiz nada depois que você me perguntou. Você estava devidamente cadastrado no fórum como usuário e logado corretamente? Talvez... seja isso!

Wagner boa tarde!!!

Amigo, eu não consegui fazer da certo o código, pois não sei concactenar a msg com o valor do saldo, é que o meu SALDO DE ESTOQUE fica em outra planilha, aba(Cadastro-Estoque), então estou enviando o código pra vc me ajudar. O código para msg "SALDO INFERIOR" já existe, agora falta colocar o valor do saldo na frente da msg = "SALDO INFERIOR=10".

Private Sub Worksheet_Change(ByVal Target As Range)
Dim p As Long, s As Double
  If Target.Count > 1 Then Exit Sub
  If Target.Column <> 6 Or Target.Value = "" Then Exit Sub
   s = Target.Value
   Application.EnableEvents = False
   Application.Undo
   Application.EnableEvents = True
   p = Sheets("Cadastro-Estoque").[C:C].Find(Target.Offset(, -2).Value, lookat:=xlWhole).Row
    If Sheets("Cadastro-Estoque").Cells(p, 8) < s Then
     MsgBox "SALDO INFERIOR": Exit Sub
    Else
     Application.EnableEvents = False
     Target.Value = s
     Application.EnableEvents = True
    End If
End Sub

Obrigado

Doriva,

Boa tarde!

Peço, por gentileza, quando postar códigos VBA aqui no fórum, utilizar a ferramenta CODE existente logo acima da caixa de mensagens (quinto botão da esquerda para a direita).

Quanto a sua demanda, veja se é assim:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim p As Long, s As Double
      If Target.Count > 1 Then Exit Sub
      If Target.Column <> 6 Or Target.Value = "" Then Exit Sub
       s = Target.Value
       Application.EnableEvents = False
       Application.Undo
       Application.EnableEvents = True
       p = Sheets("Cadastro-Estoque").[C:C].Find(Target.Offset(, -2).Value, lookat:=xlWhole).Row
        If Sheets("Cadastro-Estoque").Cells(p, 8) < s Then
         MsgBox "SALDO INFERIOR " & Sheets("Cadastro-Estoque").Cells(p, 8).Value : Exit Sub
        Else
         Application.EnableEvents = False
         Target.Value = s
         Application.EnableEvents = True
        End If
    End Sub

Doriva

Movi teu tópico para VBA & Macros, que é o assunto da tua dúvida, pois onde você havia postado, é exclusivo para fórmulas & Funções.

[]s

Patropi - Moderador