Jump to content

RandalHP

Members
  • Content Count

    150
  • 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. 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.
  2. 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.
  3. 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
  4. No, no. Pertenece a la misma hoja de trabajo. Coloque el el Destination:=Worksheets("Sheet1") para no afectar otras hojas. Ss.
  5. 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.
  6. 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
  7. Entiendo. Esta bien *Si la celda "E6" varia. E7, E8... También aplicará la regla? Ss.
  8. 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.
  9. 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
  10. 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.
  11. Este es el resultado final: Tendré que agregar un "Upper" para solucionar el problema? Ss.
  12. 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.
  13. 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
  14. Si, no habría problema. El texto lo reconoce bien!
  15. "enmascarar" te refieres a transformar esa columna en el formato deseado. El objetivo es llegar a ese formato de fecha en el reporte, ya que, este se procesa en un sistema que solo acepta el formato de fecha que menciono, y no el "standar" que todos conocemos. Intente cambiarlo modificando esa columna pero no llegó al formato deseado. Utilice (Separar, modificar, reemplazar, unir, etc.) Ss.
×
×
  • Create New...

Important Information

Privacy Policy