Saltar al contenido

Riddle

Moderadores
  • Contador de contenido

    1079
  • Unido

  • Última visita

  • Days Won

    39

Información de perfil

  • Sexo Hombre
  • Localización: Costa Rica

Configuraciones

  • Campo que utilizas como separador de argumentos ,

Visitantes recientes del perfil

1156 visitas de perfil
  1. Hola @baladamendi y @Antoni, adjunto mi aporte con la optimización del código, agregué los colores a las cabeceras desde las propiedades de cada control para no hacerlo en tiempo de ejecución. Saludos. MINIBOLIDOS_GENERAR_CARRERA_V04a.xlsm
  2. Generador de tablas Bingo de 2500 tablas

    Hola @zgrafico, si utilizas el buscador del foro veras muchos temas similares, encuentra alguno que se adapte a tus necesidades y si necesita alguna modificación puedes pedir ayuda. https://ayudaexcel.com/foro/search/?&q=Bingo&sortby=relevancy Saludos
  3. consulta SQl

    ¿Porque no creas el "View" en el SQL y después solo realizas un filtro a la tabla en el espacio de la fecha?, si creas una tabla dinámica con la conexión puedes colocar los filtros que quieras. Tal vez si te explicas mejor, como quieres que se muestren tus datos en el excel.? Saludos.
  4. consulta SQl

    Hola @Antonio_Sanchez, imaginando que ya tienes el código necesario para realizar la consulta en VBA, puedes utilizar un inputbox para que te pregunte por la fecha: Dim fecha As String fecha = InputBox("Ingrese la fecha") If fecha = "" Then Exit Sub Sql = "SELECT A.MiddleName as 'ID_Empleado',A.FirstName AS 'Nombre', A.LastName AS 'Apellido'," & _ "CONVERT(VARCHAR(15), MIN(left(A.TimeStamp_Server,12))) Fecha_Entrada_Inico," & _ "CONVERT(VARCHAR(10), MIN(RIGHT(A.TimeStamp_Server, 7))) Hora_Entrada_Inico," & _ "CONVERT(VARCHAR(15), MAX(Left(A.TimeStamp_Server,12))) Fecha_Salida," & _ "CONVERT(VARCHAR(10), MAX(RIGHT(A.TimeStamp_Server, 7))) Hora_Salida" & _ "FROM [Message] A" & _ "WHERE A.Description = 'Oficinas 1' And Fecha =#" & fecha & "# " & _ "GROUP BY A.FirstName,A.LastName,A.MiddleName" & _ "ORDER BY A.MiddleName,A.FirstName,A.LastName;" Comentas, Saludos.
  5. Hola

    Hola @breda, bienvenida al foro !!! Saludos
  6. Hola a todos

    Bienvenido de nuevo al foro @pacocp53!!! Saludos
  7. Problema Commandbar

    Hola @jaime ll pp, solo te falta hacerla visible : "barra.Visible = True" Sub Modificarbarra() Dim barra As CommandBar Dim boton As Object Set barra = Application.CommandBars.Add(trabajo, msoBarTop, False, True) Set boton = barra.Controls.Add(msoControlButton, , , , True) With boton .Caption = "Update information" .OnAction = "Suma" .BeginGroup = True .Style = msoButtonIconAndCaption .FaceId = 540 End With Set boton = barra.Controls.Add(msoControlButton, , , , True) With boton .Caption = "Search on internet" .OnAction = "Resta" .BeginGroup = True .Style = msoButtonIconAndCaption .FaceId = 540 End With barra.Visible = True End Sub Comentas, saludos.
  8. Hola a todos, adjunto otra propuesta. Saludos. ejemplo prueba.xls
  9. boton a 365 dias

    Hola @juanmanuel85 y @Mauricio_ODN, propongo otra opción, solo click derecho sobre la fecha en la columna "D" y seleccionas la opción para restar o sumar los 365 días. Saludos. BOTON365 (1).xlsm
  10. Hola

    Hola Jose, bienvenido al foro!! Saludos.
  11. FORMULARIO MENU (MDI) EXCEL

    Hola @Felipe Torres, solo puedes adjuntar archivos no mayores a 100kb, tambien puedes optar por subirlo a un servidor externo como Drive, Mega, etc. Saludos.
  12. En ese caso si los expedientes siempre serán números de 18 caracteres, podemos omitir el "Like" y utilizar la función "Len" en su lugar : Sub transponer(): On Error Resume Next Dim var() As Variant Dim rango As Range Set rango = Range("A1", [A1].End(xlDown)) ReDim var(rango.Rows.Count, rango.Rows.Count) For Each cel In rango If Len(cel) = 18 And IsNumeric(cel) Then x = (x + 1): y = 0 var(x - 1, y) = cel: y = y + 1 Next Range("D1").Resize(UBound(var, 1), UBound(var, 2)) = var End Sub Saludos
  13. ¿Excel se puede utilizar como una base de datos?. Respuesta: Si ¿Es recomendable utilizar excel como base de datos?. Respuesta: No Siento la simpleza de mi respuesta pero les agradezco que no se desvíen del tema principal de la consulta Transponer una columna a varias filas y columnas. Saludos a todos.
  14. gracias pero paso... En cuanto al código, este lo realice conforme al ejemplo que adjuntaste, si tienes algún problema a la hora de adaptarlo puedes subir un ejemplo no tienen que ser datos reales, solo necesito una referencia. Saludos
  15. Hola a todos, yo voy a dejar una macro, solo presionas el botón azul. Salud 84234.xlsm
×