REGLAMENTO DE USO (31 Mar 2011)

Recordatorio a todos los usuarios de los foros:

5. Está prohibido transmitir a través de estos foros cualquier contenido (información, datos, gráficos, texto, archivos, ligas, software u otro material) que viole cualquier derecho de propiedad industrial o intelectual. Se requiere mencionar al autor y el medio de publicación cuando se haga una referencia editorial.

INPC, actualización automatica

ByPaco
Fuera de línea
Moderator

Más

18 años 4 meses antes #26926 por ByPaco

Respuesta de ByPaco sobre el tema Re: INPC, actualización automatica

Antes que nada, felicitar a Enrique Morales por este archivo, Muy ingenioso
ramiro9 escribió:

Code:

....1.-Solo con abrir el archivo se actualizara automaticamente tomando como 
base la informacion de la pagina????:ohmy:  :unsure:  es posile esto?

si se puede ramiro, puedes ver Modificar consulta en el menú Datos, submenú Obtener datos externos

« Antes de que los reinos cambien, los hombres deberán cambiar »

Por favor, Conectar para unirse a la conversación.

kikeleal
Fuera de línea
Administrator

Más

18 años 4 meses antes #26931 por kikeleal

Respuesta de kikeleal sobre el tema Re: INPC, actualización automatica

enrique_morales1979 escribió:

tocayo, es un error provocado por el comando buscar (en algunas pc el argumento SearchFormat:=False provoca un error), bueno, sustituye todo lo rojo:

Cells.Find(What:="año", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,MatchCase:=False_
, SearchFormat:=False).Activate

por esto

Cells.Find(What:="año", After:=ActiveCell, LookIn:=xlFormulas).Activate

y dime si funciona

sigue sin funcinar:(

gracias

saludos!

La vida es el mejor regalo en vida que DIOS nos da!
Saludos!

Por favor, Conectar para unirse a la conversación.

ByPaco
Fuera de línea
Moderator

Más

18 años 3 meses antes - 18 años 3 meses antes #27186 por ByPaco

Respuesta de ByPaco sobre el tema Re: INPC, actualización automatica

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

« Antes de que los reinos cambien, los hombres deberán cambiar »

Última Edición: 18 años 3 meses antes por ByPaco. Razón: como no encontré la forma de deshabilitar los emoticons que aparecian, trate de ajustarlo para que sea lo más legible posible

Por favor, Conectar para unirse a la conversación.

gasiste
Fuera de línea
Fresh Boarder

Más

18 años 2 meses antes #28880 por gasiste

Respuesta de gasiste sobre el tema Re: INPC, actualización automatica

GRACIAS ENRIQUE POR ESTA VALIOSA APORTACION

Por favor, Conectar para unirse a la conversación.

Alucard
Fuera de línea
Administrator

Más

18 años 2 meses antes #28900 por Alucard

Respuesta de Alucard sobre el tema Re: INPC, actualización automatica

Saludos...!

Muchas gracias por el archivo, hoy aprendi algo nuevo gracias a ustedes colegas...

PD: a mi me abrio sin problemas y se actualizo igual, sin mayor contratiempo...