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]

Tengo el código dentro unos momentos te lo pongo

Disculpa que no te haya respondido pero ando demasiado ocupado pero bueno Esta seria una solución. For x = 8 To 20 For y = 1 To 6 If Cells(x, y).Value = TextBox1.Value Then `aca le pones el resultado que desees Cells(x, y + 1).value = resultado End...

No te entendí muy bien pero bueno. Antes de poner el nombre del textbox agregale el nombre del userform Userform2.Textbox1.value= Userform1.Textbox2.value

B uen dia Raul! Esta macro la ejecutas en al hoja donde tengaslos datos que deseas copiar y la ruta la cambias y pones la hoja ala cual vas a pasar los datos Sub Pasar() fin = Sheets("Hoja1").Range("a65500").End(xlUp).Row Range("a1", "a" &...

borisbarrera respondió: Quisiera saber cual es la utilidad de la columna B y C (10, diez, 20, diez). La otra que debes especificar es si (total suma) se encuentra escrito en las celdas.

Ignacio Box La Macro debería quedar así Sub Condicional() fin = Sheets("hoja1").Range("a65536").end(x1up).row + 1 for x = 1 To fin If Cells(x, 1).Value = "EOK" Or Cells(x, 1).Value = "PAG" Then sig = Cells(x, 3) Select Case sig Case "0" Cells(x,...