Utilizar el control RefEdit para selecionar un rango de datos

Creo que tu lo que quieres es manejar rangos dinámicos, poco se te puede
ayudar si no sabemos algunas puntos.

Dinos por favor, como estan acomodados los datos, cuantas columnas ocupa y
en que fila empiezan.

Saludos
Servando Villalon


"pisa" wrote:

> Saludos a todos:
> Saludos a todos:
> Estoy elaborando una hoja de cálculo, para realizar informes de
> comportamiento de temperatura de equipos, utilizando Visual Basic, y requiero
> seleccionar un rango de datos que es variable, para utilizarlos en cálculos y
> en gráficos.
> Pienso utilizar control Refedit para seleccionar el rango de datos, solo que
> no conozco como utilizar el rango seleccionado, en distintos procedimientos
> para crear los gráficos y en las formulas.
> Agradezco su atención de antemano.
>
>

Tenemos una serie de columnas B4 hasta z200, que no siempre son el mismo rango
por lo mismo este rango lo queremos selecionar manualmente con el refedit
y este rango selecionado utilizarlo para calcular estadisticos como promedio, desv std, etc.
y a su vez graficarlo...

Ve este link, esta información te puede servir.

http://support.microsoft.com/kb/146055/



Saludos
Servando Villalon


"pisa" wrote:

> Saludos a todos:
> Saludos a todos:
> Estoy elaborando una hoja de cálculo, para realizar informes de
> comportamiento de temperatura de equipos, utilizando Visual Basic, y requiero
> seleccionar un rango de datos que es variable, para utilizarlos en cálculos y
> en gráficos.
> Pienso utilizar control Refedit para seleccionar el rango de datos, solo que
> no conozco como utilizar el rango seleccionado, en distintos procedimientos
> para crear los gráficos y en las formulas.
> Agradezco su atención de antemano.
>
>

Se presenta un problema,cuando intento nombrar a la selsccion de datos atraves del RefEdit
el error que se presenta en la celda es &$nombre, es decir creo que no esta reconociendo la operacion (promedio) del rango seleccionado.

Dim selRange as Range
Dim Addr as String
Addr=RefEdit1.Value
Set SelRange=Range(Addr)s
Range("BK16).Select
SelRange
ActiveCell.FormulaR1C1="=AVERAGE(SelRange)
End sub