MarVen

Até onde eu sei, FORUM é para esclarecimentos de dúvidas, trocas de experiencias, etc, onde fica aberto para pesquisa de TODOS os membros. Quer vender seu serviço, põe anuncio na OLX.

Olá galera. Tenho dados numa planilha de romaneios de entrega, onde os numeros dos romaneios se repetem, porém para notas fiscais diferentes: ROMANEIO Cliente Nota 0001 cliente um 12314 0001 cliente dois 12315 0001 cliente tres 12316 0002 cliente quatro 12317 0002 cliente cinco 12318 e assim por diante. Fiz um loop for next para inserir numa listbox todos os romaneios de um determinado periodo. Só que preciso que seja um romaneio em cada linha no listbox... da forma que fiz está trazendo todas as linhas repetindo o romaneio. Segue abaixo o código que fiz. Se puderem me ajudar, fico grato. With w ultimalinha = w.Cells(Cells.Rows.Count, 1).End(xlUp).Row For u = 1 To ultimalinha datasaida = Format(w.Cells(u, 2).Value, "dd/mm/yyyy") If Opt_data.Value = True And datasaida > datainicial And datasaida < datafinal Then With ListBox1 .AddItem .List(linhalistbox, 0) = w.Cells(u, 1) 'numero da minuta .List(linhalistbox, 1) = w.Cells(u, 2) 'data da saida para entrega .List(linhalistbox, 2) = w.Cells(u, 3) 'motorista .List(linhalistbox, 3) = w.Cells(u, 4) 'veículo .List(linhalistbox, 4) = w.Cells(u, 9) 'status da minuta linhalistbox = linhalistbox + 1 End With End If Next End With