Eufrásio,

Boa noite!

Veja se é assim.

Olá amigo obrigado por sua atenção, testei aqui o código mas ficou dando erro na linha abaixo. Quando apago a planilha dados da planilha e tento cadastrar novos dados os mesmos são salvos mas quando tento carrega-los a partir da combobox da o erro de tipos incompatíveis. Obrigado!

If CLng(cbxFamiliaMotor.Value) = Sheets("Cadastro").Cells(linha, 2) Then

Eufrásio,

Entendo. Veja: porque eu coloquei a função CLng antes de pegar o valor do Combobox? Porque vi no seu exemplo que o combobox deve carregar o que estiver contido em Sheets("Cadastro").Cells(linha, 2). Ou seja, o que estiver contido na coluna B da aba Cadastro que se chama SERIE. No exemplo que você encaminou essa coluna contém números inteiros. Por isso eu usei a função Clng para transformar o valor string que o combobox contém em números inteiros longos e poder efetuar a comparação na hora em que você escolhe no combobox um item qualquer.

Percebi agora que o seu combobox (no formulário) se refere a FAMILIA que na sua planilha é a coluna E da aba Cadastro e que, no caso, recebe uma String (no exemplo encaminhado o primeiro valor é um "A"). Percebeu a inconsistência de definição de projeto? Você precisa definir melhor seu projeto pois há, nesse caso, um erro de lógica! Uma coisa é efetuar uma pesquisa e outra coisa é cadastrar novos dados. O que quero dizer é que você deve, por exemplo, ter momentos e formulários diferentes para cada situação e também definir o que quer carregar no combo para pesquisar.