Luis Mondelo

Te mando la solución con este ejemplo, sigue estas instrucciones: En la hoja10 tenemos anotados desde A25 hacia abajo los nombres de las pestañas a donde queremos copiar Esta es la macro: Sub proceso() 'por luismondelo Sheets("hoja10").Select...

Te mando un código de ejemplo: En esta macro evaluamos el rango A1:H500 y si encontramos un cero pintamos en su lugar el contenido de la celda E6 e interrumpimos el proceso saliendo del bucle sub proceso() 'por luismondelo for each celdita in...

Te mando mi solución. Posiciónate en la celda donde tienes esos valores y después ejecuta esta macro : Sub proceso() 'por luismondelo For x = 1 To Len(ActiveCell) extrae = Mid(ActiveCell, x, 1) If IsNumeric(extrae) And extrae < 7 Then...

Veamos un ejemplo: Anotamos en la celda A1: 1/1/2014 17:00:00 Anotamos en la celda B1: 8 anotamos esta fórmula en C1: =A1+B1/24

En el siguiente enlace te dejo tu archivo con mi solución http://share.cx.com/74ysq6 Recuerda finalizar la consulta

¿Te refieres a que quieres evitar pulsar la X del formulario?

Viendo solo ese ejemplo te valdría con poner esta fórmula en C1 =EXTRAE(B1;3;7) Si fuera así

En el siguiente enlace te dejo el archivo con la macro programada. También te lo he mandado por mail http://share.cx.com/s3YRtP Recuerda finalizar

Te mando mi solución. Me imagino que los correos están escritos en la columna B desde B1 hacia abajo. Con esta macro fabricamos una cadena con todos los mails, separados por punto y coma. (Al final de macro hay un msgbox para enseñarte como queda....

Mándame el archivo excel con esa hoja que quieres enviar, y anotados los mail a los que quieres enviar (invéntatelos) [email protected]