Victor Perdomo

Primero selecciona herramientas-personalizar-cuadro de controles. Cuando se active la barra, selecciona el control "imagen" y ponlo en tu hoja pon la ruta completa de la imagen en una celda, por ejemplo: C:\WINDOWS\Web\Wallpaper\Tulipanes.jpg ahora...

Esta macro copia la información de celdas de tres archivos de excel a uno en word. Solo pon las rutas las hojas y las celdas de cada uno. CUalquier duda solo avisame Sub Macro1() Dim Xls As Object Dim Wb As Object Dim ruta1, ruta2, ruta3 As String...

¿A qué te refieres con sortearla?, si te refieres a filtrarla a partir de excel 2007 se pueden hacer filtros por color. SI necesitas hacerlo por 2003 tocaría realizar una macro.

Prueba esta macro, dale click a la pestaña de la hoja->ver código y la pegas. Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A4")) Is Nothing Then If (Range("A4").Value <> Range("A5").Value) Then...

repeticiones "-" -> =LARGO(A1)-LARGO(SUSTITUIR(A1;"-";"")) repeticiones numeros-> =LARGO(SUSTITUIR(A1;"-";""))

Prueba esta macro, si no es lo que buscas coméntamelo y la modificare, este código se ejecutara en la hoja activa, si tienes la información en dos hojas hay que modificarlo. Sub buscarx() x = "a1" '<---cambia esta celda por la celda en que esta la...

Prueba esta macro y cuéntame como te fue. Sub eliminar() ''''''''''''''' celda = "A1" '<---cambia esta celda por la celda en que ''''''''''''''''''empieza la columna donde se buscara f1 = Range(celda).Row f2 = Range(celda).End(xlDown).Row While f1 <=...

Puedes descargar la hoja en este link http://rapidshare.com/files/384113274/PELICULAS.xls Si tienes alguna duda solo comentame. El código es: Sub Botón13_AlHacerClic() Set ws2 = Worksheets(2) Set ws3 = Worksheets(3) iFila = ws3.Cells(Rows.Count,...

Prueba con este código Function listarx(celdas1 As Range, indicador As Integer, ByVal name As Variant) As String Dim cont As String Dim rnCell As Range Application.Volatile For Each rnCell In celdas1 If rnCell.Value = name Then c = rnCell.Column +...

Con esta fórmula lo puedes hacer, aplica para un numero de factura en la celda A1, cambiala por la celda en la que empieza tus datos y solo arrastra hacia abajo....