[RESUELTO] Copiar celdas visibles pegar valores en otra hoja

[physic]

saludos

         Estoy buscando una macro para copiar las celdas que se filtrar en el filtro auto (celdas visibles) y pegar los valores en otra hoja de cálculo

         Descripción del problema :

         en la hoja de cálculo1 tiene Auto Filtro de columna A hasta la columna Z

         es necesario copiar las celdas filtradas visibles de la columna A hasta la columna E y pegar sólo los valores en la primera celda vacía de la columna A en la hoja de cálculo2

         volver a la hoja de cálculo1 y copiar las celdas filtradas visibles de la columna I hasta la columna L y pegar sólo los valores en la primera celda vacía de la columna F en la hoja de cálculo2

         volver a la hoja de cálculo1 y copiar las celdas filtradas visibles de la columna U hasta la columna W y pegar sólo los valores en la primera celda vacía de la columna J en la hoja de cálculo2

         luego volver a la hoja de cálculo1 y deshacer todos los filtros, es decir, Borrar todos los filtros


abrazos

[mauricio]

Tu pregunta se ha respondido varias veces en estos foros... ¿ya realizaste una búsqueda?

Saludos

[physic]

He encontrado algunos modelos, pero desafortunadamente no he podido adaptar correctamente a mi problema propuesto

También encontré otro enlace de soporte:

http://document-foundation-mail-archive ... 64486.html

pero tampoco he podido adaptar a mi problema



abrazos

[physic]

Amigos, si me pueden ayudar en la construcción de este código, estoy agradecido desde ahora


abrazos

[mauricio]

Por favor, con una vez que hagas tu solicitud es suficiente, toma en cuenta que aquí todos somos voluntarios ayudando a otros usuarios, debes de es esperar a que alguien sepa la respuesta y desee ayudarte.

[physic]

He encontrado un código VBA que hace en Excel lo que necesito

Si me pueden ayudar a convertir a LibreOffice (BASIC), desde ya estoy agradecido

fuente: https://forum.baboo.com.br/index.php?/t ... filtradas/


código VBA

Sub CopyFilter()

Dim rng As Range
Dim rng2 As Range

With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With
If rng2 Is Nothing Then
MsgBox "No data to copy"
Else
Worksheets("Plan2").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Worksheets("Plan2").Range("A1")
End If

ActiveSheet.ShowAllData

End Sub

[mriosv]

Existe una extensión para LibreOffice que lo hace, https://extensions.libreoffice.org/exte ... ible-cells

en OpenOffice funciona pero parece que no instala la barra con el icono para utilizarlo por lo que tienes que hacerlo a través de Menú/Herramientas/Personalizar/Barras de Herramientas, desde las Macros de OpenOffice - Macros de OpenOffice - SelVisiCell y después asignarle un botón.

[physic]

sr. mriosv ,

Si no puedo hacer a través de macro, entonces voy a hacer a través de su sugerencia

Muchas gracias por la colaboración muy buena


abrazos amigo

[arivas_2005]

Saludos.

hace algún tiempo resolví este procedimiento.
Entre consultas al foro y búsquedas, .. al final, ya no recuerdo dónde encontre el contenido de la macro que me sirvio a mis propósitos (copia cada celda no oculta en un rango, con su contenido y su formato. Observar ejemplo).
Adjunto el libro. Ojalá sea una guía para la solución buscada.
éxitos!

[physic]

saludos arivas_2005 ,

en primer lugar quiero dar las gracias por ayudarme

no funcionó para mí la macro pegar las celdas visibles de su archivo

me adjunto el archivo "visibile" para pedirle que usted aplique su macro en este archivo "visibile"

desde ahora estoy agradecido al señor


abrazos

[fornelasa]

Así de bote pronto, parece que con una macro generada con la grabadora de macros funcionaria.
Pulsa el botón rojo.

Código: Seleccionar todo   Expandir vistaContraer vista

Worksheets("Plan2")

Usas la hoja llamada Plan2
Saludos, Federico.

[physic]

sr Federico

gracias por querer ayudar

el problema es que la cantidad de Líneas y Columnas en la Hoja 1 va a cambiar siempre, o sea, tendremos cantidades diferentes de Líneas y Columnas para Copiar

entonces debe ser con Macro programada

también necesita Colar varias veces continuas, una debajo de la otra en secuencia en la hoja de cálculo 2, para guardar el historial


abrazos mi amigo

[fornelasa]

El problema es que la cantidad de Líneas y Columnas en la Hoja 1 va a cambiar siempre, o sea, tendremos cantidades diferentes de Líneas y Columnas para Copiar

Bueno no sé a que te refieras con eso.
La macro que envíe puede trabajar con 2 columnas, con 10, con 500 con 1000, también puede trabajar con 100 filas con 5000 con 500000 con 750000.

entonces debe ser con Macro programada

La macro que envié es programada.

también necesita Colar varias veces continuas, una debajo de la otra en secuencia en la hoja de cálculo 2, para guardar el historial

No lo habías comentado previamente, y creo que la macro que envíe hace exactamente lo que hace la macro de Excel que subiste.

[physic]

sigue adjunto la hoja de cálculo con los nuevos resultados de la macro ejecutada

hice un modelo con menos líneas para poder analizar más fácil

he comprobado que la macro no copia los bloques iniciales que he mencionado, A para E, I para L, U para W

la macro está copiando todas las columnas de A a W


abrazos amigo

[physic]

[RESUELTO]

gracias a todos los amigos que contribuyeron con la información


abrazos

[mauricio]

Por favor, toma nota de que la forma correcta de marcar es [RESUELTO], gracias.