¿cómo cambio el estilo A1 al R1C1, para una macro en que creo un a.

26/10/2004 - 22:59 por Cristián | Informe spam
Estoy creando una macro en que hago un tabla dinámica:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R1052C7").CreatePivotTable
Mi problema es que el rango de SourceData me queda fijo y yo lo necesito
variable, ya que las filas van cambiando entre tablas. Cómo puedo dejarlo
variable?? Cómo puedo cambiar al estilo que ocupa Range, o sea A1?? Gracias.
 

Leer las respuestas

#1 L. A. M.
27/10/2004 - 14:53 | Informe spam
Si el rango es variable, puede tomar la ultima fila con una variable y
pasarla al codigo de la tabla dinamica, por ejemplo:

Dim Fin as long
Fin = sheets("sheet1").cells.specialcell(xllastcell).row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!A1:H" & Fin ).CreatePivotTable


Luis Medina
Menufazt - Utilidades y juegos en Excel
http://www11.brinkster.com/LUISM0/


"Cristián" <Cristiá escribió en el mensaje
news:
Estoy creando una macro en que hago un tabla dinámica:
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R1052C7").CreatePivotTable
Mi problema es que el rango de SourceData me queda fijo y yo lo necesito
variable, ya que las filas van cambiando entre tablas. Cómo puedo dejarlo
variable?? Cómo puedo cambiar al estilo que ocupa Range, o sea A1??
Gracias.





Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.783 / Virus Database: 529 - Release Date: 10/25/2004

Preguntas similares