Boa noite!!

Você poderia tentar aos poucos mudar seu código de inserção, em nossa base já tem demonstrado os mais variados exemplos.
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Pulcinelli, altere as rotinas conforme abaixo:

Private Sub matricula_Change()
If matricula.Value = "" Then Exit Sub
MA = matricula.Value
i = Application.WorksheetFunction.Match(CLng(MA), Sheets("Cadastro").Range("A:A"), 0)
nome = Sheets("Cadastro").Cells(i, 2)
End Sub

e

Private Sub cboradios_Change()
If cboradios.Value = "" Then Exit Sub
CA = cboradios.Value
i = Application.WorksheetFunction.Match(CLng(CA), Sheets("radios").Range("A:A"), 0)
cad_radios = Sheets("radios").Cells(i, 2)
End Sub

Motivo: Apos a inserção, são "limpos" esses botões, porem isso gera um change; e a rotina de procura não consegue avançar.

Boa noite!!

Você poderia tentar aos poucos mudar seu código de inserção, em nossa base já tem demonstrado os mais variados exemplos.
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

bom dei uma pesquisada mas nada esta funcionando.

Pulcinelli, altere as rotinas conforme abaixo:

Private Sub matricula_Change()
If matricula.Value = "" Then Exit Sub
MA = matricula.Value
i = Application.WorksheetFunction.Match(CLng(MA), Sheets("Cadastro").Range("A:A"), 0)
nome = Sheets("Cadastro").Cells(i, 2)
End Sub

e

Private Sub cboradios_Change()
If cboradios.Value = "" Then Exit Sub
CA = cboradios.Value
i = Application.WorksheetFunction.Match(CLng(CA), Sheets("radios").Range("A:A"), 0)
cad_radios = Sheets("radios").Cells(i, 2)
End Sub

Motivo: Apos a inserção, são "limpos" esses botões, porem isso gera um change; e a rotina de procura não consegue avançar.

rlm, colei seu código mas a partir disso ela fala que é impossível localizar o objeto na biblioteca, isso ta mais difícil do que eu imaginava

Pulcinelli, altere as rotinas conforme abaixo:

Private Sub matricula_Change()
If matricula.Value = "" Then Exit Sub
MA = matricula.Value
i = Application.WorksheetFunction.Match(CLng(MA), Sheets("Cadastro").Range("A:A"), 0)
nome = Sheets("Cadastro").Cells(i, 2)
End Sub

e

Private Sub cboradios_Change()
If cboradios.Value = "" Then Exit Sub
CA = cboradios.Value
i = Application.WorksheetFunction.Match(CLng(CA), Sheets("radios").Range("A:A"), 0)
cad_radios = Sheets("radios").Cells(i, 2)
End Sub

Motivo: Apos a inserção, são "limpos" esses botões, porem isso gera um change; e a rotina de procura não consegue avançar.

rlm, colei seu código mas a partir disso ela fala que é impossível localizar o objeto na biblioteca, isso ta mais difícil do que eu imaginava

Se reparar, a alteração proposta em relação ao seu exemplo, é a inserção da linha IF seuControle = "" then exit sub; ou seja interromper o processamento se não houver valor no controle, nada foi acrescentado.
Essa mensagem de erro não tem motivo de ser, ou já havia mas era "ofuscada" pelo erro 13 retratado neste post.
A nova mensagem de erro, refere-se normalmente a uma biblioteca (Editor VBE --> Ferramentas -->Referencias) faltante ou corrompida. Verifique se alguma está identificada com ausente.
Segue seu modelo, aqui no excel 2010 funcionando.