carlosleal23

GRACIAS por la ayuda pero con este macro no me oculta la cinta que menciono.

Gracias a todos por su colaboración y ayuda

Hola un cordial saludo a todos, Tengo un libro el cual quisiera que al abrir, abra en pantalla completa total sin la cinta o cintillo donde aparece el nombre del archivo.

Me puse a observar la macro del video y no es igual a la macro que usted me envió sera que me puede enviar nuevamente por favor. Esta fue la que usted me envio: Sub ResumenMensual() Dim Hoja As String, Acumulado(5, 6) As Double Application.ScreenUpdating = False With Sheets("RESUMEN MENSUAL") For x = 12 To .Range("D" & Rows.Count).End(xlUp).Row Step 6 '-- 'Borramos Acumuladomulados semanales For f = 1 To 5 For c = 1 To 6 Acumulado(f, c) = 0 Next Next '-- 'Por cada hoja de la semana For y = .Range("F" & x) To .Range("H" & x) Hoja = Replace(y, "/", "-") '-- 'Acumuladomulamos cada día de la semana si existe If ExisteHoja(Hoja) Then f = 0: c = 0 For fila = 14 To 18 f = f + 1 c = 0 For columna = 4 To 14 Step 2 c = c + 1 Acumulado(f, c) = Acumulado(f, c) + Sheets(Hoja).Cells(fila, columna) Next Next '-- 'Actualizamos RESUMEN For f = 1 To 5 For c = 1 To 6 .Cells(x + f - 1, c + 11) = Acumulado(f, c) Next Next '-- End If Next Next End With End Sub Private Function ExisteHoja(Hoja As String) As Boolean 'Función para comprobar si existe la hoja a Acumuladomular With Sheets("RESUMEN MENSUAL") For Each h In Sheets If h.Name = Hoja Then ExisteHoja = True Exit Function End If Next End With End Function

eso lo tengo claro pero le comento que sin modificar nada el archivo no me funciona.

sigue sin funcionar creo que es algo en mi excel por que no hace nada con esa macro

NO ME FUNCIONA TAL VEZ TENGO ALGUNA FUNCION DESACTIVADA PARA EJECUTAR LA MACRO

el archivo no hace nada o me falta algo mas en la macro

Pruebas.xlsb

Hola un cordial saludo a todos. Tengo un libro con 365 hojas cada una con nombre de un día mes y año en especifico agradecería me ayuden a como puedo realizar la vinculación de cada hoja (día) para extraer valores totales a otra hoja y obtener los resultados necesarios, ya lo tengo echo de manera manual pero tardo mucho quisiera de su ayuda para no hacerlo de forma manual , ya que es muy laborioso dado que lo tengo que hacer de una por una. NO puedo adjuntar archivos por que tiene un tamaño de 4 Mb. Como podrían ayudarme por favor....