[RESUELTO] Pegar de bajo de la ultima celda ocupada

[markotxe]

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...

[FJCC-ES]

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  

[markotxe]

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