[RESUELTO] Copiar celdas visibles pegar valores en otra hoja

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

[RESUELTO] Copiar celdas visibles pegar valores en otra hoja

Mensaje por 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
Última edición por physic el Mié Nov 28, 2018 6:24 pm, editado 2 veces en total.
LibreOffice 5.4.4.2 >>> Windows 7
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por mauricio »

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

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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
LibreOffice 5.4.4.2 >>> Windows 7
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por physic »

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


abrazos
LibreOffice 5.4.4.2 >>> Windows 7
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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.
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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
LibreOffice 5.4.4.2 >>> Windows 7
mriosv
Mensajes: 2334
Registrado: Sab Dic 27, 2008 1:12 am
Ubicación: Galiza (España)

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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.
Puedes usar "Subir adjunto" en Respuesta rápida - Editor Completo - Pestaña Subir adjunto
Apache OpenOffice 4, LibreOffice (Win10x64)
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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
LibreOffice 5.4.4.2 >>> Windows 7
arivas_2005
Mensajes: 162
Registrado: Mié Nov 16, 2011 6:01 pm

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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 :oops: 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!
Adjuntos
Copiar_solo_visibles.ods
(14.76 KiB) Descargado 558 veces
Libreoffice 4.7
Puppy slacko 6 y windows 7
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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
Adjuntos
Visibile.ods
(25.72 KiB) Descargado 327 veces
LibreOffice 5.4.4.2 >>> Windows 7
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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

Worksheets("Plan2")
Usas la hoja llamada Plan2
Saludos, Federico.
Adjuntos
Visibile (1).ods
copiar filas filtradas, ARCHIVO PARA OPEN CALC
(37.37 KiB) Descargado 347 veces
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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
LibreOffice 5.4.4.2 >>> Windows 7
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por 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
Adjuntos
Visibile (1).ods
(21.34 KiB) Descargado 357 veces
LibreOffice 5.4.4.2 >>> Windows 7
physic
Mensajes: 85
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Mensaje por physic »

[RESUELTO]

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


abrazos
Última edición por physic el Mié Nov 28, 2018 6:25 pm, editado 1 vez en total.
LibreOffice 5.4.4.2 >>> Windows 7
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: [Resuelto] Copiar celdas visibles pegar valores en otra

Mensaje por mauricio »

Por favor, toma nota de que la forma correcta de marcar es [RESUELTO], gracias.
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Responder