Lorenzon,

Boa Tarde!

Não sei se entendi corretamente a sua necessidade... o que você quer é comprar o valor que é selecionado no ComboBox com os valores existente na Coluna A, da linha 1 a linha 150? É isso?

Se for isso, eu faria assim:

Dim sSelecao
Dim i as long
sSelecao = ComboBox1.Value
For i = 1 to 150
     If Range ("A" & i).Value <> sSelecao Then
          ComboBox1.SetFocus
MsgBox "Centro de custo inexistente. Por favor, verifique-o e tente novamente", vbCritical, "Atenção!"

ComboBox1.Text = ""

ComboBox1.BackColor = &H80000018

Exit Sub

Código saiu errado. Complementando:

    Dim sSelecao
    Dim i as long
    sSelecao = ComboBox1.Value
    For i = 1 to 150
         If Range ("A" & i).Value <> sSelecao Then
              ComboBox1.SetFocus
              MsgBox "Centro de custo inexistente. Por favor, verifique-o e tente novamente", vbCritical, "Atenção!"

              ComboBox1.Text = ""

               ComboBox1.BackColor = &H80000018

               Exit Sub
        End If
   Next

perfeito

Lorenzon,

Só mais uma coisa que observei somente depois que enviei esse código: Esse código só serve se você quiser que, ao encontrar a primeira ocorrência de não coincidência de dados, o mesmo apresente a mensagem e saia da procedure. Todavia, se você quiser checar, primeiramente, todos os valores da coluna A, para somente depois de verificar todos, em casa de não coincidência dos dados, apresentar a mensagem e sair, o código deve ser alterado para este:

        Dim sSelecao
        Dim i as long
        Dim NãoAchou as Boolean
        sSelecao = ComboBox1.Value
        NãoAchou = False
        For i = 1 to 150
             If Range ("A" & i).Value <> sSelecao Then
                  NãoAchou = True
             End If
        Next

        If NãoAchou = True then
                  ComboBox1.SetFocus
                  MsgBox "Centro de custo inexistente. Por favor, verifique-o e tente novamente", vbCritical, "Atenção!"

                  ComboBox1.Text = ""

                   ComboBox1.BackColor = &H80000018

                   Exit Sub
         End If

Por gentileza, vote positivamente clicando na mãozinha ao lado da ferramenta Citar

Isso me ajudou! Complementei uma macro que estava lenta na execução!

Tks!