Este fórum está sendo desativado

[vilc]

Boa noite, estou com esse código para gravar dados na planilha, precisava de alguma verificação, para enviar um mensagem dizendo que o id do anydesk e ip já existe .
segue o código abaixo, desde já agradeço a todos.

'grava

Dim ID As Integer 'cria variavel id como inteiro
ID = Me.TxtID.Value ' incorpora o valor da texbox a variavel


ActiveCell = ID ' passa o valor para a celula
ActiveCell.Offset(0, 1) = Me.TxtUsuario
ActiveCell.Offset(0, 2) = Me.TxtIDAnydesk.Value
ActiveCell.Offset(0, 3) = Me.TxtNomeComputador
ActiveCell.Offset(0, 4) = Me.ComboBoSecretariaAnydesk
ActiveCell.Offset(0, 5) = Me.TxtIp


'Avisa que informações foi inserida com sucesso
MsgBox ("Dados Gravados com Sucesso")


'limpa as textbox

TxtUsuario.Text = ""
TxtID.Value = ""
TxtNomeComputador.Value = ""
ComboBoSecretariaAnydesk.Text = ""
TxtIp.Text = ""


ActiveWorkbook.Save
Call UserForm_Initialize