Jump to content

Maria_80

Members
  • Posts

    176
  • Joined

  • Last visited

  • Country

    Spain

Everything posted by Maria_80

  1. Hola, Antoni. Tienes razón, no se puede. Aunque conseguí resolverlo partiendo de este ejemplo que encontré, por si le sirve a alguien (hay uno con macro y otro si ella): https://andypope.info/charts/conditionalline2.htm https://andypope.info/charts/conditionalline.htm Gracias!
  2. Hola, Quería preguntaros si existe alguna macro para poder poner un condicional en un gráfico de líneas al que he añadido una línea de tendencia. Quiero añadir alguna condición para que cuando supere los 100 me cambie de color ese punto o aparezca alguna nota, pero no encuentro nada. Os adjunto un ejemplo. Alguna idea? Se puede hacer algo así? Pregunto cómo hacerlo con macros porque no he encontrado en ningún sitio el modo de hacerlo con las funciones de excel. gracias! ejemplo_línea_tendencia.xlsx
  3. Hola, Estoy intentando crear una macro que me comprueba si existen registros en blanco en una columna que se encuentra en dos hojas distintas. Y si es así, que me cree una tercera hoja (la idea es pegar ahí los datos que faltan, después). Si lo hago con un For - Next para comprobar registro por registro me crea tantas hojas como blancos encuentra (no he sabido cómo meterle la creación de la hoja fuera del bucle). Así que lo he intentando seleccionando la columna por rango pero no funciona. Podéis echarle un vistazo? Gracias de antemano! ejemplo_blancos.xlsm
  4. Hola, os paso la solución, di con ella cacharreando un poco: If Archivo.Name Like "*MIPALABRA*" Then ....
  5. Hola, Me echáis un cable con esta sentencia? Estoy intentando cambiarla, la uso para consolidar los archivos con extensión .xls que hay en un directorio: If LCase(Right(Archivo.Name, 4)) = ".xls" Then ... Estoy intentando cambiar la misma frase, para que la condición no sea por extensión y sea si el nombre del archivo contiene una palabra determinada. He intentando con esto, pero sin éxito todavía: If IsNumeric(InStr(Archivo.Name, 50)) = "*MIPALABRA*" Then ¿alguna idea? gracias!
  6. Hola, normalmente activo o desactivo la opción "ajustar texto" manualmente, vía Menú Inicio, o con botón de la derecha, formato de celdas, alineación>ajustar texto. He intentado con la combinación de teclas Alt+H+W para llevármelo luego a una macro pero no me funciona y por lo que he estado buscando no hay mucha información sobre esto. Existe algún código o función para poder desactivar esta opción vía VBA? Gracias!
  7. Sí. He podido solucionarlo con la ayuda de @Gerson Pineda
  8. Hola, Gerson. Me han servido todas las soluciones que me has dado. Aunque a VBA me voy a llevar la última ( _xlfn.XLOOKUP) con la fórmula, es la que mejor he podido adaptar a lo mío y va de lujo. Mil gracias!
  9. Hola, Os adjunto un ejemplo con dos hojas. Una llamada matriz y otra que he llamado Buscar. En Buscar tengo una tabla de 4 columnas, intenté hacer la fórmula de INDICE y coincidir sobre la hoja MATRIZ para llevármelo luego a VBA con FORMULAR1C1 pero algo está fallando. La coincidencia sería por altura, edad y sexo. Pero me devuelve error. Podía alguien echarle un vistazo? Gracias de antemano. ejemplo_IC.xlsx
  10. Fenomenal, Antoni! Funcionó, como siempre. He metido el código dentro del evento Workbook_open y va perfecto. Graciass!
  11. Hola, Antoni. Necesito reabrir este hilo, porque me he encontrado con una problemática con la que no contaba. Como la solución me la diste tú y al final ha sido lo que funciona, quiero consultarte si esto es posible. Tenemos en una ruta un fichero que se llama "Plantilla_Base", al abrirlo, automáticamente hace un Save As con la fecha actual y ya trabajas directamente desde ahí. De modo que si ese mismo día abres de nuevo Plantilla_Base se queda tal cual está y puedes hacer modificaciones, etc. Ya existe el del día actual. Me he encontrado con el siguiente problema. Hoy he abierto el fichero de ayer para revisarlo, es decir Plantilla_Base_17052021, y al abrirlo lo que sucede es que hace un Save As y le pone la fecha de hoy. He estado dándole vueltas y no encuentro solución. ¿Alguna idea? Gracias!
  12. Hola, Antoni. Efectivamente, era eso. La parte de Data Valor. Mil gracias también por la parte de recuperar fórmula, me ha servido para entenderlo y adaptarlo a lo mío. Un saludo!
  13. Hola, Os adjunto un fichero con 4 columnas, en la cuarta, tengo la fórmula SI.ERROR junto con MAX jugando con los datos de las 3 primeras columnas. No consigo llevarme esa misma fórmula a VBA. Me confundo a la hora de añadirle el Max. No termino de encontrar la estructura en VBA. Podéis echarle un vistazo? Mil gracias! Ej_SI.Error.xlsm
  14. muchísimas gracias! funciona perfecto y lo he probado adaptándolo a lo mío y también va bien. ;). Gracias!
  15. Hola, Hice una macro para buscar una cadena de texto dentro de otra y, aunque, no me da ningún error, no funciona y me dice que no encuentra nada. Os adjunto el ejemplo. En la Hoja UNO, columna A hay una cadena de texto y busco si existe en Hoja DOS columna A, si es así rescata de Hoja DOS la columna C y la pega en columna B de hoja UNO. He puesto una tercera hoja con el resultado. En el fichero está la macro por si alguien le puede pegar una vuelta. Mil gracias de antemano. ejemplo_pequeño.xlsm
  16. Muchísimas gracias, Antoni. Funciona perfecto! Como siempre!
  17. Claro! Me refiero a que si hago la llamada a la ruta con la variable dir(nbrecopia), no funciona. Si hago dir("rutacompelta\fichero.xlsm") funciona. Te adjunto el ejemplo! Algo se me escapa! Mil millones de gracias! Dir(nbrecopia) ejemplo.xlsm
  18. Hola, Antoni. He probado con esto también y no funciona... no sé qué sucede. Me sale igual la ventanita típica de excel avisando de que ya existe un libro con ese nombre y que si deseo reemplazarlo. Piensa que es una call que tengo a esa macro para que al abrir el libro, con un SaveAs automáticamente se guarde con la fecha actual, salgo, guardo. Pero si en el mismo día vuelvo a abrir, no reconoce que ese fichero existe. solo me funciona si le pongo en la comprobación dentro de Dir la ruta completa con el nombre del fichero tal cual está y la extensión. No sé qué puede ser...
  19. He continuado la macro añadiendo esto, pero sigue sin hacer nada. Si el fichero existe, te dice que ya existe un fichero en la ruta con ese nombre, la idea es que si existe no haga nada y se salga, y si no existe lo cree. Esa parte sí funciona. Sub guarda() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") Dim rutacopia As String, nbrecopia As String rutacopia = “mi ruta” nbrecopia = "miarchivo" & Chr(32) & "-" & Chr(32) & Format(Now, "ddmmyyyy") If Not FSO.Fileexists(nbrecopia) = True Then ActiveWorkbook.SaveAs rutacopia & nbrecopia Else If Not FSO.Fileexists(nbrecopia) = False Then Exit Sub End If End if End Sub
  20. hola, he creado con este pequeño código una macro que me crea una copia de mi fichero actual con la fecha del día. No sé cómo indicarle anteriormente que compruebe si existe en la ruta para que no haga nada. He visto ejemplos para comprobar con un nombre en concreto, pero no encuentro nada para que añada la fecha de hoy. Muchas gracias! Sub guarda() Dim rutacopia As String, nbrecopia As String rutacopia = \\Miruta\" nbrecopia = "mifichero" & Chr(32) & "-" & Chr(32) & Format(Now, "ddmmyyyy") ActiveWorkbook.SaveAs rutacopia & nbrecopia End Sub
  21. Mil gracias, Antoni! No sabía exactamente dónde añadir esa instrucción! Sl2!
  22. Mil gracias, Antoni. Como siempre. Voy a desarrollarlo todo sobre la segunda, porque no siempre viene separado por | Estoy intentando añadir que si no encuentra nada no deje la celda en blanco, ponga algo así como: "SIN DATOS" Sería aquí? If Not HALLA Is Nothing Then .Range("C" & x) = HALLA.Offset(0, 1) Gracias!
  23. Hola, Estoy intentando buscar el modo de llevarme a VBA la fórmula HALLAR. Lo que me sucede es que no es buscar una palabra en una celda, es buscar una palabra dentro de una cadena de texto en una celda y que la busque en otra hoja. En el ejemplo que os adjunto en la primera hoja (INICIO) hay tres columnas: ORDEN, CONCEPTO Y HALLA. Lo que necesito es que si alguna de las palabras que hay dentro de la cadena de texto de la celda CONCEPTO se encuentra en la primera columna de la hoja 2 (HALLAR), me devuelva la segunda columna de la hoja 2 y lo devuelva en hoja INICIO halla. Creo que no me explicado muy bien, pero al abrir el ejemplo se puede ver. ¿Alguna idea? Gracias de antemano. ej_hallar.xlsm
×
×
  • Create New...

Important Information

Privacy Policy