mpsouzaa

Eu tenho 2 Planilhas. A primeira DBCLIENTES com CodCliente, Nome e Telefone dos clientes e a segunda DBPEDIDOS com CodPedido, CodCliente, ValorTotal eu preciso fazer com que a listview carregue: codpedido | codcliente | nome do cliente | valor total já tentei colocar um vlookup quando carrego a listview mas dá erro e não sei outra forma de fazer. Se alguém puder me ajudar serei eternamente grato

Na verdade esse já funcionou, eu tinha escrito 130 ao invés de 13 no activecell, depois que postei que percebi.

Fala galera, to com uma dúvida que tá me fazendo coçar a cabeça. Talvez seja muito simples de resolver. Eu fiz este código para que, ao selecionar uma linha na ListView1 ele adicione a palavra "PAGO" na linha selecionada na coluna "N" da planilha "DBPEDIDOS" e está funcionando certo, mas só funciona quando tenho apenas 1 linha selecionada. For i = Listview1.ListItems.Count To 1 Step -1 If Listview1.ListItems(i).Selected = True Then Dim ID As Variant ID = Listview1.ListItems.Item(i) Listview1.ListItems.Remove i Plan6.Range("A2").Select With Worksheets("DBPEDIDOS").Range("A:A") Set C = .Find(ID, LookIn:=xlValues, lookat:=xlPart) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 13).Value = "PAGO" End If End With End If Next i O que eu quero fazer é que ele insira a palavra "PAGO" em todas as linhas caso eu selecione mais de uma na listview. Se alguém puder dar uma força agradeço demais.