IMPORTACAO COM CRITERIO DE DATAS

CLAUDINEICAJE 18/06/2013 09:08:39
#424909

Bom dia a todos.

Estou tentando explorar ao maximo os recursos do vba excel porém não sei se isso é possivel ou se alguem tem alguma sugestão que me auxilie.

O problema é seguinte preciso importar informações de uma outra planilha do excel porém as informações variam de acordo com a coluna do mês EX: este mês eu importo a celula [Ô]Z3[Ô] porém o próximo mês julho a célula correspondente será AA3.

Abaixo 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 já passou por esse tipo de problema ou tiver alguma sugestão alternativa
Agradeço.