esdrasfoundit

Endereço/Roteiro: Motorista: Status: Itinerário 2: Endereco: Av. Albert Einstein, 628 - Jardim Leonor, São Paulo - SP, 05653-090, Brasil - Hospital Albert Einstein Maternidade, Bloco D. Quarto 904 - Serviço: ENTREGAR PARA Maria Carolina Furtado Bruno Siqueira Santos Concluída Data: Recebido Por: Latitude: Longitude: 16/05/2019 10:49:26 beatriz ercepção -23.599419 -46.714747 Assinatura: Foto: Mapa: Endereço/Roteiro: Motorista: Status: Itinerário 3: Endereco: Av. Pavão, 561 - Moema, São Paulo - SP, 04516-012, Brasil - Apto 101 - Serviço: ENTREGAR PARA Antonia Serpa Bruno Siqueira Santos Concluída Data: Recebido Por: Latitude: Longitude: 16/05/2019 11:24:05 jose rogerio -23.605151 -46.670014 Assinatura: Foto: Mapa: Endereço/Roteiro: Motorista: Status: Itinerário 4: Endereco: R. Afonso Braz, 747 - Vila Nova Conceição, São Paulo - SP, 04511-011, Brasil - 41b - Serviço: ENTREGAR PARA Natalia Aarão Bruno Siqueira Santos Concluída Data: Recebido Por: Latitude: Longitude: Av. Santo Amaro, 2116 - Vila Nova Conceição, São Paulo - SP, Brasil - Vila Nova Conceição - 04506003 - São Paulo/SP 1126134249 - amazonas@amazonasexpress.com.br Loex - Logistica Expressa Serviços Integrados Eire Protocolo Ordem Serviço Speranzini Serviços e Comércio Ltda R. Princesa Isabel, 1364 - Brooklin Paulista, São Paulo - SP, Brasil Solicitante: Endereço: Número: 893 Solicitação: Gislene Godoi 11991281886 Agendamento: Não agendado Centro Custo: LOGÍSTICA Departamento: Telefone: 16/05/2019 11:37:11 Jeferson ccarvalho porteiro -23.595157 -46.671100 Assinatura: Foto: Mapa: Endereço/Roteiro: Motorista: Status: Itinerário 5: Endereco: R. Campevas, 74 - Perdizes, São Paulo - SP, 05016-010, Brasil - Apto 43 - Serviço: ENTREGAR PARA Mariana Marcondes e Eduardo Gripa Bruno Siqueira Santos Concluída Data: Recebido Por: Latitude: Longitude: 16/05/2019 12:00:27 everaldo porteiro -23.535594 -46.674619 Assinatura: Foto: Mapa: Endereço/Roteiro: Motorista: Status: Itinerário 6: Endereco: Alameda Barão de Limeira, 1022 - Campos Elíseos, São Paulo - SP, 01202-002, Brasil - Apartamento 24- Giovanna Spada de Lima - Serviço: ENTREGAR PARA VIVIAN RODRIGUES AUN MACHADO Bruno Siqueira Santos Concluída Data: Recebido Por: Latitude: Longitude: 16/05/2019 12:19:01 manoel porteiro -23.532813 -46.649003 Assinatura: Foto: Mapa: Av. Santo Amaro, 2116 - Vila Nova Conceição, São Paulo - SP, Brasil - Vila Nova Conceição - 04506003 - São Paulo/SP 1126134249 - amazonas@amazonasexpress.com.br Loex - Logistica Expressa Serviços Integrados Eire Protocolo Ordem Serviço Speranzini Serviços e Comércio Ltda R. Princesa Isabel, 1364 - Brooklin Paulista, São Paulo - SP, Brasil Solicitante: Endereço: Número: 893 Solicitação: Gislene Godoi 11991281886 Agendamento: Não agendado Centro Custo: LOGÍSTICA Departamento:

Boa tarde Pessoal, Estou começando a programar com VBA e estou com uma dificuldade escrevi o código abaixo para buscar dados em um arquivo txt. O código está buscando porém traz somente o primeiro encontrado, gostaria que trouxesse todos. Vocês poderiam me ajudar? Agradeço. Sub Amazonas1() Dim arquivo As String, texto As String, linhaTexto As String Dim Recebido As String, Servico As String arquivo = "C:\Esdras\Teste\Amazonas.txt" Open arquivo For Input As #1 Do Until EOF(1) Line Input #1, linhaTexto texto = texto & linhaTexto Loop Close #1 Servico = InStr(texto, "Serviço: ") Recebido = InStr(texto, "Recebido Por: ") Range("A1").Value = Mid(texto, Servico + 9, 200) 'Range("A2").Value = Mid(texto, Recebido + 9, 125) End Sub