Jump to content

AlexanderS

Moderators
  • Posts

    1,402
  • Joined

  • Last visited

  • Days Won

    60

AlexanderS last won the day on October 15

AlexanderS had the most liked content!

About AlexanderS

  • Birthday 08/22/1990

Profile information

  • Gender
    Hombre
  • Localización:
    Costa Rica

Converted

  • Campos
    ,
  • Mi versión de Excel:
    0

Recent Profile Visitors

11,592 profile views

AlexanderS's Achievements

  1. Hola @pinoji puedes verificar que el archivo no este dañado y volver a subirlo. Saludos
  2. Hola @loi, para esto debes guardar la hoja actual en una variable publica: 1. Al inicio de un modulo vas a colocar esto: Public HojaActual As Worksheet 2. Al inicio del código que te dirige a la hoja de tablas colocas esto: Set HojaActual = ActiveSheet 3.En el código del botón regresar colocas esto: HojaActual.Select Eso seria todo. Saludos
  3. Hola @romanboc, no es necesario utilizar VBA, solo tienes que ir a Opciones -> Fórmulas -> Opciones de Cálculo: activas la opción de manual y quitas el check a "Volver a calcular libro antes de guardarlo". Espero sea de ayuda. Saludos
  4. Si le das un Click derecho sobre la imagen te sale a opción de imprimir.
  5. Hola Alexander, hice una consulta pero nadie contesta, por si pudieras ayudarme por favor.  Mil gracias.

  6. Hola alexander, esta genial tu aporte de creador de formularios pero a mi me manda un error y ya instale (mscomctl.ocx
    ) y me sigue mandando el mismo error, tal vez tengo que hacer algo mas??

     

    por tu apoyo muchas gracias

     

    1. AlexanderS

      AlexanderS

      Hola @hectormendozas , si pudieras indicar que error te da.

      Saludos

  7. Version 1.0.0

    63 downloads

    Resulta que hace unos años me tope con el problema de que en mi trabajo habían varios compañeros con un archivo con macros que yo les había pasado, pues resulta que el código del módulo tenia algunos errores o debía cambiar alguna parte del código. Esto era un problema ya que como eran varias personas tenia que ir una por una a modificar el código del modulo para actualizarlo ya que no podía enviar el archivo por correo porque cada uno tenia datos diferentes ingresados en el libro. Pero teníamos algo en común, todos estábamos en la misma red, entonces se me ocurrió el código que explico a continuación: 1. En el archivo original se debe copiar el código en el módulo "Thisworkbook". 2. Debe haber una carpeta de red a la que todos los usuarios tengan acceso (ya sea una red local o por VPN). 3.Crear una carpeta con cualquier nombre donde colocaremos los archivos de actualización. 4. Los archivos de actualización deben ser en formato .txt y el nombre del archivo debe ser el mismo que el del módulo a actualizar. 5. Dentro de los txt se debe colocar el número de versión ejemplo '1.01, con un apostrofe al inicio.(El código solo se actualiza si el número de la versión del txt es mayor que el del modulo del libro) 6. El código actualizara los módulos automáticamente y no afecta la información que este dentro del libro. Si no existe el módulo el código lo creara. El código se ejecuta automáticamente al abrir el archivo y se debe habilitar la opción de Confiar en el acceso al modelo de objetos de proyectos VBA en la configuración de Centros de Confianza -> Configuración de Macros. En el ejemplo adjunto, se debe descomprimir y abrirlo por primera vez se actualizaran los módulos, ya que la carpeta por defecto es la misma que donde se guardo el archivo. Saludos y espero sea de funcionalidad para alguien.
  8. Buenas noches Alexander, recibe un cordial saludo, he encontrado un foro tuyo en el cual explicas como realizar la actualización de un modulo de VBA en varios archivos a la vez desde un .txt, que se deja en una ruta especifica, el código funciona perfectamente, pero en este momento tengo la necesidad de poder actualizar varios módulos a la vez, no se si puedas darme algún consejo para modificar el código de tu autoría, o si tienes una rutina que haga esta tarea. de antemano agradezco en lo que me puedas ayudar, en verdad tengo esa dificultad en mi trabajo y no la he podido solucionar. 

    1. AlexanderS

      AlexanderS

      Hola @OAGARCIA, lo ideal seria que abrieras un nuevo tema en la sección de macros y VBA, adjuntes archivo e indiques lo que requieres, he subido varios aportes al foro y para no tener que buscar cual fue mejor lo indicas en el tema que abras.

      Saludos.

  9. hola Buena tarde, amigo, cordial saludo, espero estes bien requiero de tu ayuda

    en un foro diste esta solucion para que al abrir excel, se abriera ajustando el zoom a la pantalla:

    Private Sub Workbook_Open()
    Application.EnableEvents = False
    Application.DisplayFullScreen = True
    Hoja1.Range("A1:K38").Select
    ActiveWindow.Zoom = True
    Hoja1.Range("A1").Select
    Application.EnableEvents = True
    End Sub
    
    

    yo lo estoy usando hasta aqui y funciona de maravilla

    Private Sub Workbook_Open()

    Application.EnableEvents = False

    Application.DisplayFullScreen = True

    Hoja1.Range("A1:K38").Select

    ActiveWindow.Zoom = True

    la cuestión es que el libro tiene 2 hojas y no se como programar tu macro para que funcione para las dos hojas al abrir el archivo. mil gracias por tu ayuda. 

     

  10. hola como estas, tengo una macro a la cual quiero agregarle tu complemento CalendarioRiddle  pero no puedo bajarla de la pagina, donde la puedo encontrar ????

    1. AlexanderS

      AlexanderS

      @nceronj, No te funciona el enlace? 

      Lo adjunto a este comentario, me comentas si tienes algún problema y vemos por donde te lo puedo compartir.

      Saludos

      Calendario_RIDDLE.xlam

  11. hola Alexander muchas gracias por sus aportes y soluciones.  tengo na duda adjunto un fichero que se conecta a una base de acces y lo que yo necesito es que este fichero sea modificado para conectar a sql server, soy nuevo y lo mas probable que lo que necesito sea sencillo. 

    Desde ya muchas gracias

     

     

    Combos dependientes SQL.rar

  12. Hola estimado Alexanders una consulta te explico el funcionamiento de la hoja y el objetivo. 

    Datos de funcionamiento actual:

    1 En la hoja adjunto en la pestaña estimacion:

    3 En la celda "est" se elige la columna con los valores de % de la columna U a la DP regresando el porcentaje a las celdas L17:L25 "esta estimación" 

    2 En las celdas U17:U25  a la celda DP17:DP25 se captura un % de avance sobre el importe limite máximo de las celdas H17:25 (con la condición que en la suma de las celdas T17:T25 no supere el 100%  sobre el importe total de cada concepto) 

    Objetivo:

    1 Que en las celdas celdas U17:U25  a la celda DP17:DP25 se pueda capturar cantidades numericos no porcentajes. 

    2 Que en las celdas celdas U17:U25  a la celda DP17:DP25 la sumatoria de la captura horizontal del volumen sea el limite del valor de las celdas G17:G25.

    Con el fin de que se capturen volumenes medibles y no porcentajes pero que esten limitados al volumen del presupuesto establecido y no se pueda exceder. 

    Sin mas por el momento quedo a sus finas ordene para cualquier duda. 

    Adjunto link de archivo. 

    http://www.mediafire.com/file/81t79c0k58wgodp/190917_ESTIMACION.xls/file

     

     

     

     

     

     

     

     

  13. Hola AlexanderS

    Estaba buscando un Calendario para Formularios, pero que no utilizara datepicker y encontre tu post, pero no deja descargar el archivo, hay alguna manera de poder obtener tu aporte?

    Encontre otro aporte parecido, pero hay que colocar muchas lineas para obtener el mismo resultado que el tuyo que utiliza solo una linea.


    Saludos,

    1. AlexanderS

      AlexanderS

      Que tal, te respondo en privado. Saludos

  14. Hola Alexander, vi un macro desarrollado por ti en esta URL  y necesito algo parecido. Es decir, que de una celda A donde tengo todos los numeros ingresados a una aplicación pero quiero separarlos a la celda B solo aquellos que tengan 10 dígitos lo que me indicaría que son numeros celulares. Me puedes orientar a como solucionarlo? Grcias.

     

    ejemplo.xlsx

    1. Leopoldo Blancas

      Leopoldo Blancas

      Hola, 

      Saludo a ambos,

      Verifica el adjunto y comentas.

      ejemplo (1)_LBV.xlsm

    2. resellerw

      resellerw

      muy bueno !! excelente"! Lo que estaba buscando. Un genio total

    3. Leopoldo Blancas

      Leopoldo Blancas

      @resellerw dijo:

      Un genio total

       

      @Leopoldo Blancas dice:

       

       😂😂😂

  15. Hola @AlexanderS,

    Estoy haciendo una aplicación y utilice tu Procedimiento que pongo más abajo, lo que resulta es que en un libro nuevo si genera el Botón y el código en la hoja y en mi proyecto solo genera el Botón y el código en la hoja NO.  Sabras algo de incompatibilidad. Los libros están habilitados para macros.

    Private Sub Insert_Boton()
    Dim hoja As Object
    Dim m As Double
    Dim bt As Range
    Dim cTexto As String
    On Error Resume Next
    Set bt = Application.InputBox(Prompt:="Selecciona donde se creara el botón para llamar el formulario", Title:="By Riddle", Type:=8)
    
    Set hoja = ThisWorkbook.VBProject.VBComponents(bt.Parent.Name)
        With Sheets(bt.Parent.Name).OLEObjects.Add(classtype:="Forms.CommandButton.1", _
             Top:=bt.Top, Left:=bt.Left, _
             Height:=bt.Height * 2, Width:=bt.Width * 2)
             .Object.Caption = "Formulario"
             .Name = "boton" & "Leopoldo"
         End With
       
         With hoja.CodeModule
         cTexto = "Private Sub boton" & "Leopoldo" & "_Click()" & vbNewLine
         cTexto = cTexto & "    MsgBox """ & " Hola """ & vbNewLine
         cTexto = cTexto & "End Sub"
         .InsertLines .CountOfLines + 1, cTexto
         End With
     
    End Sub

    Saludos.

    NOTA: Lo que me queda hacer es pasar mis modulos  a un nuevo libro y veo si resulta, gracias.

    1. Leopoldo Blancas

      Leopoldo Blancas

      OK, Creo que el archivo estaba ya "Dañado", Copie módulos a un nuevo libro y ya quedo.

      Gracias y saludos.

    2. Leopoldo Blancas

      Leopoldo Blancas

      OK, Creo que el archivo estaba ya "Dañado", Copie módulos a un nuevo libro y ya quedo.

      Gracias y saludos.

×
×
  • Create New...

Important Information

Privacy Policy