Jump to content

RandalHP

Members
  • Content Count

    148
  • 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 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 parecer el código proporcionado esta copiando siempre el mismo rango, Tipo "Rango Absoluto". Si es posible poder seguir ayudandome con esto estare muy agradecido. Gracias!! Ss.
  2. No, no. Pertenece a la misma hoja de trabajo. Coloque el el Destination:=Worksheets("Sheet1") para no afectar otras hojas. Ss.
  3. 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.
  4. 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
  5. Entiendo. Esta bien *Si la celda "E6" varia. E7, E8... También aplicará la regla? Ss.
  6. 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.
  7. 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
  8. 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.
  9. Este es el resultado final: Tendré que agregar un "Upper" para solucionar el problema? Ss.
  10. 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.
  11. 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
  12. Si, no habría problema. El texto lo reconoce bien!
  13. "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.
  14. El formato de fecha que me has proporcionado es el que necesito, pero como lo puedo agregar en un proceso de PQ... Ss.
  15. @Gerson Pineda Doc. a los años. Mira lo que pasa es que estoy transformando una información (Un reporte) y una de las columnas que necesito transformar es de la fecha que te comente. Ahora, veo que ese formato personalizado me da el formato de fecha que estoy buscando (Como puedo hacer que el mes salga en mayúscula?). Habrá una manera de poder incluir este formato en un proceso de PQ... Agradecere tu ayuda! Ss.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png