-
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
-
-
-
La que te muestra en el video es la que yo modifiqué, pero es indiferente prueba lo que te indica Antoni en la que el te mando o en la modificada la cuestión es seguir el paso a paso para ver donde esta el error para que no te funcione tanto una como la otra.
-
La macro del video es la de JSDJSD, que igualmente funciona sin problemas. La mía la puedes descargar de mi primera respuesta. -
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
-
-
Visualizado recientemente
- No hay usuarios registrado para ver esta página.
Recommended Posts
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.