ja temos um caso aqui que é praticamente a mesma coisa que vc pediu. Use a pesquisa do fórum.

Primeiro faça a pesquisa conforme o gtsalikis indicou, e o que encontrar precisar de ajustes é só pedir.
No momento só vou opinar quanto a questão dos MsgBox(janela pop up), já imaginou se em sua planilha você tiver uma relação de 30 carros e 25 deles precisarem de Revisão? Você vai cansar de ficar clicando OK para fechar os Avisos na tela.
Eu sugiro utilizar o Filtro ou na mesma aba ou em outra com a relaçao somente dos que teem de revisar.
Pense nisto.

[]s

Eu encontrei tópicos parecidos mas a minha dúvida mesmo é quanto ao macro do pop up que não encontrei nada parecido. A respeito da observação do Mauro, vocês sabem se é possível que em uma única janela pop up venham informações de todos os carros, ao invés de abrir uma janela para cada carro?

Boa tarde!!

Enquanto isso.....

...Poste seu arquivo modelo compactado!

Att

Veja se um modelo com Listbox ja ajuda.

Preencher Listbox Veiculos a Revisar

[]s

Gostei da ideia do listbox, agora estou tentando incluir os três tipos de revisão (troca de óleo, troca de correia e balanceamento) como colunas do list box. Tentei da seguinte forma:

Sub PreencherListBox()
Dim lastRow As Long
Dim i As Integer

ListBox1.Clear

With ListBox1
.ColumnCount = 4 'define nº colunas
.ColumnWidths = "50;80" 'define largura das colunas
End With
' Verifica qual a ultima linha preenchida
lastRow = Plan1.Range("A65000").End(xlUp).Row

'adiciona dados
For i = 2 To lastRow
If Range("C" & i).Value = "Alinhamento" Then
Me.ListBox1.AddItem Plan1.Range("A" & i)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Plan1.Range("C" & i)

End If
Next
For i = 2 To lastRow
If Range("D" & i).Value = "Troca de óleo" Then
Me.ListBox1.AddItem Plan1.Range("A" & i)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Plan1.Range("D" & i)

End If
Next
For i = 2 To lastRow
If Range("E" & i).Value = "Troca de correia" Then
Me.ListBox1.AddItem Plan1.Range("A" & i)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Plan1.Range("E" & i)

End If
Next
End Sub

Mas desse jeito ele duplica as linhas dos carros ficando assim:

Kombi Alinhamento
Kombi Troca de óleo
Kombi Troca de correia

Eu queria que aparecesse uma linha Kombi com as revisões que tenho que fazer:
Kombi Alinhamento Troca de óleo
ou
Kombi Troca de correia
.
.
.
Etc

Desculpem a ignorância não sei a linguagem VBA apenas tento discernir a lógica que vcs usam e fazer as alterações que preciso.

Anexei o esqueleto da planilha que estou montando.

Grato

Boa Noite

Na macro deve substituir da seguinte forma:
Como deve ver acrescentei uma coluna e a respectiva largura, e depois deve colocar de forma que os dados fiquem no listewieu alterando apenas o índice da coluna. do listewieu e acrescentando a linha que ira colocar a respectiva coluna
Sub PreencherListBox()
Dim lastRow As Long
Dim i As Integer

ListBox1.Clear

With ListBox1
.ColumnCount = 5 'define nº colunas
.ColumnWidths = "50;60;80" 'define largura das colunas
End With
' Verifica qual a ultima linha preenchida
lastRow = Plan1.Range("A65000").End(xlUp).Row

'adiciona dados
For i = 2 To lastRow
If Range("C" & i).Value = "Revisar" Then
Me.ListBox1.AddItem Plan1.Range("A" & i)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Plan1.Range("C" & i)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Plan1.Range("D" & i)

End If

Next
End Sub

Funcionou beleza.

Muito obrigado a todos.