Segue arquivo correto.

Apague tudo no form e coloque esse código:

Private Sub cbobusca_DropButtonClick()
Application.ScreenUpdating = False
With Worksheets("Dados").Range("C:C")
        Set c = .Find(cbobusca.Value, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
'c.Activate
txtid.Value = c.Offset(0, -2).Value
txtserv.Value = c.Offset(0, -1).Value
txtsist.Value = c.Value
txtarea.Value = c.Offset(0, 1).Value
txtambiente.Value = c.Offset(0, 2).Value
End If
End With
Linha1:
Application.ScreenUpdating = True
End Sub
Private Sub cbobusca_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Verificar se foi digitado um nome na primeira caixa de texto
If cbobusca.Value = "" Then
MsgBox "Selecione um aplicativo para pesquisa"
cbobusca.SetFocus
End If
End Sub
Private Sub cmdatualizar_Click()
Application.ScreenUpdating = False
Sheets("Dados").Select
Range("A2:A65000").Select '"a2" até "a" e sua ultima linha
    Dim lin, col
    Selection.Find(What:=txtid, LookAt:=xlWhole).Activate 'vai procurar na seleçaõ  a palavra que estiver em txtid
    lin = ActiveCell.Row
    col = ActiveCell.Column
  'Cells(lin, col) = txtid linha encontrada com a variável
   Cells(lin, col + 2) = txtsist 'na linha da variável +2 coluna
   Cells(lin, col + 3) = txtarea 'na linha da variável +3 coluna
   Cells(lin, col + 4) = txtambiente 'na linha da variável +4 coluna
Application.ScreenUpdating = True
End Sub

https://www.youtube.com/watch?v=_TAiItN7iPU

Messias, Muito obrigado perfeito.