Página 1 de 1

[RESUELTO] Pegar de bajo de la ultima celda ocupada

NotaPublicado: Dom May 05, 2019 9:44 pm
por 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...

Re: Pegar de bajo de la ultima celda occupada

NotaPublicado: Lun May 06, 2019 5:19 am
por FJCC-ES
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 

Re: Pegar de bajo de la ultima celda occupada

NotaPublicado: Lun May 06, 2019 11:45 am
por 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...

: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