Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Importar Arquivos C...
 
Notifications
Clear all

Importar Arquivos Critério de Data

 
2024 - VBA & Macros
Post Recente por caje 12 anos atrás
6 Posts
2 Usuários
0 Reactions
1,377 Visualizações
RSS
 caje
(@caje)
Posts: 97
Trusted Member
Topic starter
 

Bom dia.

Estou tentando explorar ao máximo os recursos do vba excel porém não sei se isso é possível. Gostaria de tentar importar uma determinada célula de acordo com o mês. Exemplo: Importo a celula Z3 de outro arquivo excel porém no próximo mês o mês de julho a celula Z3 será AA3 .

Segue o trecho do codigo de importação 

Sub Importar()

Data

ActiveSheet.Unprotect
Application.ScreenUpdating = False

 'IMPORTAR Dados IFC
Workbooks.Open Filename:= _
        ThisWorkbook.Path & "Farol Diário_IFC 2013.xlsb"

         'IMPORTAR Meta Lavandeiria
Windows("Farol Diário_IFC 2013.xlsb").Activate
 'COPIAR META Lavanderia
Sheets("Dados IFC").Select
Range("Z3").Select
'Range("B105").Select
Selection.Copy
Windows("Placar IFC.xlsb").Activate
Sheets("plan1").Activate
Range("B06").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    

 'COPIAR META Coacção
Windows("Farol Diário_IFC 2013.xlsb").Activate
Sheets("Dados IFC").Select
Range("Z10").Select
'Range("B105").Select
Selection.Copy
Windows("Placar IFC.xlsb").Activate
Sheets("plan1").Activate
Range("B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
     
 'COPIAR Dados Reais Lavanderia
Windows("Farol Diário_IFC 2013.xlsb").Activate
Sheets("Dados IFC").Select
Range("Z4").Select
'Range("B105").Select
Selection.Copy
Windows("Placar IFC.xlsb").Activate
Sheets("plan1").Activate
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     
     'COPIAR Dados Reais Coacção
Windows("Farol Diário_IFC 2013.xlsb").Activate
Sheets("Dados IFC").Select
Range("Z11").Select
'Range("B105").Select
Selection.Copy
Windows("Placar IFC.xlsb").Activate
Sheets("plan1").Activate
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
     
     
      'COPIAR Meta Acumulada Mensal
Windows("Farol Diário_IFC 2013.xlsb").Activate
Sheets("Dados IFC").Select
Range("Z17").Select
'Range("B105").Select
Selection.Copy
Windows("Placar IFC.xlsb").Activate
Sheets("plan1").Activate
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
     
         'COPIAR Situação real acumulada
Windows("Farol Diário_IFC 2013.xlsb").Activate
Sheets("Dados IFC").Select
Range("Z18").Select
'Range("B105").Select
Selection.Copy
Windows("Placar IFC.xlsb").Activate
Sheets("plan1").Activate
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     
     Windows("Farol Diário_IFC 2013.xlsb").Close False
     
calcular_meta

Application.ScreenUpdating = True

End Sub

Se alguém tiver alguma dica ou sugestão

Agradeço.

 
Postado : 18/06/2013 5:58 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Mas você quer que a rotina tenha a previsão de encontrar a célula ou você vai determinar isso na rotina?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/06/2013 5:08 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Você poderia detalhar melhor sua solicitação, em sua rotina você tem varios "Selects" que acredito irão depender ou irão ter alguma relação com esta mudança de Range que pretende.

Por outro lado se já sabe que no proximo mes qual celula tem de selecionar, é só alterar a linha:

Range("Z3").Select
para
Range("AA3").Select

Sei que a principio não é isto o que quer, pois acredito que em Agosto será outro range, pensei em utilizar um Count para captar a ultima linha preenchida, mas não vi relação entre as colunas, se em um mes refere-se a Coluna "Z" e em outro Coluna "AA", só vendo um exemplo para uma analise melhor.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/06/2013 5:17 pm
 caje
(@caje)
Posts: 97
Trusted Member
Topic starter
 

Bom dia a todos.

Primeiro referente a pergunta do Alexandrevba eu gostaria que na rotina fosse sendo atualizada de acordo com mês.

Segundo referente a solicitação Mauro Coutinho eu vou tentar explicar melhor o que estou tentando fazer talvez eu eu esteja complicando e tenha um jeito mais facil .

Eu tenho a Macro Placar_IFC no qual eu tenho uma celula "G9" que eu atualizo com a informação da data eu gostaria de comparar "G9" com a 2 linha do arquivo Farol IFC onde tem a informação dos meses em cada coluna exemplo: Janeiro, Fevereiro ...... se o mês for o mês certo eu tenho que puxar os dados da linha 3,10,4,11,17,18.

Estou enviando a planilha em Anexo por e-mail talvez facilite o entendimento da duvida

Agradeço a atenção de Alexandrevba e Mauro Coutinho.

 
Postado : 19/06/2013 6:10 am
 caje
(@caje)
Posts: 97
Trusted Member
Topic starter
 

Bom dia

Não sei se tenho que abrir outro topico mas gostaria de fazer mais pergunta

eu posso usar um HLOOKUP na importação ? pois acho que isso me ajudaria a resolver este problema.

Se for possível gostaria do auxilio do pessoal na estrutura.

 
Postado : 19/06/2013 8:33 am
 caje
(@caje)
Posts: 97
Trusted Member
Topic starter
 

Boa Tarde.
Gostaria de informar que o problema era muito mais simples do que imaginava acho que acabei complicando as coisa.

A solução foi a seguinte eu gravei uma macro com PROCH e usei como referência uma célula onde acabei setando a informação da Data do Dia.

Agradeço a atenção do Mauro Coutinho e do Alexandrevba.

 
Postado : 19/06/2013 1:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico