Anónimo
Macro promedio de distintas columnas
Hola,
Estoy realizando una macro que calcula promedios de distintas columnas, eso ya lo puedo calcular pero los resultados no puedo direccionarlos a las celdas que yo deseo, el problema se complica porque no tengo un rango fijo, es decir debe buscar todos los valores de la columna A promediarlos, luego de la columna B, C etc. Pero estos rangos varían entonces lo hago con Do While Loop pero no logro capturar esos promedios individuales por columna, desde ya gracias.
Estoy realizando una macro que calcula promedios de distintas columnas, eso ya lo puedo calcular pero los resultados no puedo direccionarlos a las celdas que yo deseo, el problema se complica porque no tengo un rango fijo, es decir debe buscar todos los valores de la columna A promediarlos, luego de la columna B, C etc. Pero estos rangos varían entonces lo hago con Do While Loop pero no logro capturar esos promedios individuales por columna, desde ya gracias.
1 Respuesta
Respuesta de Enrique Bernal
1
este codigo te envía al final de todas las filas de excel,
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Una vez que tienes en que el numero de la primera fila vacía que encuentra de arriba a abajo, puedes escribir al final de la columna el la fórmula del promedio, para todo lo que esta arriba, recuerda que la fórmula promedio de Excel, no hace caso a las columnas vacías.
Prueba y si es lo que necesitas, no olvides finalizar la pregunta
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Una vez que tienes en que el numero de la primera fila vacía que encuentra de arriba a abajo, puedes escribir al final de la columna el la fórmula del promedio, para todo lo que esta arriba, recuerda que la fórmula promedio de Excel, no hace caso a las columnas vacías.
Prueba y si es lo que necesitas, no olvides finalizar la pregunta
Bueno, primero gracias por responder tan rápido, creo que me puede resolver pero no he captado muy bien la respuesta podrías extender un poco con un ejemplo, gracias.
Saludos.
Saludos.
Pásame la parte de tu macro que calcula los promedios, y yo te los capturo en variables.
Esta macro hace lo que pides va capturando los valores en celdas al final de A
Sub Prome()
Sheets("Hoja1").Select
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Formula = "=average(B:B)"
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Formula = "=average(C:C)"
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Formula = "=average(D:D)"
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Formula = "=average(E:E)"
End Sub
No olvides finalizar la pregunta
Sub Prome()
Sheets("Hoja1").Select
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Formula = "=average(B:B)"
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Formula = "=average(C:C)"
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Formula = "=average(D:D)"
k = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range("A" & k).Formula = "=average(E:E)"
End Sub
No olvides finalizar la pregunta