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...
[RESUELTO] Pegar de bajo de la ultima celda ocupada
[RESUELTO] Pegar de bajo de la ultima celda ocupada
- Adjuntos
-
- Copier-Coller.ods
- (12.94 KiB) Descargado 169 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
Re: Pegar de bajo de la ultima celda occupada
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
Re: Pegar de bajo de la ultima celda occupada
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
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
OpenOffice 4.1.5 CALC, Window10