verificar if em filtro

[BernardorValle]

Boa tarde,

estou automatizando uma planilha, mas sou novo com VBA.

 

Em uma das minhas rotinas, o usuário deve inserir por inPutbox um código que será utilizado como filtro em uma tabela.

 

Gostaria de saber como posso condicionar com IF, caso o código que for inserido, se não apresentar(ou não estiver presente ou errado) dar um msgBox "Código inexistente", encerrando a SUB, e caso o código esteja presente, continue a macro.

 

Obrigado

[Philipp Moreira]

Mais ou menos assim,

 

Sub teste()

Dim codigoInformado As variant

codigoInformado = InputBox("Informe o código",  "Filtro de tabela")

If Not VBA.IsNumeric(codigoInformado) Or VBA.Len(VBA.Trim( codigoInformado)) < 1 Then
	Msgb "mensagem de notificação"
	Exit Sub
End If

If  WorksheetFunction.CountIf([Informe o range/coluna aonde estão os códigos], codigoInformado < 1 Then
	Msgb "mensagem de notificação"
	Exit Sub
End If

' Se passou pelas validações acima

.
.
.
execute seu processamento
.
.
.
End Sub