-
98 ¿Te parecen útiles los tips de las funciones? (ver tema completo)
-
1. ¿Te parecen útiles los tips de las funciones?
-
Sí
-
No
-
Ni me he fijado en ellos
-
- Por favor conéctate o regístrate para votar en esta encuesta.
- Ver tema
-
-
Ayúdanos a mejorar la comunidad
-
Mantenimiento de la comunidadDonaciones recibidas este mes: 0.00 EUR
Objetivo: 130.00 EUR
-
-
Archivos
-
Estadísticas de descargas
-
Archivos177
-
Comentarios90
-
Revisiones27
-
-
-
Mensajes
-
Por carlosleal23 · publicado
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 -
¿No estarás intentando ejecutar la macro desde la hoja SERVICIOS?, porqué el botón RESUMEN MENSUAL no tiene ninguna macro asignada. En cualquier caso puedes seguir la maco paso a paso, -
Por abelsantiagomx · publicado
Mil gracias por tu gran ayuda, Dios te siga bendiciendo con mas conocimiento -
Por MarianoCruz · publicado
Hola JSDJSD: Muchísimas gracias por atender mi necesidad, si lo que busco. Pero debido a que las rutas de mis carpetas y subcarpetas son largas necesitaba que solo me mostrara el nombre de la carpeta, No como tal la ruta. Ya que por la amplitud de ruta en mi hoja tendria que revisar cada uno. Lo de la apertura al seleccionarlo esta perfecto. Este es un ejemplo de como me sale: C:\Users\Mariano\CarpetaGoo\Mariano Cruz\DRPRO DISTRITO\9. SunnyGrand\Dossier BiPAP\2. Información Tecnologia y Cientifica\150. Clinical studies\Annex 1 Literature Search Protocol and Report -SOTA Por eso la idea de mostrar solo nombre de carpeta. Trate de cambiar: subfolder.Path por subfolder.Name. y si me muestra el nombre. Pero ya no abre las carpetas. Muchas gracias Mariano -
Son 18 días = 30 - 8 sáb/dom - 4 festivos.
-
-
Visualizado recientemente
- No hay usuarios registrado para ver esta página.
Recommended Posts
Crear una cuenta o conéctate para comentar
Necesitas ser usuario para poder dejar un comentario
Crear una cuenta
Registrarse para una nueva cuenta en nuestra comunidad. ¡Es fácil!
Registrar una nueva cuentaConectarse
¿Ya tienes una cuenta? Conéctate aquí.
Conéctate ahora