Sintaxis para referenciar un rango en función de una variable

11/06/2004 - 21:42 por Luis Menéndez | Informe spam
Estimados todos , quisiera saber que sintaxis tiene que tener
"R1C1:R4104C19" para que el rango que designa dependiese del valor de una
variable y no fuese siempre 4104 filas y 19 columnas.

'GENERAR TABLAS DE CONSULTA
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'TABLA DATOS'!R1C1:R4104C19").CreatePivotTable
TableDestination:="", _
TableName:="Tabla dinámica3"

Gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
12/06/2004 - 10:37 | Informe spam
hola [de nuevo], Luis ! ;)

... sintaxis ... para que el rango ... dependiese ... de una variable [...
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'TABLA DATOS'!R1C1:R4104C19").CreatePivotTable TableDestination:="", _
TableName:="Tabla dinámica3"



prueba con...
Dim NuevaTabla As String
NuevaTabla = Worksheets("TABLA DATOS").Range("a1:b36").Address(External:=True)
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=NuevaTabla).CreatePivotTable _
TableDestination:="", _
TableName:="Tabla dinámica2"

saludos,
hector.
Respuesta Responder a este mensaje
#2 Luis Menéndez
13/06/2004 - 01:07 | Informe spam
PERFECTO , COMO DE COSTUMBRE , MUCHAS GRACIAS HECTOR.
"Héctor Miguel" escribió en el mensaje
news:#
hola [de nuevo], Luis ! ;)

> ... sintaxis ... para que el rango ... dependiese ... de una variable


[...
> ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
> "'TABLA DATOS'!R1C1:R4104C19").CreatePivotTable


TableDestination:="", _
> TableName:="Tabla dinámica3"

prueba con...
Dim NuevaTabla As String
NuevaTabla = Worksheets("TABLA


DATOS").Range("a1:b36").Address(External:=True)
ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=NuevaTabla).CreatePivotTable _
TableDestination:="", _
TableName:="Tabla dinámica2"

saludos,
hector.

Respuesta Responder a este mensaje
#3 David Canales
13/06/2004 - 09:01 | Informe spam
Tambien lo que puedes hacer es crear lo que se llama un "rango dinamico" y asignarle un nombre al rango que utilizaras en tu macro. De esta manera aunque agregues nuevos datos el rango se ampliara de manera automatica. Chequea este link en español:

http://www.todoexpertos.com/herrami...ocesoS8642

y estos otros en ingles:

http://www.ozgrid.com/Excel/DynamicRanges.htm
http://www.cpearson.com/excel/named.htm


David Canales


"Luis Menéndez" wrote:

Estimados todos , quisiera saber que sintaxis tiene que tener
"R1C1:R4104C19" para que el rango que designa dependiese del valor de una
variable y no fuese siempre 4104 filas y 19 columnas.

'GENERAR TABLAS DE CONSULTA
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'TABLA DATOS'!R1C1:R4104C19").CreatePivotTable
TableDestination:="", _
TableName:="Tabla dinámica3"

Gracias



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida