............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro que me permita COPIAR la "ecuación de línea de tendencia" y "R2", y PEGAR en una celda.

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro que me permita COPIAR la "ecuación de línea de tendencia" y "R2", y PEGAR en una celda.

Mensaje por hugaso32 el Dom Oct 20, 2013 5:15 pm

Que tal compañeros del foro, me encantaría que me pudieran ayudar con lo siguiente:

He realizado una macro que me permite crear una gráfica de dispersión, a la cual le he agregado las lineas de tendencia lineal, logarítmica y polinómica con sus respectivas ecuaciones y valores de R2.

Después de esto he querido realizar una macro que me permita copiar la "ecuación de la línea de tendencia" y "R2", y pegarlo en la celda:

"Celda R1 = ecuación lineal"
"Celda S1 = ecuación logarítmica"
"Celda T1 = ecuación polinómica"
"Celda U1 = R2 lineal"
"Celda V1 = R2 logarítmico"
"Celda W1 = R2 polinómica"


La macro la realice a través de la grabadora, y quedo de la siguiente forma:

Sub copia_y_pega_ecuacion_y_R2_de_un_grafico()

   ActiveSheet.ChartObjects("Gráfico").Activate
       ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
           Range("R1").Select
               ActiveSheet.Paste
   
   ActiveSheet.ChartObjects("Gráfico").Activate
       ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
           Range("U1").Select
               ActiveSheet.Paste
   
   ActiveSheet.ChartObjects("Gráfico").Activate
       ActiveChart.SeriesCollection(1).Trendlines(2).DataLabel.Select
           Range("S1").Select
               ActiveSheet.Paste
   
   ActiveSheet.ChartObjects("Gráfico").Activate
       ActiveChart.SeriesCollection(1).Trendlines(2).DataLabel.Select
           Range("V1").Select
               ActiveSheet.Paste
   
   ActiveSheet.ChartObjects("Gráfico").Activate
       ActiveChart.SeriesCollection(1).Trendlines(3).DataLabel.Select
           Range("T1").Select
               ActiveSheet.Paste
   
   ActiveSheet.ChartObjects("Gráfico").Activate
       ActiveChart.SeriesCollection(1).Trendlines(3).DataLabel.Select
           Range("W1").Select
               ActiveSheet.Paste
 
End Sub

Y efectivamente me pega valores en las celdas correspondientes, pero no me pega los valores que necesito, me pega valores de lo último que copie, es decir en todas las celdas R1, Q1, S1, T1, U1 y W1 me pone el mismo valor.

Me gustaría saber que debo modificarle al código de la macro para poder copiar y pegar la "ecuación" y R2" en las celdas correspondientes.

Agradeceré cualquier ayuda, Muchas Gracias.
Archivos
Copia&pega_valores_ec_R2.xlsm No tienes los permisos para descargar los archivos.(91 KB) Descargado 17 veces

hugaso32

Masculino Cantidad de envíos : 2
Edad : 29
Ciudad - Pais : México
Version de Excel : 2010
Fecha de inscripción : 07/10/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.