Jump to content

mpsouzaa

Members
  • Content count

    6
  • Joined

  • Last visited

Community Reputation

0 Comum

About mpsouzaa

  1. mpsouzaa

    Vlookup no Listview

    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
  2. Na verdade esse já funcionou, eu tinha escrito 130 ao invés de 13 no activecell, depois que postei que percebi.
  3. 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.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.