[RESUELTO] Copiar celdas visibles pegar valores en otra hoja

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[RESUELTO] Copiar celdas visibles pegar valores en otra hoja

Notapor physic » Sab Nov 17, 2018 8:28 pm

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
physic
 
Mensajes: 80
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor mauricio » Dom Nov 18, 2018 2:09 am

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
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5787
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor physic » Dom Nov 18, 2018 2:29 am

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: 80
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor physic » Lun Nov 19, 2018 11:42 am

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
physic
 
Mensajes: 80
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor mauricio » Lun Nov 19, 2018 6:07 pm

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
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5787
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor physic » Mié Nov 21, 2018 4:42 am

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
physic
 
Mensajes: 80
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor mriosv » Mié Nov 21, 2018 11:58 pm

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 5 (Win10x64)
mriosv
 
Mensajes: 2165
Registrado: Sab Dic 27, 2008 1:12 am
Ubicación: Galiza (España)

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor physic » Jue Nov 22, 2018 2:41 am

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
physic
 
Mensajes: 80
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor arivas_2005 » Vie Nov 23, 2018 4:11 am

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) 146 veces
Libreoffice 4.7
Puppy slacko 6 y windows 7
arivas_2005
 
Mensajes: 140
Registrado: Mié Nov 16, 2011 6:01 pm

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor physic » Vie Nov 23, 2018 11:57 am

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) 126 veces
LibreOffice 5.4.4.2 >>> Windows 7
physic
 
Mensajes: 80
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor fornelasa » Vie Nov 23, 2018 7:32 pm

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.
Adjuntos
Visibile (1).ods
copiar filas filtradas, ARCHIVO PARA OPEN CALC
(37.37 KiB) 125 veces
lo 6.1.2 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3174
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

Notapor physic » Vie Nov 23, 2018 8:15 pm

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
physic
 
Mensajes: 80
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor fornelasa » Vie Nov 23, 2018 9:13 pm

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.1.2 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
Avatar de Usuario
fornelasa
 
Mensajes: 3174
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

Notapor physic » Vie Nov 23, 2018 11:12 pm

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) 140 veces
LibreOffice 5.4.4.2 >>> Windows 7
physic
 
Mensajes: 80
Registrado: Lun Oct 29, 2018 12:55 am

Re: Copiar celdas visibles y pegar valores en otra hoja

Notapor physic » Dom Nov 25, 2018 9:50 pm

[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
physic
 
Mensajes: 80
Registrado: Lun Oct 29, 2018 12:55 am

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

Notapor mauricio » Mar Nov 27, 2018 3:06 pm

Por favor, toma nota de que la forma correcta de marcar es [RESUELTO], gracias.
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 6.1.5 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5787
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados