Insertar texto en la ultima celda

hola, Georgina !

Lo que pasa es que tengo una tabla la cual se actualiza cada tanto.
Los datos que estan ella se pasan a otra tabla
ahora quiesiera una solucion para que cuando se pasen los datos a la otra tabla
estos se peguen abajo de los datos uqe ya estan en la tabla.

1) cual es el rango, hoja y libro de la tabla que se actualiza cada tanto (?)
2) cual es la columna inicial, hoja y libro a donde se deben "pasar" (?)
3) "como" es que "se pasan" los datos de una tabla a la otra (?)
4) como lo estas resolviendo actualmente (?)

saludos,
hector.

Ok, pues no importa la tabla que se actualiza, asi que olvidemoslo.

Tengo la tabla en la hoja "TablaOrg", estos valores los copio y los pego en
otra hoja que se llama "Locales", esta tabla comienza desde B2:E2.

En esta hoja "Locales", se pegan todos lso valores actualizados de latabla
en la hoja "TablaOrg". asi que lo que necesito es que cada vez qeu se peguen
los valores a la tabla de "Locales", estos se peguen en la ultima celda
vacia en la columna B2

Las hojas estan en el mismo libro.

Primero lo hacia manualmente, pero la vdd, es que pierdo mucho tiempo.

Ahora ocupo un offset, pero no creo que lo este ocupando adecuadamente, aqui
esta el código:


Aqui aplico un filtro, para seleccionar ciertas celdas

Sheets("TablaOrga").Select
ActiveSheet.PivotTables("Tabla dinámica2").PivotCache.Refresh
Range("C5").Select
ActiveSheet.PivotTables("Tabla dinámica2").PivotFields("Tipousr").
ClearAllFilters
ActiveSheet.PivotTables("Tabla
dinámica2").PivotFields("Tipousr").CurrentPage= "L"
Range("C5").Select
Selection.End(xlToRight).Select
Range("C5:F5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy

AHORA AQUI VOY A LA HOJA "Locales"

Sheets("Locales").Select

Range("B1").Select
Range(Selection, Selection.End(xlUp)).Select
Range("B1").Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Espero me puedas, ayudar. Gracias.


"Héctor Miguel" wrote:

hola, Georgina !

> Lo que pasa es que tengo una tabla la cual se actualiza cada tanto.
> Los datos que estan ella se pasan a otra tabla
> ahora quiesiera una solucion para que cuando se pasen los datos a la otra tabla
> estos se peguen abajo de los datos uqe ya estan en la tabla.

1) cual es el rango, hoja y libro de la tabla que se actualiza cada tanto (?)
2) cual es la columna inicial, hoja y libro a donde se deben "pasar" (?)
3) "como" es que "se pasan" los datos de una tabla a la otra (?)
4) como lo estas resolviendo actualmente (?)

saludos,
hector.

hola, Georgina !

... la tabla en la hoja "TablaOrg", estos valores los copio y los pego en otra hoja que se llama "Locales", esta tabla comienza desde B2:E2.
En esta hoja "Locales", se pegan todos lso valores actualizados de latabla en la hoja "TablaOrg".
... necesito... que cada vez qeu se peguen los valores a la tabla de "Locales", estos se peguen en la ultima celda vacia en la columna B2 ...

1) solo como comentario, comprueba si con la instruccion (de la primera parte del codigo que expones):
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
no se incluyen algunas filas "vacias" como resultado de ocultar datos con el filtro aplicado a la TD (???)

2) para continuar pegando datos "en la siguiente fila libre", prueba cambiando la ultima parte de tu codigo +/- ...

de esto:

Sheets("Locales").Select
Range("B1").Select
Range(Selection, Selection.End(xlUp)).Select
Range("B1").Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

a esto:

Sheets("locales").Select
Range("b" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __

Aqui aplico un filtro, para seleccionar ciertas celdas

Sheets("TablaOrga").Select
ActiveSheet.PivotTables("Tabla dinà¡mica2").PivotCache.Refresh
Range("C5").Select
ActiveSheet.PivotTables("Tabla dinà¡mica2").PivotFields("Tipousr").ClearAllFilters
ActiveSheet.PivotTables("Tabla dinà¡mica2").PivotFields("Tipousr").CurrentPage= "L"
Range("C5").Select
Selection.End(xlToRight).Select
Range("C5:F5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy

AHORA AQUI VOY A LA HOJA "Locales"

Sheets("Locales").Select
Range("B1").Select
Range(Selection, Selection.End(xlUp)).Select
Range("B1").Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Hola, muchas gracias por tu ayuda, me funciona correctamente, era lo que
necesitaba.


"Héctor Miguel" wrote:

hola, Georgina !

> ... la tabla en la hoja "TablaOrg", estos valores los copio y los pego en otra hoja que se llama "Locales", esta tabla comienza desde B2:E2.
> En esta hoja "Locales", se pegan todos lso valores actualizados de latabla en la hoja "TablaOrg".
> ... necesito... que cada vez qeu se peguen los valores a la tabla de "Locales", estos se peguen en la ultima celda vacia en la columna B2 ...

1) solo como comentario, comprueba si con la instruccion (de la primera parte del codigo que expones):
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
no se incluyen algunas filas "vacias" como resultado de ocultar datos con el filtro aplicado a la TD (???)

2) para continuar pegando datos "en la siguiente fila libre", prueba cambiando la ultima parte de tu codigo +/- ...

de esto:

Sheets("Locales").Select
Range("B1").Select
Range(Selection, Selection.End(xlUp)).Select
Range("B1").Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

a esto:

Sheets("locales").Select
Range("b" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
> Aqui aplico un filtro, para seleccionar ciertas celdas
>
> Sheets("TablaOrga").Select
> ActiveSheet.PivotTables("Tabla dinà¡mica2").PivotCache.Refresh
> Range("C5").Select
> ActiveSheet.PivotTables("Tabla dinà¡mica2").PivotFields("Tipousr").ClearAllFilters
> ActiveSheet.PivotTables("Tabla dinà¡mica2").PivotFields("Tipousr").CurrentPage= "L"
> Range("C5").Select
> Selection.End(xlToRight).Select
> Range("C5:F5").Select
> Range(Selection, Selection.End(xlDown)).Select
> Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
> Selection.Copy
>
> AHORA AQUI VOY A LA HOJA "Locales"
>
> Sheets("Locales").Select
> Range("B1").Select
> Range(Selection, Selection.End(xlUp)).Select
> Range("B1").Select
> ActiveCell.Offset(1, 0).Activate
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
> :=False, Transpose:=False