Radio Aportaciones:  
--:--  | : 8hs-12hs -
Toggle Bar

    INPC, actualización automatica

    07 May 2008 16:34 #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ó:
    ....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, Identificarse o Crear cuenta para unirse a la conversación.

    07 May 2008 17:28 #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, Identificarse o Crear cuenta para unirse a la conversación.

    13 May 2008 21:32 - 13 May 2008 21:43 #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 »

    Por favor, Identificarse o Crear cuenta para unirse a la conversación.

    13 Jun 2008 16:37 #28880 por gasiste
    Respuesta de gasiste sobre el tema Re: INPC, actualización automatica
    GRACIAS ENRIQUE POR ESTA VALIOSA APORTACION

    Por favor, Identificarse o Crear cuenta para unirse a la conversación.

    13 Jun 2008 18:19 #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... :)

    ME GUSTARIA SER TU PARA TENER UN AMIGO COMO YO

    Por favor, Identificarse o Crear cuenta para unirse a la conversación.

    13 Jun 2008 18:40 #28904 por estrella
    Respuesta de estrella sobre el tema Re: INPC, actualización automatica
    muchas gracias por compartirlo, esta muy bien, solo una pregunta, ya lo guarde pero para el proximo mes tengo q eliminar este y estara otro? gracias

    Por favor, Identificarse o Crear cuenta para unirse a la conversación.

    Tiempo de carga de la página: 0.235 segundos

    ¿Quién está en línea?

    Hay 495 invitados y 2 miembros en línea

    Usuarios en línea