Apache OpenOffice: Foro oficial de la comunidad

Publicado: **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...

Publicado: **Lun May 06, 2019 5:19 am**

Código: Seleccionar todo

'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

Publicado: **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...

Chapeau Señor!!!

Y muchissimas gracias

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

Amicalmente, Marc

Apache OpenOffice: Foro oficial de la comunidad

[RESUELTO] Pegar de bajo de la ultima celda ocupada

[RESUELTO] Pegar de bajo de la ultima celda ocupada

Re: Pegar de bajo de la ultima celda occupada

Re: Pegar de bajo de la ultima celda occupada