Ejecutar mismo macro en distintas preguntas
Hola! Tengo la siguiente macro que me funciona correctamente a lo largo de una columna, en concreto la C, pero me gustaría que continuase ejecutándose hasta la columna FS. La ejecuto posicionándome en la celda C2. Esta macro me devuelve en filas vacías (filas que delimitan distintos bloques de filas) la suma de las filas de cada bloque de filas. Necesitaría que esta acción se ejecutase en todas las columnas ¿cómo sería?
Sub sumarX()
Range("c65000").End(xlUp).Offset(1, 0).Value = "final"
Range("c2").Select
Do While ActiveCell.Value <> "final"
suma = suma + ActiveCell.Value
If ActiveCell.Value = "" Then
ActiveCell.Offset(0, 0).Value = suma
suma = 0
End If
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "final" Then
ActiveCell.Offset(1, 0).Value = suma
suma = 0
End If
Loop
ActiveCell.ClearContents
End Sub
Gracias de antemano.
1 Respuesta
Esta sería la macro, va desde la columna C hasta la columna FS
Sub sumary()
'Por.DAM
For j = 3 To Range("FS1").Column
suma = 0
For i = 2 To Cells(Rows.Count, j).End(xlUp).Row + 1
suma = suma + Cells(i, j)
If Cells(i, j) = "" Then Cells(i, j) = suma: suma = 0
Next
Next
End Sub Saludos. Dante Amor
No olvides finalizar la pregunta.
Muchísimas gracias! has sido un experto muy efectivo y rapidísimo. Me has alegrado el día, después de horas dándole vueltas. Gracias!!!
