leandropaul

Es sencillo Así quedaría: Sub Extraer() Final = Range("a65536").End(xlUp).Row - 1 For x = 2 To Final Cells(x, 3) = Mid(Cells(x, 1), 5, 4) Next End Sub

el contro se llama MSCOMCT2.OCX descargalo de aca >>http://support.microsoft.com/default.aspx?scid=kb;en-us;297381 Una ves descargado lo descomprime y guardas en la carpeta sistem32 luego lo registras : inicio > ejecutar > y escribes ahi...

Tendrías que filtrar un poco mejor el find con lookin:=xlValues Cualquier otra duda me dices

Esta seria la solución Sub COLOREAR() For Each tpt In Range("b3:n30") If Range("a1").Value = tpt Then tpt.Interior.ColorIndex = 5 End If Next End Sub Cualquier otra duda me consultas

Bueno todo eso se puede hacer por lo que he leído pero bueno en lo que te puedo ayudar por mis conocimientos hasta el momento es para la 1, 2 y 5 en lo demás te podría ayudar pero ahora carezco de tiempo para poder leer y ayudarte.. podrías...

¿Me podrías ppasar tu archivo con las macros para poder enterderlas mejor y otra cosa lo estas pasando de hoja a otra hoja no?

Te lo subo en unos instantes

Bueno si puedo ayudarte pero no se si pudieras pasarme el archivo a [email protected] que seria lo mejor, pero si no en todo caso especifícame mejor las celdas utilizadas.

Bueno tendrías que pasarme el archivo con las macros Y decirme la ruta de la carpeta donde están los pdf

Lo puedes subir aun servidor como megaupload o envíamelo ami mail [email protected]