"Error en excel con la propiedad Average"
Señores del Foro
Tengo un pequeño error que ocurre en la siguiente expresión:
lÚltimaFila = Worksheets("Histórico Montaje").[FO3].End(xlDown).Row
TextBox4 = Format(Application.WorksheetFunction.Average(Sheets("Histórico Montaje").Range("FO:FO")), "0.00")
Si solo lee a lo largo de toda la columna FO uno o ningún valor, salta el error (no puede cerrar un promedio)
Quisiera saber que debo agregar a mi expresión para que exceptúe estas 2 situaciones?
Desde ya agradezco el tiempo y su respuesta a quien responda
Daniel.
{"Lat":-34.6037232,"Lng":-58.3815931}
1 Respuesta
Prueba con estas sentencias para evaluar si la columna FO tiene los suficientes valores como para calcular un average. (En mi ejemplo he utilizado la hoja1)
If Application.WorksheetFunction.CountA(Columns("fo:fo")) < 2 Then
MsgBox "no se puede calcular"
Else
TextBox1.Value = Application.WorksheetFunction.Average(Sheets("hoja1").Range("fo:fo"))
End If
Luis
Quedo fenómeno!
Agradezco como siempre la mano que das desinteresadamente!
Te dejo un abrazo grande
Muchas gracias!
