JohnnyBravo99

<_< Preciso criar uma planilha com a lista dos valores contidos na célula G24 de vários arquivos... O nome desses arquivos é Informativo Soja e Milho - 010906.xls (sendo esse o primeiro, até o dia de hoje). Tentei fazer um loop, mas me confundo na hora de declarar váriaveis para puxar os arquivos na ordem certa... Valeu,

Fala Joao! Eu consegui resolver esse problema, mas de qualquer forma, valeu pela ajuda... Abraços

Boa tarde galera, Sou novato no VBA, mas tenho me dedicado bastante... Queria, se possível, que alguém me ajudasse com uma atualização de planilha. É o seguinte, Todo dia eu faço um relatório com dados do mercado ( nome do arquivo Informativo do Boi - 020209.xls). No dia seguinte pego informações desse relatório para alimentar um banco de dados em uma planilha chamada Preços Atacado. No comando abaixo, as células origem e destino estão certas. Minha dúvida é como estruturar um comando, sendo que todo dia o nome do relatório muda devido a data... Segue o comando, eu mesmo fiz, mas não dá certo... Sub a() Dim g As Date g = InputBox("Data") Workbooks("Preços Atacado.xls").Worksheets("Plan1").Activate For i = 1 To 2000 If Cells(i, 1) = g Then Cells(i, 2) = Workbooks("Informativo do Boi -" & " g" & ".xls").Worksheets("EDIÇÃO").Cells(45, 18) Cells(i, 3) = Workbooks("Informativo do Boi -" & " g" & ".xls").Worksheets("EDIÇÃO").Cells(46, 18) Cells(i, 4) = Workbooks("Informativo do Boi -" & " g" & ".xls").Worksheets("EDIÇÃO").Cells(47, 18) Cells(i, 5) = Workbooks("Informativo do Boi -" & " g" & ".xls").Worksheets("EDIÇÃO").Cells(48, 18) Cells(i, 6) = Workbooks("Informativo do Boi -" & " g" & ".xls").Worksheets("EDIÇÃO").Cells(49, 18) Cells(i, 7) = Workbooks("Informativo do Boi -" & " g" & ".xls").Worksheets("EDIÇÃO").Cells(18, 14) End If Next i End Sub Agradeço a disposição, mesmo que não encontre a resposta... Valeu galera, Johnny