JohnnyBravo99
Membros-
Total de itens
3 -
Registro em
-
Última visita
Sobre JohnnyBravo99
- Data de Nascimento 04/07/1985
Contatos
-
Website URL
http://
-
ICQ
0
Perfil
-
Gender
Male
-
Location
são Paulo - SP
-
Interests
Tenho interesse em aprender VBA, sou hoje, um iniciante, mas disposto a somar, para o fluir do fórum. Fora o VBA, pratico jiu jitsu e surf...
JohnnyBravo99's Achievements
0
Reputação
-
<_< 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