Jump to content

RandalHP

Members
  • Content Count

    148
  • Joined

  • Last visited


Reputation Activity

  1. Haha
    RandalHP got a reaction from Leopoldo Blancas in (Private Sub) Copiar celdas según criterio   
    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. Thanks
    RandalHP reacted to Gerson Pineda in (Private Sub) Copiar celdas según criterio   
    RandalHp
    Algo así como por arte de magia  ... para recibir ese "código", el consultante también necesita tener cierto conocimiento y demasiada explicación 
    Los usuarios como tu ya deberían de modificar algo con los aportes recibidos... yo por eso solicito un antes y un después, para no estar explicando tanto, tu eres el que debe esforzarte por ser mas que explicito con archivo adjunto, si no pues mi colaboración se queda aquí 
     
    Saludos!
  3. Like
    RandalHP reacted to Gerson Pineda in (Private Sub) Copiar celdas según criterio   
    No es necesario hacer eso [Destination:=Worksheets("Sheet1")], pues el evento [Private Sub Worksheet_Change] es para la hoja activa [agregar que también hay eventos del mismo tipo, para todo el libro]
    Como notaras a efecto de programación o automatización en Excel, no es lo mismo operar con una celda que un rango, y te costara mucho mas si no te queda claro el uso de macros de evento
    Te hago ver todo esto, por que la idea es que también puedas colaborar con la comunidad
    Y ya que has ampliado el uso que buscas, te adjunto mi versión para copiar ese rango sin importar en que celda escribes 2
     
    Saludos a ambos!
    Copiar rango segun valor en celda VBA_GP.rar
  4. Thanks
    RandalHP reacted to Jose BN in (Private Sub) Copiar celdas según criterio   
    A ver si te parece:
     
    Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrHandler If Intersect(Target, Me.Range("e6:e10")) Is Nothing Or Target = "" Then Exit Sub Application.EnableEvents = False If Target = 2 Then Target.Offset(0, 13) = "LIM" Target.Offset(0, 14) = "AMS" Target.Offset(0, 15) = "CDG" Target.Offset(0, 16) = "AMS" Target.Offset(0, 17) = "LIM" Else End If ErrHandler: Application.EnableEvents = True End Sub Un buen consejo que me dieron hace poco tiempo, una gran primo que adquirí por estos lados: Gerson Pineda
    porque el problema de este evento, es que incluso te puedo pegar el Excel. Si tienes mas dudas respecto al código pues solo avisa y con gusto te colaboro https://ayudaexcel.com/foro/topic/42515-worksheet_change-que-obligue-a-corregir-el-valor-en-una-celda/?do=findComment&comment=239917
  5. Haha
    RandalHP got a reaction from Leopoldo Blancas in (Private Sub) Copiar celdas según criterio   
    Entiendo.
    Esta bien
    *Si la celda "E6" varia. E7, E8... También aplicará la regla?
    Ss. 
  6. Thanks
    RandalHP reacted to Gerson Pineda in (Private Sub) Copiar celdas según criterio   
    Asi: 
    Range("R6:V6") = Range("R5:V5").Value Comienza a leer mucho sobre lo mas básico de VBA
     
    Saludos 
  7. Like
    RandalHP reacted to Gerson Pineda in (Private Sub) Copiar celdas según criterio   
    Hola Randal
    ¿Es en serio?, ya debes pensar que a esta altura debes proponerte a resolver algunos "problemas" no complejos
    Prueba con esta macro de evento y nos comentas
    Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address(0, 0) = "E6" Then If .Value = 2 Then Range("R6") = Range("R5") End With End Sub  
    Saludos 
  8. Thanks
    RandalHP reacted to Gerson Pineda in Cambiar formato de fecha con PQ   
    Me gusta, porque por lo menos no te quedaste esperando toda la solución
     
    Saludos
  9. Thanks
    RandalHP reacted to Gerson Pineda in Cambiar formato de fecha con PQ   
    Randal
    Eso sucede porque la fecha tiene tipo datetime, pero debe estar como date, con la siguiente modificación, no importa el tipo de fecha que tenga esa columna, mira:
    Date.ToText(Date.From([FECHA]),"dd-MMM-yy","en-US"))  
    Saludos 
  10. Like
    RandalHP reacted to Gerson Pineda in Cambiar formato de fecha con PQ   
    Si es necesario, claro que debes pasarlo a mayúscula
     
    Saludos 
  11. Thanks
    RandalHP reacted to Gerson Pineda in Cambiar formato de fecha con PQ   
    Agrega una columna personalizada y prueba asi: 
    Date.ToText([FECHA],"dd-MMM-yy","en-US")  
    Saludos 
  12. Like
    RandalHP reacted to Gerson Pineda in Cambiar formato de fecha con PQ   
    Randalhp
    Puedes usar formato personalizado desde el mismo Excel, estoy entendiendo que necesitas fecha valida
    [$-en-US]dd-mmm-yy;@  
    Saludos 
  13. Thanks
    RandalHP reacted to Manuel_Mendoza in Fórmula Text (PQ)   
    Que tal Randal.
    Lo que buscas es la funcion Text.PadStart() .

    Esta función repite los caracteres introducidos en el tercer parametro la cantidad de veces especificada en su parametro cuenta.
    Saludos!
  14. Like
    RandalHP reacted to Gerson Pineda in Import / Export (Power Query)   
    Pero desde luego que si
     
    Saludos 
  15. Thanks
    RandalHP reacted to Gerson Pineda in Import / Export (Power Query)   
    Varias preguntas:
    ¿Tus libros no contienen tablas? / ¿Tus libros siempre van a tener múltiples hojas?
     
    Al momento de cargar un libro con múltiples hojas, te va solicitar que selecciones una de ella, entonces PQ crea automáticamente 3 pasos mas... aquí viene un truco: 
    Elimina esos pasos de modo que solo quede el de "Source" Luego filtra en "Name" por la hoja que deseas Lo dejo hasta aquí y dime si lo haz entendido, para seguir explicándote
     
    Saludos 
  16. Thanks
    RandalHP reacted to Gerson Pineda in Import / Export (Power Query)   
    Copia esto en tu consulta y modifica la ruta
    let Origen = Excel.Workbook(File.Contents("aqui la ruta completa del libro"), null, true), #"Otras columnas quitadas" = Table.SelectColumns(Origen,{"Data"}), #"Se expandió Data" = Table.ExpandTableColumn(#"Otras columnas quitadas", "Data", {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9", "Column10", "Column11", "Column12", "Column13", "Column14", "Column15", "Column16", "Column17", "Column18", "Column19", "Column20"}, {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9", "Column10", "Column11", "Column12", "Column13", "Column14", "Column15", "Column16", "Column17", "Column18", "Column19", "Column20"}), #"Filas superiores quitadas" = Table.Skip(#"Se expandió Data",4), #"Encabezados promovidos" = Table.PromoteHeaders(#"Filas superiores quitadas", [PromoteAllScalars=true]), #"Tipo cambiado" = Table.TransformColumnTypes(#"Encabezados promovidos",{{"P", type text}, {"DOC", type text}, {"DOCUMENT", type text}, {"GUIA", type text}, {"EMISION", type date}, {"RAZON SOCIAL", type text}, {"I", type text}, {"IDENTIDAD", type text}, {"IMPONIBLE", type number}, {"INAFECTO", Int64.Type}, {"Column11", type number}, {"TOTAL", Int64.Type}, {"Column13", type text}, {"OPERACION", Int64.Type}, {"PAGO", type date}, {"Column16", type text}, {"SOLES", type number}, {"DOLARES", type number}, {"CAMBIO", type number}, {" ", type any}}) in #"Tipo cambiado" La clave esta en el segundo paso, lo que hago es ignorar el nombre de la hoja, para obtener los datos de toda la hoja 
     
    Saludos 
  17. Thanks
    RandalHP reacted to Gerson Pineda in Import / Export (Power Query)   
    Lo que quise decirte, es que reemplaces tus códigos en la consulta que tu tienes en ese libro, te vas al editor avanzado de Power Query y reemplazas todo por el que te envié, luego sigues con tus transformaciones siguientes
     
    Saludos 
  18. Thanks
    RandalHP reacted to GabrielRaigosa in Fórmula "FIND" para 2 criterios   
    La copia en su libro y la arrastra.
    Ver ejemplos en el adjunto.
    Saludos
    FIND.xlsx
  19. Confused
    RandalHP reacted to Gerson Pineda in Pasar fórmula a valor cuando hay filtro   
    Hola
    ¿Porque abandonaste este tema? donde recibiste colaboración 
     
  20. Confused
    RandalHP reacted to GabrielRaigosa in Fórmula "FIND" para 2 criterios   
    Otra opción que extrae "solo números" de una cadena de caracteres, no importa la posición ni la longitud de la cadena de números a extraer, sean 3 o sean 6.
    =-BUSCAR(,-EXTRAE(A2,MIN(HALLAR({0;1;2;3;4;5;6;7;8;9},A2&1/17)),FILA($1:$254)))
    Saludos
  21. Like
    RandalHP reacted to GabrielRaigosa in Fórmula "FIND" para 2 criterios   
    Otra mas:
    =EXTRAE(A2,SI.ERROR(HALLAR("TKT",A2),HALLAR("EMD",A2))+4,3)
    Al final  3) para obtener exclusivamente 3 caracteres
    Al final 6) para obtener 6, o pone el numero que necesite.
    Saludos.
  22. Haha
    RandalHP reacted to Leopoldo Blancas in Fórmula "FIND" para 2 criterios   
    Espero que sea lo deseado...
    Saludos y Comentas.
    Encontrar_2Criterios_LBV.xlsx
  23. Thanks
    RandalHP reacted to johnmpl in Fórmula "FIND" para 2 criterios   
    ¡Hola, a todos!
    Dejo dos opciones más... ¡bendiciones!
    FIND.xlsx
  24. Confused
    RandalHP reacted to Gerson Pineda in Fórmula "FIND" para 2 criterios   
    Hola a todos
    También puedes usar una de las clásicas [mi separador es la coma ","]
    =ESPACIOS(DERECHA(SUSTITUIR(A2," ",REPETIR(" ",90)),90))  
    Saludos
  25. Thanks
    RandalHP reacted to Gerson Pineda in Fórmula para conteo de pendientes   
    Hola
    ¿Que es lo que modificas, el rango? si es no, entonces es posible que tengas el calculo de Excel en "Manual"
    ¿Pero porque no adjuntaste el archivo?
     
    Saludos 
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png