Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Macro Abre diretórios + Copiar dados.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
diogenes.lima



Mensagens : 1
Data de inscrição : 21/10/2009

MensagemAssunto: Macro Abre diretórios + Copiar dados.   Qua Out 21, 2009 6:24 pm

Pessoal desenvolvi a macro abaixo mas preciso alterá-la.

Sub hmg()
'
' hmg Macro
'
Selection.Font.Underline = xlUnderlineStyleSingle
Workbooks.Open Filename:="C:\temp\data_logger.xls"
Range("BC:BC,BM:BM").Select
Range("BM1").Activate
Range("BC:BC,BM:BM,BS:BS,BT:BT").Select
Range("BT1").Activate
Selection.Copy
Workbooks.Open Filename:="C:\temp\resultado.xlsx"
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("data_logger.xls").Activate
ActiveWindow.Close
Windows("resultado.xlsx").Activate
End Sub

Preciso que os passos abaixo seja realizados.

1) carrega a janela abrir do excel com o endereço \\server\diretorio;
2) Ao escolher o arquivo e abrir;
3) copia as colunas bc, bt e bs;
4) carrega a janela abrir do excel com o endereço \\server\diretorio;
5) Escolher o arquivo e abrir;
6) cole as colunas copiadas;
7) salve o arquivo;


Obrigado pela ajuda.

Att,
Diógenes.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Macro Abre diretórios + Copiar dados.
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [FAQ] O Diretório dos Fóruns
» [Resolvido]Criar Macro no Access que importe dados do Excel
» [Resolvido]Copiar dados de um formulário para outro
» Como colocar mais dados obrigatórios
» Código do formulário de pedidos gráficos pronto

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: