jerryeagle respondió:
Checa este Código y lo acomodas a tus necesidades: Sub VerificaExistente(ByVal DatoBuscar as String) Set Buscar = Sheets("Tu hoja2").Cells.Find(DatoBuscar) If not Buscar is Nothing then Msgbox "Ya existe el Registro " & DatoBuscar, vbInformation Else...