[RESUELTO] Pegar de bajo de la ultima celda ocupada

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

[RESUELTO] Pegar de bajo de la ultima celda ocupada

Notapor markotxe » Dom May 05, 2019 9:44 pm

Buenas noche,

He solicitado una ayuda hace unos minutos y siguiendo las reglas del foro me dirijo así a ustedes para presentar otro problema.

Me gustaría esta vez, copiar un valor (por ej: en C8) y pegarlo de bajo de la ultima celda ocupada de la línea 8

Abajo encontrareis un doc que sabra (espero) estar mas explicito.
Gracias por vuestra atención.






PD: No me atrevo a poner aquí los codigo que he intentado...
Adjuntos
Copier-Coller.ods
(12.94 KiB) 32 veces
Última edición por markotxe el Lun May 06, 2019 11:35 am, editado 1 vez en total
OpenOffice 4.1.5 CALC, Window10
markotxe
 
Mensajes: 9
Registrado: Jue May 02, 2019 9:47 am

Re: Pegar de bajo de la ultima celda occupada

Notapor FJCC-ES » Lun May 06, 2019 5:19 am

Código: Seleccionar todo   Expandir vistaContraer vista
'Option Explicit

sub CopiarPegar
Dim MiDoc As Object, Hoja As Object
Dim Fuente As Object, Destino As Object
Dim i As Long
MiDoc = ThisComponent
Hoja = MiDoc.Sheets.GetByName("Kronos")
Fuente = Hoja.getCellRangeByName("C8")
Rows = Hoja.getRows()
Row8 = Rows.getByIndex(7)
CeldasOccup = Row8.queryContentCells(23) '23 = numero o fecha o texto o formula
Rango = CeldasOccup.getByIndex(CeldasOccup.Count - 1)
Celda = Hoja.getCellByPosition(Rango.RangeAddress.EndColumn, 8)
Celda.Value = Fuente.Value
Celda.NumberFormat = Fuente.NumberFormat

end sub 
FJCC-ES
 
Mensajes: 682
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Pegar de bajo de la ultima celda occupada

Notapor markotxe » Lun May 06, 2019 11:45 am

Hola FJCC-ES,
Una vez más su código funciona perfectamente, una vez más (por tercera vez...) me dais la oportunidad de seguir con mi proyecto.
Si me lo permite, nombraría una de las macros con su pseudo...

:bravo: Chapeau Señor!!!

Y muchissimas gracias

PD: Me queda assimilar bien estos dos codigos (Que adjunto de este paso a mi biblioteca).


Amicalmente, Marc
OpenOffice 4.1.5 CALC, Window10
markotxe
 
Mensajes: 9
Registrado: Jue May 02, 2019 9:47 am


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado