Saltar al contenido

AlexanderS

Moderador
  • Contador de contenido

    1402
  • Unido

  • Última visita

  • Días con premio

    60

AlexanderS ganó el día el 15 de octubre 2022

AlexanderS had the most liked content!

Sobre AlexanderS

  • Cumpleaños 08/22/1990

Información de perfil

  • Sexo
    Hombre
  • Localización:
    Costa Rica

Configuraciones

  • Campo que utilizas como separador de argumentos
    ,
  • Mi versión de Excel:
    0

Visitantes recientes del perfil

14264 visitas de perfil

AlexanderS's Achievements

Aficionado

Aficionado (6/14)

  • 7 días seguidos
  • Usuario + seguido
  • + 5 reacciones
  • + de 1 año
  • + de 1 mes

Insignias recientes

962

Reputación de la comunidad

23

Respuestas de la comunidad

  1. Hola Alexander, hice una consulta pero nadie contesta, por si pudieras ayudarme por favor.  Mil gracias.

  2. 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

  3. Version 1.0.0

    71 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.
  4. 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.

  5. 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. 

     

  6. 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

  7. 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

  8. 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

     

     

     

     

     

     

     

     

  9. 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

  10. 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:

       

       ???

  11. 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.

  12. Hola @Gerson Pineda, lo que pasa es que este archivo lo tenia para uso personal con algunas columnas mas y se me olvido corregir el rango cuando las elimine. Subo el archivo con la corrección, gracias por avisar. Saludos.
  13. Version 1.0.1

    213 downloads

    Que tal, les comparto este archivo el cual utilizo para enviar correos de Outlook desde la comodidad de Excel. Esto es de utilidad si como en mi caso necesitas enviar un mismo correo a varias personas pero con diferentes archivos adjuntos. Sin mas espero que el aporte sea de utilidad. Saludos.
  14. Hola, buenas tardes. 

    Espero pueda ayudarme. 

    Estoy trabajando en una base de datos para unos equipos conectados en red. La base de datos me descarga el ticket y en esa misma fila las direcciones logicas asociadas a ese ticket. Pasa que cuando trabajo la data solo toma la primera dirección lógica y las demás se pierden.

    Necesito crear una macros que me inserte una fila por cada dirección logica copiando el ticket.

    Ejemplo:

    A: ticket

    B: dir. Logica.

     

    A=1

    B= 1; 2; 3; 4

     

    APARECE ASI:

     

    A             1; 2; 3; 4

     

    Debe separarse asi

    A             1

    A             2

    A             3

    A             4

     

    Usted podría ayudarme con esto? He tratado de muchas formas y no logro dar con la macros exacta. Veo que ud tiene bastante experiencia. Yo apenas estoy comenzando a trabajar con Excel.

    la cosa es que se incerte una columna por cada direccion logica, copiando el mismo ticket y la misma informacion de las demas columnas... es para separarlas y no perder la data.

     

    Agradezco su colaboracion

    1. Mostrar comentarios previos  %s más
    2. Leopoldo Blancas

      Leopoldo Blancas

      Quieres que el resultado en otra hoja?

       

    3. Arii

      Arii

      no. en la misma hoja. solo lo coloque asi para que vieras la diferencia.

      en la pestaña uno esta la data como la descargo. en resultado esta como deberia quedar luego de pasar la macros en la columna de dir logica.

      deberia quedar en la misma hoja.

    4. AlexanderS

      AlexanderS

      Hola @Arii y @Leopoldo Blancas, por favor no usen mi perfil para hacer consultas, pueden ingresar su duda en el foro de  Macros y Programación.

      Saludos.

  15. Hola Riddle, disculpa mi atrevimiento, sino fuera mucha molestia ,me podrias apoyar con este problemita, llevo dias tratando de codificarla, y aun no me sale.

    Cordiales saludos

    Edwin

     

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.