Jump to content

AlexanderS

Moderators
  • Content Count

    1,356
  • Joined

  • Last visited

  • Days Won

    54
  • Country

    Costa Rica

Status Replies posted by AlexanderS

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

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

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

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

    2. (See 9 other replies to this status update)

  5. Buenas tardes, Tienes razón en que es un tema ya pasado porque haz estado ligado por mucho tiempo, pero para mi no, porque es mi primer enlace, y si estoy pidiendo apoyo es por lo siguiente:

    Tengo como 3 meses haciendo este proyecto y por mas que busco no encuentro nada que me pueda ayudar, no soy nada bueno en esto y me ha costado un buen sacar algunos formularios para registrar proveedores, registro de facturas  y que se almacenen. ahora solo pido su ayuda para generar estos reportes. 

    No quiero ser grosero ni mucho menos, solo entiende que estoy como loquito por terminar mi proyecto

    Acepta por favor  mi disculpa 

    1. AlexanderS

      AlexanderS

      Buenas Tardes @Arturo Castillo Chavez, es por normas del foro y como recomendación personal el que crees un nuevo tema con tu consulta, los usuarios que participaron en ese tema tienen casi un año desde la ultima vez que entraron al foro por lo que no vas a obtener ayuda de parte de ellos.

      Para tu consulta debes explicar ampliamente que necesitas y adjuntar ejemplos en excel, de ese modo alguien se animara a atender tu consulta.

      Puedes crear la consulta desde el siguiente link:

      https://ayudaexcel.com/foro/forum/6-macros-y-programación-vba/?do=add

      Saludos

  6. HOLA QUE TAL PRIMERO TE FELICITO POR TU APORTE TAN GRANDE, LA SEGUNDA ES QUE AL SEGUIR LOS PASOS QUE COMENTAS DEL CHAT DE EXCEL Y QUERER METER OTROS USUARIOS AL CHAT NO PUEDEN ESCRIBIR Y ME LANZA EL DEPURADOR.

    QUE PUEDO HACER? SALUDOS

    1. AlexanderS

      AlexanderS

      Hola @arlyfox, te agradezco si colocas tu consulta en el foro indicando el problema, yo apenas pueda lo veo.

      Puedes publicar el tema desde el siguiente link:

      https://ayudaexcel.com/foro/forum/6-macros-y-programación-vba/?do=add

      Saludos

    2. (See 1 other reply to this status update)

  7. Hola amigo , estaba pasando lo desarrollado por usted en mi libro de trabajo, pero sale error al ejecutarlo

    Public cn As ADODB.Connection, Rango_Datos As String-----------------lo puse en rojo lo que me sale sombreado
    Dim GUARDA_LIBRO As Boolean

    Private Sub TextBox1_Change(): filtrar: End Sub
    Private Sub TextBox2_Change(): filtrar: End Sub
    Private Sub TextBox3_Change(): filtrar: End Sub
    Private Sub TextBox4_Change(): filtrar: End Sub
    Private Sub CommandButton1_Click()
    GUARDA_LIBRO = True: filtrar
    Unload Me
    End Sub
    Private Sub CommandButton2_Click()
    Unload Me
    End Sub
    Private Sub filtrar(): On Error Resume Next
    Dim rs As ADODB.Recordset
    Dim rango As String
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    Base_Datos = ThisWorkbook.FullName
    Rango_Datos = "[" & [Tabla2].ListObject.Range.Address(0, 0) & "]"
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Base_Datos _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    filtros = ""
    If Not Me.TextBox1 = "" Then filtros = "CLIENTE LIKE '%" & Me.TextBox1 & "%'" & " and " & filtros
    If Not Me.TextBox2 = "" Then filtros = "FECHA= '" & Me.TextBox2 & "' and " & filtros
    If Not Me.TextBox3 = "" Then filtros = "ARTICULO= '" & Me.TextBox3 & "' and " & filtros
    If Not Me.TextBox4 = "" Then filtros = "OPERACIÓN= '" & Me.TextBox4 & "' and " & filtros
    Sql = "SELECT * FROM" & Rango_Datos
       
    rs.Open Sql, cn
    rs.Filter = Left(filtros, Len(filtros) - 4)
    Me.ListBox1.Clear
    Me.ListBox1.Column = rs.GetRows
    rs.Close
    If GUARDA_LIBRO = True Then
     rs.Open Sql, cn
     rs.Filter = Left(filtros, Len(filtros) - 4)
        Set NewBook = Workbooks.Add
        With NewBook
        .SaveAs Filename:="Export " & Format(Now, "dd-mm-yyyy  hhmm")
       
        With .Sheets(3)
                 
            For Each Field In rs.Fields
            I = I + 1
            .Cells(1, I) = Field.Name
            Next Field
            .Range(.Cells(2, 1), .Cells(Me.ListBox1.ListCount + 1, I)) = Application.Transpose(rs.GetRows)
        End With
       
        End With
    End If
    End Sub

    cuando ejecuto me dice "error de compilación :" no se ha definido el tipo definido por el usuario"

    a que se debe?

    le puse en amarillo lo que me sale sombreado en mi libro

    he copiado todo como esta en la hoja que desarrolaste

    1. AlexanderS

      AlexanderS

      @psycho99killer realiza la consulta en el tema que tenias y si puedes sube tu archivo, en este momento estoy en el trabajo por lo que no se si pueda verlo, pero tal vez algún otro de los expertos te pueda ayudar.

      Saludos.

       

       

    2. (See 6 other replies to this status update)

  8. Hola amigo , estaba pasando lo desarrollado por usted en mi libro de trabajo, pero sale error al ejecutarlo

    Public cn As ADODB.Connection, Rango_Datos As String-----------------lo puse en rojo lo que me sale sombreado
    Dim GUARDA_LIBRO As Boolean

    Private Sub TextBox1_Change(): filtrar: End Sub
    Private Sub TextBox2_Change(): filtrar: End Sub
    Private Sub TextBox3_Change(): filtrar: End Sub
    Private Sub TextBox4_Change(): filtrar: End Sub
    Private Sub CommandButton1_Click()
    GUARDA_LIBRO = True: filtrar
    Unload Me
    End Sub
    Private Sub CommandButton2_Click()
    Unload Me
    End Sub
    Private Sub filtrar(): On Error Resume Next
    Dim rs As ADODB.Recordset
    Dim rango As String
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    Base_Datos = ThisWorkbook.FullName
    Rango_Datos = "[" & [Tabla2].ListObject.Range.Address(0, 0) & "]"
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Base_Datos _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    filtros = ""
    If Not Me.TextBox1 = "" Then filtros = "CLIENTE LIKE '%" & Me.TextBox1 & "%'" & " and " & filtros
    If Not Me.TextBox2 = "" Then filtros = "FECHA= '" & Me.TextBox2 & "' and " & filtros
    If Not Me.TextBox3 = "" Then filtros = "ARTICULO= '" & Me.TextBox3 & "' and " & filtros
    If Not Me.TextBox4 = "" Then filtros = "OPERACIÓN= '" & Me.TextBox4 & "' and " & filtros
    Sql = "SELECT * FROM" & Rango_Datos
       
    rs.Open Sql, cn
    rs.Filter = Left(filtros, Len(filtros) - 4)
    Me.ListBox1.Clear
    Me.ListBox1.Column = rs.GetRows
    rs.Close
    If GUARDA_LIBRO = True Then
     rs.Open Sql, cn
     rs.Filter = Left(filtros, Len(filtros) - 4)
        Set NewBook = Workbooks.Add
        With NewBook
        .SaveAs Filename:="Export " & Format(Now, "dd-mm-yyyy  hhmm")
       
        With .Sheets(3)
                 
            For Each Field In rs.Fields
            I = I + 1
            .Cells(1, I) = Field.Name
            Next Field
            .Range(.Cells(2, 1), .Cells(Me.ListBox1.ListCount + 1, I)) = Application.Transpose(rs.GetRows)
        End With
       
        End With
    End If
    End Sub

    cuando ejecuto me dice "error de compilación :" no se ha definido el tipo definido por el usuario"

    a que se debe?

    le puse en amarillo lo que me sale sombreado en mi libro

    he copiado todo como esta en la hoja que desarrolaste

    1. AlexanderS

      AlexanderS

      @psycho99killer,debes tener activa la referencia Microsoft Activex Data Objects 6.1 Library

      Capture.JPG.3f8b46dedf9209aee21676cbcfb33ef6.JPG

      En la ventana de VBA -> Herramientas -> Referencias...

      Saludos

    2. (See 6 other replies to this status update)

  9. Buenas tardes Riddle,

     

    Mucho Gusto, 

    Soy nuevo en el foro solo quería que me ayudaras diciendo donde cambio el nombre del usuario en el chat de excel, que  por cierto esta muy bueno.

     

    Muchas Gracias

    1. AlexanderS

      AlexanderS

      Si esa es la versión antigua, te adjunto la nueva.

      En este enlace puedes ver las novedades 

       

      Chat Excel.rar

    2. (See 5 other replies to this status update)

  10. Buenas tardes Riddle,

     

    Mucho Gusto, 

    Soy nuevo en el foro solo quería que me ayudaras diciendo donde cambio el nombre del usuario en el chat de excel, que  por cierto esta muy bueno.

     

    Muchas Gracias

  11. Buenas tardes Riddle,

     

    Mucho Gusto, 

    Soy nuevo en el foro solo quería que me ayudaras diciendo donde cambio el nombre del usuario en el chat de excel, que  por cierto esta muy bueno.

     

    Muchas Gracias

    1. AlexanderS

      AlexanderS

      Hola, en la esquina superior izquierda del chat se encuentran las opciones para personalizar, el nombre lo cambias en "Nickname"

      Salu2

    2. (See 5 other replies to this status update)

×
×
  • Create New...

Important Information

Privacy Policy