Copiar datos filtrados en tabla con nombre de rango asociado
publicado
Buenas días a todos,
Les copio parte de un algoritmo en donde copio y pego unas tablas en otro libro.
Copia y pega todas las tablas correctamente, ahora si les aplico un filtro y copio solo las filas visibles aplicando SpecialCells(xlCellTypeVisible).Copy ,, no copia la tabla con su nombre de rango, solo copia los valores.
Aparentemente cuando copias y pegas una tabla filtrada en Excel, es posible que el nombre de rango no se copie automáticamente junto con los datos. Esto puede ser que se deba a que el nombre de rango está asociado directamente con la tabla y no con las celdas individuales.
Hay alguna manera de hacer esto en esta instancia al hacer Copy o Paste con Range.SpecialCells?, o deberé recorrer el libro creado renombrando las tablas?
Con tabla.name obtengo el nombre de la tabla pero no se como asociarlo al objeto
Aguardo sus comentarios
Saludos
Workbooks.Add
For Each hoja In ThisWorkbook.Sheets
For Each tabla In hoja.ListObjects
tabla.Range.SpecialCells(xlCellTypeVisible).Copy
ActiveSheet.Paste
Sheets.Add after:=ActiveSheet
Next
Next
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas días a todos,
Les copio parte de un algoritmo en donde copio y pego unas tablas en otro libro.
Copia y pega todas las tablas correctamente, ahora si les aplico un filtro y copio solo las filas visibles aplicando SpecialCells(xlCellTypeVisible).Copy ,, no copia la tabla con su nombre de rango, solo copia los valores.
Aparentemente cuando copias y pegas una tabla filtrada en Excel, es posible que el nombre de rango no se copie automáticamente junto con los datos. Esto puede ser que se deba a que el nombre de rango está asociado directamente con la tabla y no con las celdas individuales.
Hay alguna manera de hacer esto en esta instancia al hacer Copy o Paste con Range.SpecialCells?, o deberé recorrer el libro creado renombrando las tablas?
Con tabla.name obtengo el nombre de la tabla pero no se como asociarlo al objeto
Aguardo sus comentarios
Saludos
Workbooks.Add
For Each hoja In ThisWorkbook.Sheets
For Each tabla In hoja.ListObjects
tabla.Range.SpecialCells(xlCellTypeVisible).Copy
ActiveSheet.Paste
Sheets.Add after:=ActiveSheet
Next
Next