Jump to content

RandalHP

Members
  • Content Count

    152
  • Joined

  • Last visited

About RandalHP

  • Rank
    Advanced Member

Converted

  • Campos
    ,

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Me pierdo en la parte de las listas... Creo que es demasiado para mi...😅 Tengo que seguir practicando. Si es el acabado final que estaba buscando. Muchas Gracias @Gerson Pineda
  2. Buen día, Estimados estaba trabajando un archivo en PQ y me tope con un impase. Transforme la información dentro de una tabla que previamente pegue de una página WEB paso a paso llegue al resultado final: Pero me gustaría que se completen los números faltantes de la lista, sin importar que al costado tenga datos o no (puede estar vacío o también puede tener el dato de arriba). Algo como esto: El tope máximo de números en la lista seria hasta el 31 (Correspondientes a los días de 1 mes, El ejemplo no esta completo porque uso el mes de Diciembre para realiza
  3. Quería expresar un formato de celda "Superscript" como fórmula. Para incluirla dentro de una fórmula que estoy creando para transformar un texto. Ejm: Sin fórmula: Rank 1 Con fórmula: Rank 1 Creo que al final esto no se puede lograr. Muchas gracias por la aclaración. Ss.
  4. Que tal, me podrían apoyar con la creación de una función para aplicar "Superscript" lo estoy intentando pero no me esta dando ningún resultado: Function SUPERSCRIPT(x As String) As String SUPERSCRIPT = Font.Superscript = True End Function No tengo mucho conocimiento de VBA. Por eso acudo a su ayuda. De antemano gracias y hasta luego... Ss.
  5. Me queda muy claro. Gracias! Creo que me explique mal (las disculpas de caso). No quería ampliar tanto este asunto. Solo necesitaba el código correcto para la operación que estoy necesitando ejecutar. (Que es algo que siempre hago de forma manual "Copy & Paste") por esto recurro a una macro de evento. Los codigos que me están proporcionando me estan sirviendo mucho, en especial el ultimo que mando @Gerson Pineda. Pero la solución final a mi proceso, es para cuando se escribe 2 en cualquier celda de la columna "E" en el rango "R:V" se copie de arriba para abajo. Al parece
  6. No, no. Pertenece a la misma hoja de trabajo. Coloque el el Destination:=Worksheets("Sheet1") para no afectar otras hojas. Ss.
  7. Al final llegué a esta conclusión: Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address(0, 0) = "E6" Then If .Value = 2 Then Range("R5:V5").Copy Destination:=Worksheets("Sheet1").Range("R6:V6") End With End Sub Que necesito cambiar o agregar para que cuando pase lo mismo en la E7 y subsiguientes pase lo mismo. (Siempre y cuando este campo sea 2) Ss.
  8. Estoy intentando, pero no sale algo estoy haciendo mal... Adjunto Excel con el código... Cuando escribo en E7 o E8 no pasa nada tampoco... Copiar_Texto_PrivateSub.xlsm
  9. Entiendo. Esta bien *Si la celda "E6" varia. E7, E8... También aplicará la regla? Ss.
  10. Me funciono, pero cuando quiero seleccionar un rango no funciona se elimina todo. Lo tengo de la siguiente manera: Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address(0, 0) = "E6" Then If .Value = 2 Then Range("R6:V6") = Range("R5:V6") End With End Sub Ahora, cuando es para todo un rango. Ejm: (E7, E8, E9, etc.) y copie sus respectivos campos como debería ir... Ss.
  11. Buenas tardes, Me podría ayudar a crear un "Private Sub" para copiar un rango de celdas según el criterio de otra. Ejm: Si la celda (E6 = 2) entonces los valores de la celda (R5 se copian a R6). Adjunto un archivo para poder efectuar el proceso. Gracias de antemano. Ss. Copiar_Texto_PrivateSub.xlsm
  12. La fórmula final quedó de esta manera: Text.Upper(Date.ToText([FECHA],"dd-MMM-yy","en-US")) y el resultado fue el deseado! Muchas gracias por tu apoyo!!! Ss.
  13. Este es el resultado final: Tendré que agregar un "Upper" para solucionar el problema? Ss.
  14. Listo, solucione el problema. Tenía que cambiar el formato de la columna antes de aplicar el nuevo formato. Pero he notado que sigue saliendo el mes en minúscula, no habrá manera de que se vuelva mayúscula. Ss.
  15. Buendia amigo, mira intente agregar la columna con la fórmula proporcionada, y me está dando error... Te adjunto el excel con la modificación. Ss. Formato-Fecha.xlsm
×
×
  • Create New...

Important Information

Privacy Policy