Jump to content

andres palacios

Members
  • Content Count

    14
  • Joined

  • Last visited

  • Country

    Spain

Everything posted by andres palacios

  1. Buenas @bigpetroman. La solución que propones es Excelente! Muchas gracias, ya que es una programación que desconocía, y que me resulta muy interesante. Sólo una pregunta más, la macro extrae los datos de " angulos de aluminio". ¿Donde tendría que tocar la macro para que a parte del aluminio nos extraiga los demás materiales (cooper, brass...) y las demás formas? Sería realmente fantastico si eso se pudiera conseguir! Un abrazo
  2. Buenos días compañeros, Me enfrento a un problema complejo con VBA, el cual estoy intentando resolver pero no consigo hallar la solución. Tengo la siguiente página web: https://www.metals4u.co.uk/materials/aluminium En la pestaña "Materials", se encuentran varios materiales como "Aluminium, Brass, Copper, ..." Si seleccionamos cualquiera de esos materiales (por ejemplo Aluminium) la pagina nos lleva a todas las formas disponibles de este material (Ver figura adjunta). Para ver las caracteristicas de una forma pulsamos en "Show Details", y la pagina nos lleva a una ventana como las caracteristicas de esa forma (Ver figura adjunta) En dicha ventana se encuentra el precio de ese material (rodeado en azul en la imagen adjunta), que es el unico dato que necesito Como pueden ver hay muchos materiales y formas. Mi intencion es llevarme a una hoja excel el precio de todos los materiales y formas de la pagina, cosa que a mano es muy tediosa. ¿Habria alguna manera en VBA de programarlo y extraer el precio de todas los materiales y formas?. Por favor, necesito vuestra ayuda. Muchas gracias compañeros por vuestra valiosa ayuda, un abrazo.
  3. Justo lo que necesitaba Gerson Pineda. Muchas gracias compañero por la magnifica solución! Un cordial saludo
  4. Buenas tardes a todos los compañeros de este fantastico foro :D Estoy intentando hacer una macro para almacenar en un vector (array) los dias laborales entre dos fechas (sin contar festivos ni fines de semana). Por ejemplo; Fecha inicio: 03/08/2020 Fecha fin; 10/08/2020 Si el día 08/08/2020 y 09/08/2020 es fin de semana, y consideramos/especificamos que el dia 07/08/2020 es festivo. ¿Como podría obtener un vector de la siguiente forma)? Vector: (03/08/2020; 04/08/2020; 05/08/2020; 06/08/2020; 10/08/2020) Agradeceria muchos vuestra valiosa ayuda. Muchas gracias Un abrazo
  5. John Jairo V fantastica solución, muy creativa... la macro hace exactamente lo que quiero! Muchisimas gracias por su valiosa ayuda. Doy por resuelto el tema! Antoni muchas gracias también a usted por su aportación y dedicación Un abrazo
  6. Buenas Antoni, en primer lugar muchisimas gracias por su aportación, es muy interesante! Sin embargo, esta macro sólo extrae la última fecha dentro de la celda, y sin relacionarla con la cadena de texto " Sub-task stamped". Me faltaría añadir alguna condición para localizar todas las veces que se repite "Sub-task stamped" dentro de la celda y extraer la fecha de la forma que indica en su macro. Es posible que haya celdas que no tengan la cadena "Sub-task stamped" y no haya que extraer nada. Un cordial saludo
  7. Buenas compañeros, Me enfrento a un problema de programación con VBA que parece complicado, a ver si me pueden echar una mano ya que he investigado y no encuentro la manera de hacerlo. En la siguiente imagen, en la columna B están las "Acciones". Dentro de las celdas de esta columna hay texto con información relativa al trabajo realizado. Mi intención es buscar todas las veces que se repite la cadena "Sub-task stamped" dentro de una misma celda y extraer la fecha y hora que está en el renglón justo de abajo. En el Ejemplo de la imagen el resultado sería: -Sub-task Stamped: 10-Mar-2020 21:20 - Sub-task Stamped: 10-Mar-2020 19:03 nota: Podría haber filas como es la B3 en la que no aparece esta cadena de texto, en ese caso no hay que hacer nada Adjunto archivo, para visualizar la situación Les agradecería enormemente que me puedieran ayudar a resolver el problema compañeros Muchas gracias de antemano Un abrazo extraertexto.xlsm
  8. Muchsisimasas gracias JSDJSD, la verdad fue muy útil y creativo Un saludo
  9. Buenas compañeros, Estoy elaborando una macro para contar el numero de celdas que cumplen varios criterios en una misma columna, pero solo se me ocurre sumar varios Countifs(). Seguro habrá alguna forma mas eficiente de hacerlo. Por ejemplo para la siguiente tabla: Me gustaria contar las filas que cumplen los siguientes criterios: Columna A: Numero="100" Columna B: Semana="8" Columna : Perdida= "AB" y "AC" Como dije antes estoy haciendolo usando sumas de countifs: Perdidas = Application.WorksheetFunction.CountIfs(Range("A2:A" & ufila), "100", Range("B2:B" & ufila), "8", Range("C2:C" & ufila), "AB") + Application.WorksheetFunction.CountIfs(Range("A2:A" & ufila), "100", Range("B2:B" & ufila), "8", Range("C2:C" & ufila), "AB") Habría alguna formula o manera de hacer este calculo más simplificado y sencillo? Adjunto archivo excel con la pequeña macro incluida en el Modulo 1 Agradecería muchisimo vuestra ayuda compañeros! Muchas gracias de antemano Saludos. prueba.xlsm
  10. Muchas gracias Alexander, el código que adjuntas sí funcionó, justo hace lo que estaba intentando. Saludos cordiales
  11. Gracias por la respuesta Abraham, la macro de la página lo hace todo bien, pero no mantiene el formato de las celdas de excel, ¿Sabes en que parte del código puedo corregir esto? Muchas gracias.
  12. Gracias Luis, pero mi intención es adjuntar el rango de celdas en el cuerpo del mensaje (como imagen por ejemplo), sin adjuntar ningún archivo.
  13. Buenas tardes, Estoy elaborando una macro para enviar por Outlook un rango de celdas de una hoja excel, pero necesito que en el cuerpo del mensaje Outlook se mantenga el mismo formato que tengo configurado en la hoja Excel. Adjunto archivo. Concretamente, sería el rango de celdas D11:K15 de la hoja AVIONES. Por favor, si pudierais echarme una mano con esta macro os estaría muy agradecido. Gracias Saludos Macro correo outlook1.xlsm
×
×
  • Create New...

Important Information

Privacy Policy