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.