INPC, actualización automatica

ByPaco escribió:

Me voy a meter, realizé unos ajuste al código de enrique:
Sub Auto_open()
'Creada por Enrique Morales
Application.ScreenUpdating = False
[A1].QueryTable.Refresh BackgroundQuery:=False
[A2].EntireRow.Delete
[A1].End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1" ).EntireRow.Delete
ActiveCell.Offset(1, 0).Range("A1" ).EntireRow.Delete
Range([A1], ActiveCell.SpecialCells(xlLastCell)).AutoFormat _
Format:=xlRangeAutoFormatClassic3, Number:=True, Font _
:=True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
Fn% = Range([A1].CurrentRegion.Address).Rows.Count
Range("B2:M" & Fn).NumberFormat = "0.0000"
[A1].End(xlDown).Select
Application.Goto Reference:="R[+2]C"
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).EntireRow.Delete
Rows("2:2" ).Select
ActiveWindow.FreezePanes = True
Application.ScreenUpdating = True
ActiveWorkbook.Names("inpc" ).Delete
Range([A1], ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWorkbook.Names.Add Name:="inpc" , RefersToR1C1:=Selection
Range("A2" ).Select
MsgBox "Datos actualizados de www.aportacionesfiscales.com/content/view/16/31 ", vbExclamation, "INPC"
End Sub
Sub auto_close()
ActiveWorkbook.Save
End Sub

Espero y así te sirva

Viendo esta respuesta y viendo quienes son los autores este topico tambien lo podria titular la "la guerra de los Excelistas"

Pacorro y quique(como dicen por alli) me pongo de pie ante ustedes Señores felicidades por su Ingenio y su talento para estos menesteres!!!

Saludos

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