Como Evitar duplicidade

[Ismael Vitor]

Boa tarde pessoal, estou quebrando a cabeça com esse problema: como eu posso fazer para analisar os dados já estão cadastrados referente a placa e a posição do pneu do caminhão.

Eu que que ele verifica se a placa e o numero informado do pneu já foram lançado se sim, avisar que já foi lançado.

Para quando for informado dados já cadastrados idênticos a mesma posição do pneu e no mesmo caminhão, impedir que prossiga com o registro e informe ao usuário.

Sub Gravar()
Dim NumeroCavalo As Integer
Dim Placa As String
Dim Posicao As String
Dim NumeroFogo As Integer
Dim KmInicial As Integer
Dim DataInicial As Date

Dim UltimaCel As Integer

NumeroCavalo = Range("C5").Value
Placa = Range("C6").Value
Posicao = Range("C7").Value
NumeroFogo = Range("C8").Value
KmInicial = Range("C9").Value
DataInicial = Range("C10").Value

' If Range("D8") >= 1 Then
' MsgBox "Já está Cadastrado"
'End If

If Posicao = Sheets("Cavalo").Range("C2").Value Then

Sheets("Cavalo").Select

UltimaCel = Range("A148576").End(xlUp).Row + 1

Range("A" & UltimaCel).Value = NumeroCavalo
Range("B" & UltimaCel).Value = Placa
Range("C" & UltimaCel).Value = NumeroFogo
Range("D" & UltimaCel).Value = KmInicial
Range("E" & UltimaCel).Value = DataInicial

MsgBox "Gravado com sucesso"

Sheets("Registrar").Select

Range("C7").Value = ""
Range("C8").Value = ""
Range("C9").Value = ""

End If

End Sub