Mis conocimientos en macro son muy pobres y me enfrento a problemas muy básicos.
Me gustaría copiar el valor de una celda (por ej en "C8") y pegarla en la primera celda vacía de la misma línea.
Mis investigaciones, me han llevado a este código que me da vergüenza presentaros
Código: Seleccionar todo
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")
for i = 4 To 133 step 1
Destino = Hoja.getCellByPosition(i,7)
Hoja.copyRange(Destino.CellAddress, Fuente.RangeAddress)
exit for
next
end sub
Gracias por vuestra atención