Olá pessoal,

Tenho a seguinte situação:

Um listview que me mostrará o "aniversário" de um determinado pedido, porém os dados para preencher o listview estão em guias diferentes, uma guia é o cadastro do cliente e a outra são os dados do pedido, a informação que liga as duas guias é a coluna código do cliente, que se repete na guia pedido

As colunas do listview são "Código Cliente", "Data do pedido", "Nome Cliente", "email, "telefone"

Os campos email e telefone estão em outra guia(cadastro de clientes), eu precisava localizar o cliente pelo seu código e trazer pro listview

O código que tentei e não deu certo foi esse. Se alguém puder me ajudar.

ListView15.ListItems.Clear

Sheets("Pedidos").Activate

Dim i, UltimaLinha As Long
Dim List As ListItem
UltimaLinha = Plan4.Cells(Cells.Rows.Count, 7).End(xlUp).Row
If UltimaLinha < 2 Then UltimaLinha = 2
For i = 2 To UltimaLinha

If Val(Range("G" & i).Value) = Val(Date) Then '-- PREENCHE O LISTVIEW SOMENTE COM PEDIDOS FAZENDO ANIVERSÁRIO NAQUELA DATA

Set List = ListView15.ListItems.Add(Text:=Range("C" & i).Value)

List.SubItems(1) = Range("G" & i).Value
List.SubItems(2) = Range("E" & i).Value

'-- NESSA PARTE QUE PRECISO ABRIR O CADASTRO DE CLIENTES E LOCALIZAR O CÓDIGO DO CLIENTE QUE JÁ ESTÁ COMO INDEX ZERO DO LISTVIEW

Sheets("Cadastro_de_Clientes").Activate
List.SubItems(3) = Range("H" & i).Value
List.SubItems(4) = Range("G" & i).Value

End If

Next