Jump to content

Marco Corrales

Members
  • Content Count

    91
  • Joined

  • Last visited

About Marco Corrales

  • Rank
    Advanced Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Buenos días Gerson. Muchas gracias por tu consejo. Gracias también a Diego LG y a Antoni; ya podemos cerrar el tema. Buen día,
  2. Antoni, el error está en esta linea: Hoja3.Range(Hoja3.Columns("IA"), Hoja3.Columns("IA").End(xlToRight)).ClearContents 'Antoni Foro Porque me tira: "Error en el método 'Range' de objeto '_Worksheet'. La línea funciona perfectamente cuando la hoja está visible y activa, pero no así cuando está oculta. Lo que tengo que hacer el sustituir el 'Range', pero no se como hacerlo, ¿será con un nombre al rango?
  3. Entonces voy a ver por donde anda el asunto, porque me tira un error cuando la hoja está oculta! Te agradezco muchísimo la ayuda Antoni!
  4. Antoni, tiene razón, voy a hacerlo de esa manera! ¿y para que funcione aunque la hoja esté Hidden? Qué podría hacer?
  5. Este es mi código completo, lo que necesito es que la Hoja3 esté oculta y aun así se haga la consulta y se guarden los datos en dicha hoja, pero al estar en otra hoja, no me funciona, solo funciona cuando estoy en la Hoja3 directamente. Sub IndicadoresConsultaExterna() ' Indicadores Consulta Externa Application.ScreenUpdating = False Application.DisplayStatusBar = True Application.StatusBar = "Iniciando..." bActualizoIndicadores = "0" FrmBarAvan.Repaint On Error GoTo Salida_error '******************************* Dim sFecha As String Dim sHora As String 'cambié el tipo Date a String, ya que versiones de office no lo leen Hoja3.Visible = True Hoja3.Select Columns("IA").EntireColumn.Select Range(Selection, Selection.End(xlToRight)).Select Selection.ClearContents 'Hoja3.Columns("IA:XFD").ClearContents 'Diego Foro 'Hoja3.Range(Columns("IA"), Columns("IA").End(xlToRight)).ClearContents 'Antoni Foro 'Hoja3.Range(Hoja3.Columns("IA"), Hoja3.Columns("IA").End(xlToRight)).ClearContents 'Antoni Foro With ActiveSheet.QueryTables.Add(Connection:= _ "URL;http://sa10624/finanzas/IndicdelDia/Tasaseindicadoreseconomicos_archivos/sheet001.htm" _ , Destination:=Hoja3.[IA5]) 'Range("$IA$5") .Name = "IndicadoresDelDía" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlAllTables .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With varContador = 0 varRangoInicio = 0 'Para extraer los indicadores de la conexion realizada Range("TasaBasicaPasiva").Value = Hoja3.[II18].Value Range("TasaPrimeRate").Value = Hoja3.[II21].Value Range("TasaLibor").Value = Hoja3.[ID27].Value Range("tasaPromedioNeta").Value = Hoja3.[II22].Value Range("TipoCambioVenta").Value = Hoja3.[ID19].Value Range("TipoCambioCompra").Value = Hoja3.[ID18].Value Range("TipoCambioVentaBCR").Value = Hoja3.[IC19].Value Range("TipoCambioCompraBCR").Value = Hoja3.[IC18].Value sFecha = Hoja3.[IB7].Value sHora = Hoja3.[IJ8].Value MsgBox (sFecha & " a las: " & sHora & vbNewLine & _ "" & vbNewLine & _ " Consulta realizada a la página: " & vbNewLine & _ "" & vbNewLine & _ "http://sa10624/finanzas/IndicdelDia/Tasaseindicadoreseconomicos_archivos/sheet001.htm") & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "* Debe estar seguro que los indicadores son los correctos, si alerta información erronea, debe digitarla manualmente." 'Para borrar la conexion y restar peso Columns("IA").EntireColumn.Select Range(Selection, Selection.End(xlToRight)).Select Selection.ClearContents 'Hoja3.Columns("IA:XFD").ClearContents 'Diego del Foro 'Hoja3.Range(Columns("IA"), Columns("IA").End(xlToRight)).ClearContents 'Antoni Foro 'Hoja3.Range(Hoja3.Columns("IA"), Hoja3.Columns("IA").End(xlToRight)).ClearContents 'Antoni Foro bActualizoIndicadores = "1" 'Si ocurre un error en todo el código de arriba el programa salta a esta linea Salida_error: If Err.Number <> 0 Then MsgBox "Ha ocurrido una excepción en el proceso de consulta de los indicadores, ***RECUERDE*** que puede continuar con el proceso y digitarlos manualmente en caso de ser necesario. " & Err.Description Else If varRangoInicio = 0 Then End If End If 'Hoja3.Visible = xlVeryHidden Application.ScreenUpdating = True Application.StatusBar = "Ejecución terminada" End Sub
  6. Sí me funciona, el problema es que necesito que esa hoja esté oculta, y si está oculta no funciona...
  7. Buenos días Antoni, gracias por su consejo. Estoy probando el de Diego, pero no me funciona, voy a probar el tuyo y te comento. De nuevo gracias,
  8. Hola Diego, muchas gracias por tu ayuda. Al darle un rango tan amplio, más bien no la hace más lenta?
  9. Buenos días, gusto saludarles. ¿Algún consejo para optimizar este código y no tener que entrar a la hoja y tampoco seleccionar? ¿Será dando nombre al rango? Hoja3.Visible = True Hoja3.Select Columns("IA").EntireColumn.Select Range(Selection, Selection.End(xlToRight)).Select Selection.ClearContents Les agradezco sus consejos.
  10. Buenos días, gusto saludarles.

    ¿Algún consejo para optimizar este código y no tener que entrar a la hoja y tampoco seleccionar?

    ¿Será dando nombre al rango?

    	Hoja3.Visible = True
    Hoja3.Select
    	    Columns("IA").EntireColumn.Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.ClearContents
    	

    Les agradezco sus consejos.

  11. Buenos días, gusto saludarles. Tengo la siguiente situación: El control de calendario MonthView que programé en 2007, no me corre en 2013, dice que no se ha encontrado el complemento, "error 424", pero solamente en las maquinas tipo "LapTop", en la maquinas de escritorio si corre bien. He seguido varios tutoriales de la web, sin embargo aun así no se corrige el error. ¿A alguno de ustedes le ha pasado? ¿Cómo lo pudo corregir? Les agradezco cualquier información que me puedan brindar. Quedo atengo, saludes desde Costa Rica,
  12. Buenos días Gerson. Me parece muy interesante el código, me va a servir para otros intereses y obtener toda la información que brinda. Muchas gracias por tu tiempo. Favor cerrar el tema
  13. Hola Gerson, gracias de antemano. En donde pongo ese código, y que logro?
  14. No, así están, bloqueados los dos, pero sabes que culquiera con un poquito más de conocimiento del promedio puede abrir tanto las hojas como el proyecto.
×
×
  • Create New...

Important Information

Privacy Policy