Este fórum está sendo desativado

[Ryujin]

Boa Tarde !

Eu tenho um codigo que apaga Armazem por ID dos mesmos !

Necessito de um codigo de erro que diga que o ID que eu tentei eliminar nao Existe!

Exemplo!

Tenho 5 Armazens que os IDs correspondestes sao 1 , 2 ,3 , 5 .
Caso eu tente Eliminar o ID 6 , quero que ao carregar no botao Eliminar Diga uma msg de erro a dizer " O Id inserido nao é ixistente"

MUITO MAS MESMO MUITO OBRIGADO PELA AJUDA QUE ME TEM DADO ! SAO 5*

[osvaldomp]

Experimente este código no lugar do atual.

Código: Selecionar todos

Private Sub CommandButton3_Click()
 Dim k As Long
  If Application.CountIf(Sheets("Armazens").[A:A], TextBox1.Text) > 0 Then
   k = Sheets("Armazens").[A:A].Find(TextBox1.Text, lookat:=xlWhole).Row
   Sheets("Armazens").Rows(k).Delete
   MsgBox "Eliminado Com Sucesso!"
  Else: MsgBox "ID inexistente"
  End If
 TextBox1.Text = ""
End Sub