Jump to content

Maria_80

Members
  • Content Count

    128
  • Joined

  • Last visited

About Maria_80

  • Rank
    Advanced Member

Recent Profile Visitors

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

  1. Hola, ¿puede alguien revisar esta macro? Sería este código, ahora mismo lo tengo en verde para que no salte. Quiero que una vez que introduzca datos en la celda B1, si la longitud es diferente a 10 caracteres me avise. Le pongo que haga esta comprobación cuando la celda no esté vacía. Algo así como después de actualizarla. El problema es que al hacer una prueba, me salta el msgbox igual en plan bucle infinito… no sé cómo solucionarlo. Gracias! Private Sub Worksheet_Change(ByVal Target As Range) 'celda = "B1" 'If Not IsEmpty(celda) And Len(celda) <> 10 Then 'MsgBox ("Revisar
  2. 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!
  3. 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
  4. 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
  5. Hola, os paso la solución, di con ella cacharreando un poco: If Archivo.Name Like "*MIPALABRA*" Then ....
  6. 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!
  7. 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!
  8. Sí. He podido solucionarlo con la ayuda de @Gerson Pineda
  9. 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!
  10. 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
  11. Fenomenal, Antoni! Funcionó, como siempre. He metido el código dentro del evento Workbook_open y va perfecto. Graciass!
  12. 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 abier
  13. 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!
×
×
  • Create New...

Important Information

Privacy Policy