ALTERNAR DADOS - VBA

SILVERDRAGON 28/05/2007 08:56:07
#218445
Galera,

Tenho q fazer uma tarefa nada facil e no qual eu nunca fiz, por isso pesso a ajuda de vocês, o q tenho q fazer é o seguinte:

Possuo 2 arquivos em excel...
vamos chamar o arquivo 1 de "Ceagesp" e o Arquivo 2 de "Produto"..
O "Produto" possui 2 colunas no qual eu tenho q copiar e grava-las dentro do "Ceagesp" só q não tenho a menor idéia como faço isso.

Séra que vocês podem me ajudar.....


desde ja agradeço
JB207 28/05/2007 10:00:31
#218462
Algumas perguntinhas:
1 - O que contem cada arquivo?
2 - Voce quer gravar o que e em quem?
3 - Voce quer gravar no Excel ou em qualquer banco de dados?
4 - Quer usar uma linguagem de programação para fazer isso?
5 - Respondendo essas já melhora as nossas idéias.
Abraços.
SILVERDRAGON 28/05/2007 10:07:18
#218464
Vamos lá..

Respondendo..

1- Em um arquivo possui os produtos e seus preços e no outro a mesma coisa só que um pouco diferente...com + produtos e preço a +

2- Quero gravar a Coluna Produto e Maior em duas colunas vazias do outro arquivo

3- No excel msm.

4-Vba

JB é complicado fazer isso?


grato
WEBMASTER 28/05/2007 10:27:23
#218466
Abra dois workbooks (1 para cada arquivo) e depois abra cada worksheet necessaria e va atraves de um loop fazendo a transferencia entre elas...
SILVERDRAGON 28/05/2007 10:43:13
#218468
Webmaster, desculpe minha ignorancia + não entendi como se faz isso não [S45]
DOMLOAD 28/05/2007 13:00:09
#218493 Resposta escolhida
..grave uma macro que faça isto e salve como um módulo...
..assim vc poderá reutilizar o código pra futuras atualizações...
DOMLOAD 28/05/2007 13:06:36
#218495

Ai o código com a explicação...
Abre a ceagsp.xls, crie um módulo e coloque este código..
Nota: ambos devem dicar na raiz do c:\

  
[c]Sub busca_dados()

' burca_dados Macro
' Macro gravada em 28/05/2007 por DiegoGrimon.com


'caminho da planilha produtos
    ChDir "C:\"
 
 'abre a produtos
    Workbooks.Open Filename:="C:\produto.xls"
 
 'seleciona as colunas e copia
    Columns("B:C").Select
    Selection.Copy
    
 'reativa a Ceagesp
    Windows("Ceagesp.xls").Activate
    
 'seleciona onde ela vai ser inserida, no caso coluna F..
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight
    Range("F3").Select
    
 'busca a produto e fecha
    Windows("produto.xls").Activate
    ActiveWindow.Close
    Range("A1").Select
    
End Sub

[/c]

Qualquer coisa posta ai...
Falows!
MARIOZNETO 28/05/2007 14:35:40
#218511
'Títulos incorretos
Por favor não utilize títulos para seu tópico que não ajudem em nada para quem pode te ajudar. Não coloque títulos como "Help", "Socorro", "Pelo Amor de DEUS" pois isto só dificulta as pessoas interessadas em ajudar à olhar seu tópico.

"Pessoal Procurem pesquisar antes de postar"

"Leia as régras do Forum Porfavor"
REGRAS
Falow T+
Tópico encerrado , respostas não são mais permitidas
Voltar