parmijo

Puedes probar con la opción formato condicional: Formato/formato condicional Con esta opción puedes darle un formato a la celda actual, dependiendo del valor de la celda o del resultado de una fórmula, lo malo es que puedes dar solamente 3...

Tengo que reconocer que cometí un error en esta parte del código: ruta = "TEXT;P:\Ppto 2009\Cta.explotación\Cecos\SUBIDA A SAP\Cecos a subir\" & ActiveCell.Value debería ser de este modo ruta = "P:\Ppto 2009\Cta.explotación\Cecos\SUBIDA A SAP\Cecos a...

Si se puede realizar lo que necesitas, solamente se necesita saber si la información que necesitas esta en Una columna Fija en las 9 hojas, o si varia de columna Si gustas manda tu planilla a [email protected] y buscamos una solución

Con esta macro obtienes una lista de los archivos .xls de un determinado directorio: Sub obtenerdirectorios() Dim i As Long Dim MiRuta As String Dim MiNombre As String i = 1 MiRuta = "C:\BACKUP\*.XLS" ' RUTA DE TU CARPETA MiNombre = Dir(MiRuta, 0) Do...

Quizás pueda ayudarte si me mandas tus libros, por que das muy poca información, [email protected]

Puedes probar con esta solución. Dim hoja As String For x = 1 To 6 Select Case x Case Is = 1: hoja = "Real Infraestructura" Case Is = 2: hoja = "Real Adm y Finanzas" Case Is = 3: hoja = "Real Ventas y Promoción" Case Is = 4: hoja = "Real Operaciones"...

Si gustas puedes mandarme tu planilla a [email protected], para ver la mejor solución

Como te va con esta Sub COPIAR() ULT = Sheets("pendientes").Range("A65536").End(xlUp).Row Rows("1:4").Select Selection.EntireRow.Copy If Sheets("pendientes").Range("A" & ULT).Value = Empty Then Sheets("pendientes").Range("A" & ULT).PasteSpecial...

Según lo que veo tu For, le hace un next a "W" cuyo valor es =0; supongo que debería ser a "X" for w=0 to w=x step 1 If ins <= baja Then Hoja1.Cells.Range("C" + CStr(j)).Value = Range("A" + CStr(i)).Value Hoja1.Cells.Range("E" + CStr(j)).Value =...

Te dejo un muy buen ejemplo de lo que necesitas: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=34409&lngWId=1