mariop222

Ahí esta listo el código corregido Saludos Sheets("Hoja1"). Activate Worksheets("Hoja1").Shapes("info").Select enviar = Selection.Characters.Text Sheets("Hoja3").Activate Worksheets("Hoja3").Range("f30").Value = enviar

Claro que hay como si me envías el archivo y me guías más o menos que es lo que quieres en la hoja de excel te ayudo enviame a mi correo [email protected] y con gusto te ayudo.

En si puedes utilizar formato condicional (esto esta en la barra de tareas) en las celdas para que te pinte de cualquier color la celda incluso el pone color a los ceros... pero si no te sirte esto y es necesario el código te lo puedo pasar.