Estoy intentando editar un texto (por ej en B8) desde una macro con la condición de que: Si la celda (B8) esta ocupada, entonces se debería editar 3 celdas mas abajo. (y así en boucle...)
He encontrado este código que cumple con la condición deseada pero no consigo adaptarlo a un string.
Código: Seleccionar todo
Sub AA
Dim Doc as Object
Dim Hoja as Object
Dim Nombre as String
Dim Destino as Object
Doc = ThisComponent
Hoja = Doc.Sheets.GetByName("Kronos")
Nombre = "AA"
for i = 7 To 133 step 3
Destino = Feuille.getCellByPosition(1,i)
if Destino.String = "" Then
Hoja.copyrange(Destino.CellAddress, Nombre.String) ''El mensaje de error aparece aqui
exit for
end if
next
End Sub
Muchas Gracias por vuestra atención.
Amicalmente, Marc