Macro que avise palabra repetida

Hola expertos, espero que estén muy bien, tengo una duda que me carcome el alma, y es que tengo una macro que busca nombres y los devuelve en un formulario, el caso es que a veces este nombre esta dos veces en la base de datos porque corresponde a la misma persona pero a expedientes diferentes, entonces lo que quiero es que cuando introduzca el nombre a buscar, de la misma manera que aparece el mensaje "el nombre no se encuentra registrado dentro de la base de datos"automáticamente, cuando encuentre un nombre repetido mas de 2 veces aparezca "este nombre se encuentra registrado dos o mas veces, favor de verificar que el no. Expediente coincida con el buscado", osease solo un mensaje, pero no se como integrarla. Muchas gracias por su ayuda. Mi macro es la siguiente

Sub buscarNOMBRE()
'busca el nombre del cliente y coloca los datos en el formulario
Hoja8.Select
On Error Resume Next
Dim c
NOMBRE = ComboBox3.Text
With Hoja8.Range("A12:A1000")
Set c = .Find(NOMBRE, LookIn:=xlValues)
If c Is Nothing Then
MsgBox "EL NOMBRE NO SE ENCUENTRA REGISTRADO DENTRO DE LA BASE DE DATOS", vbCritical, "ADVERTENCIA"
ComboBox3.SetFocus
Exit Sub
Else
.Find(NOMBRE, LookIn:=xlValues).Select
TextBox27.Value = ActiveCell.Offset(0, 1) ' No. DE ORDEN
TextBox28.Value = ActiveCell.Offset(0, 2) 'FECHA DE ORDEN
TextBox29.Value = ActiveCell.Offset(0, 6) 'TIPO DE REVISIÓN
TextBox4.Value = ActiveCell.Offset(0, 15) 'AÑO REVISADO
TextBox7.Value = ActiveCell.Offset(0, 38) 'TIEMPO TRANSCURRIDO
<br class="scayt-misspell" data-scayt_word="TextBox26" data-scaytid="28" />End If
End With
End Sub

0

Añade tu respuesta

Haz clic para o