Jump to content

avalencia

Moderators
  • Posts

    1,414
  • Joined

  • Last visited

  • Days Won

    86

Everything posted by avalencia

  1. Humm, al menos yo no te entiendo, no sé si alguien sí pudo hacerlo. Quizás si poner 4 o 5 ejemplo "a mano", explicación incluida, podamos entender.
  2. ¿Qué es para ti un número de gran alcance? No se entiende. Si no das detalles, es casi imposible ayudarte.
  3. Hola, copio y pego el mensaje dejado en otro foro a la misma pregunta: Hola amigosLa UDF mostrada por @yimycolin no funciona para colores de trama/fondo de celdas obtenidos a través de Formato Condicional.Contar y/o sumar valores de acuerdo al Formato Condicional usado en la celdas es complicado ya que no hay que olvidar que dicho tipo de herramienta usa más de una decena de tipos de regla y hacer una UDF (o alguna rutina) que detecte cuál de ellos se usa y se puede aplicar lo necesario para sumar/contar, dependiendo del detectado (en el supuesto que se programe bien todos), pues realmente es demasiada labor para el objetivo que se logrará. En realidad el ideal es contar/sumar basado en la misma condición que se usa para aplicar dicho tipo de formatos.Eso. Saludos.
  4. Hola No queda totalmente claro tu dilema, sobre todo porque no vemos tu archivo ni se entiende realmente como intentas cambiar el tamaño ¿Has modificado ese tamaño en tiempo de edición o cómo? Ah, no olvides que el tamaño de un Userform no se modifica solo, siempre es el mismo así cambies de monitor y evidentemente en algunos parecerá más pequeño o más grande. Puedes intentar algo así: Private Sub UserForm_Initialize() With Me .StartUpPosition = 1 .Width = Application.Width * 0.85 .Height = Application.Height * 0.85 .Left = Application.Left + (Application.Width * 0.85) \ 2 .Top = Application.Top + (Application.Height * 0.85) \ 2 End With End Sub Claro que tendrías que hacer algo así que cambie el tamaño de los controles también. Saludos.
  5. Hola Hasta donde recuerdo, en la secuencia de eventos siempre el Load del Ribbon se ejecuta después del Open del libro y eso no se puede cambiar; es más, responde a una lógica de programación relacionada a la necesidad de que, en ocasiones, se le mande valores al Ribbon, por ejemplo.
  6. Hola Cuando dices "la nube" no especificas que base de datos quisiste usar ¿Un archivo Excel en OneDrive? ¿Una Hoja de Cálculo de Google en Google Drive? ¿Quizás realmente un sistema gestor de base de datos como MySQSL? Comenta para poder ayudarte. La ¿dirección web? que colocas ahí no da mucha ayuda.
  7. Hola Si mal no te entendí, ya no quieres los totales en la fila 3, sino al final como comentas, entonces, por ejemplo en tu botón "Genera reporte" (CommandButton2), después del For, específicamente después del Next I, coloca así: Range("P" & fila) = Application.WorksheetFunction.Sum(Range("P6:P" & fila - 1)) Haz lo mismo para las otras columnas, ese es el ejemplo con una (la P) Comentas
  8. Hola Coloca la propiedad ShowModal de ambos Userform en False. Luego esta parte déjala solo así: Private Sub BtnAfegirHora_Click() With UserForm1 .InkEdit1.SelBold = True .InkEdit1.SelText = TextBoxNovaHora.Text & " horas. " .InkEdit1.SelBold = False .InkEdit1.SelText = " " .InkEdit1.SetFocus End With Unload Me End Sub Saludos
  9. Hola No he visto tu archivo, pero basado en lo que escribes sugiero ver el siguiente enlace: https://jldexcelsp.blogspot.com/2006/09/base-de-datos-de-imgenes-en-excel.html A pesar de que es antiguo, sigue siendo válidos. Saludos.
  10. Hola, creo que la página ideal para ver eso, es la de Microsoft jejeje. Yo tengo Microsoft 365 Personal que incluye Access y si bien no puedes cambiar el Skype por el Teams, bien podrías usar el Teams gratuito y listo, tendrías todo tal cual deseas. Cuesta 5.5 US$ al mes (aprox).
  11. Hola, como ya te adelantó Antoni, es solo cuestión de Driver. Prueba con: https://www.microsoft.com/es-ES/download/details.aspx?id=54920 Saludos
  12. Hola nuevamente ¿Recuerdas el tema con los formatos de fecha, VBA y Access? Ojo a eso. Por ejemplo, para ti, de los seis últimos registros de tus datos ¿Qué día de semana corresponde a cada uno? Y ojo, supón que están aún en Access. Saludos
  13. Hola, si no vas de frente a los código y lees completos los dos artículos, verás que en el primero explico con detalle que tipo de driver elegir dependiendo de tu sistema operativo y Office (32 o 64 bits para ambos casos). Sobre el driver puntual, además de haber muchos en internet, en las macros se ve cuál uso para los ejemplos. Saludos.
  14. Hola Adjunta el Excel y al menos una parte de los datos, de lo contario es imposible ayudarte.
  15. Hola Sugiero adjuntes al menos parte del txt y un Excel que tenga: Una muestra de lo que dices está mal, otra hoja con cómo quisieras que quede en realidad y no olvidar las macros que intentaste. A al espera.
  16. Como ya todos sabemos, la API de WhatsApp no permite una interacción tal que con neta programación se pueda hacer algo como lo que planteas, por lo que necesariamente tienes que seguir usando las pulsaciones, es decir, SendKeys ¿Qué hacer? Como ya conoces su uso, solo reapasa en tu WhatsApp Web los paso, "imítalos" con las pulsaciones y en el momento que usas la caja de dialogo para adjuntar, lo que haces es pegar ahí la ruta de tu archivo (que se supone sabes donde está y por ende puedes obtener dicha ruta). Ejemplo:
  17. Hola La velocidad de impresión no tiene relación con las macros, por lo que no hay forma desde VBA que aceleres ese proceso. Sobre eso que mencionas de enviar un solo trabajo, no se entiende ya que si tienes un For, es obvio que vas a enviar varios ¿O quisiste decir otra cosa?
  18. Mira estos enlaces: https://abrahamexcel.blogspot.com/2019/02/excel-y-mysql.html https://abrahamexcel.blogspot.com/2019/04/excel-y-mysql-2.html
  19. Hola Dale una leída a la propiedad ConnectionTimeout de ADO, prueba y vuelve a comentar si es lo que necesitas o no. Saludos.
  20. Re: Pegar color del formato condicional Hola. Tengo esto que fue desarrollado por Hecto MIguel hace unos años. No olviden darla a la variable "Base" el rango correspondiente, y en la linea comentada, colocar el tipo de "formato condicional" utilizado (ahi hay uno, en el comentario hay otro, por ejemplo). La macro copiar/pegara el color de fondo en otra celda Sub Congela_Grado_Color_FC() Application.ScreenUpdating = False Dim Base As String Dim RangoFC As String, Men As Single, Med As Single, May As Single Dim n As Byte, R(2) As Byte, G(2) As Byte, B(2) As Byte Dim Celda As Range, Pos1 As Byte, Pos2 As Byte, Fx1 As Single, Fx2 As Single Dim newR As Byte, newG As Byte, newB As Byte Base = "A2" RangoFC = Range(Base).FormatConditions(1).AppliesTo.Address Men = Application.Min(Range(RangoFC)) Med = Application.Percentile(Range(RangoFC), 0.5) May = Application.Max(Range(RangoFC)) For x = 1 To 3 With Range(Base).FormatConditions(1).Interior 'ColorScaleCriteria(x).FormatColor R(x - 1) = .Color Mod 256 G(x - 1) = (.Color Mod 256 ^ 2) \ 256 B(x - 1) = .Color \ 256 ^ 2 End With Next For Each Celda In Range(RangoFC) Pos1 = 2 - (Celda = May) + (Celda = Men) Pos2 = Pos1 - (Celda > Med) + (Celda < Med) + (Pos1 = 3) - (Pos1 = 1) Fx1 = Celda / Application.Index(Array(Men, Med, May), Pos1) If Fx1 > 1 Then Fx1 = 1 - Evaluate("mod(" & Fx1 & ", 1)") Fx2 = 1 - Fx1 newR = (R(Pos1 - 1) * Fx1) + (R(Pos2 - 1) * Fx2) newG = (G(Pos1 - 1) * Fx1) + (G(Pos2 - 1) * Fx2) newB = (B(Pos1 - 1) * Fx1) + (B(Pos2 - 1) * Fx2) Celda.Offset(, 3).Interior.Color = RGB(newR, newG, newB) Next End Sub Abraham
  21. Hola: Para colocar la posicion en horizontal: ActiveSheet.PageSetup.Orientation = xlLandscape En vertical: ActiveSheet.PageSetup.Orientation = xlPortrait Para que esta se defina a traves de lo escrito en una celda, podrias usar un IF: If Range("B7")= "Reporte de entrada" Then Comentas Abraham
  22. Hola. Si tienes alguna version de Acrobat Reader o Professional en tu PC, junto a dicho programa se debe haber agregado el control "Adobe PDF Reader" (AcroPDF). En tu Userform, dale un click derecho al "cuadro de herramientas", ahi agrega el control por el cual preguntas. Dicho control te permitira ver/leer archivo pdf. Agrega el siguiente codigo: Private Sub UserForm_Initialize() Me.AcroPDF1.LoadFile "D:\78450106.pdf" Me.AcroPDF1.setShowScrollbars (True) End Sub No olvides cambiar a la ruta adecuada y expandir el control a un tamaño adecuado Comentas
  23. Pues realmente felicidades a todos y todas, realmente es un orgullo el nombramiento y una alegria participar de un lugar asi Abraham
  24. Re: Felices Fiestas, a todas las personas de buena voluntad Felices fiestas a todos y todas Abraham
×
×
  • Create New...

Important Information

Privacy Policy