INPC, actualización automatica

Señores del foro:

De nuevo molestandolos con el archivo, lo que pasa es que solo esta actualizado hasta el INPC de Octubre 2008, faltan los INPC de Noviembre y Diciembre 2008.

Adicionalmente, les solicito de favor haber si pueden actualizar esta valiosa herramienta para el EJERCICIO FISCAL 2009.

Gracias por sus atenciones, y espero que nadie se sienta agredido por este post, ya esa no es mi intencion.

Saludos.

Hola muy buenas tardes, aquí siendo nueva en este foro, descargé el archivo pero nada más me marca eror "1004" alguien me puede decir como lo soluciono?¨mil gracias y excelente página. Saludos desde Puebla.

Estimado Enrique: me arroja el siguiente error en office 2007 (en negritas)

Sub Auto_open()
Application.ScreenUpdating = False
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("a2").EntireRow.Delete
Range("A2").Select
Cells.Find(What:="año", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Selection.EntireRow.Delete
Application.Goto Reference:="R[-1]C"
Selection.EntireRow.Delete
ActiveWorkbook.Save
Range("a1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.AutoFormat Format:=xlRangeAutoFormatClassic3, Number:=True, Font _
:=True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
Range("b2:m100").Select
Selection.NumberFormat = "0.0000"
Range("a2").Select
Selection.End(xlDown).Select
Application.Goto Reference:="R[+2]C"
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.EntireRow.Delete
Range("a1").Select
ActiveWorkbook.Save
MsgBox "Datos actualizados de www.aportacionesfiscales.com/content/view/16/31 ", vbExclamation, "INPC"
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Application.ScreenUpdating = True
Range("A21").Select
Range("A2").Select
Range("a1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWorkbook.Names.Add Name:="inpc", RefersToR1C1:=Selection
Range("A21").Select
Range("A2").Select

End Sub
Sub auto_close()
ActiveWorkbook.Save
End Sub

ojala me pueda auxiliar

saludos

y gracias por el aporte

Hola a todos, pues estuve leyendo el tema a tratar, así como ví el archivo que se adjuntó, y me tomé la libertad de realizar unas modificaciones al mismo, ya que cómo se puede ver en comentarios anteriores ya no era funcional el documento, por lo que realicé unas alteraciones a los datos mostrados, en pocas palabras, lo modifiqué y ya funciona nuevamente. Espero y sirva mi aportación. Saludos desde GDL.

S.S.S.
David Pizano.

Lo acabo de bajar y probar y por el momento todo bien, se actualizo correctamente

Salud2