Buenas,
He encontrado esta macro, y me da error (Variable de objeto no establecida) en la linea 7.
Alguien es capaz de ver donde esta el error ?
------
Dim i As Integer
Sub ChangeCellColor()
Dim d As Date
d = Now
Application.OnTime d + TimeValue("00:00:03"),"ChangeCellColor"
i = i + 1
Range("C6:C6").Interior.ColorIndex = Choose(i,3,0,3,0,3,0)
If i = 6 Then
i = 0
Application.OnTime d + TimeValue("00:00:03"),"ChangeCellColor",,False
End If
End Sub
-----
Error macro
Error macro
Saludos,
LibreOffice 7.6.1.2 en Linux Mint 21.1
LibreOffice 7.6.1.2 en Linux Mint 21.1
Re: Error macro
Buenas!
Yo normalmente me muevo con base, así que quizás escriba una burrada, pero para definir el rango, primero deberás definir dónde, es decir, el documento y la página; algo así como:
oDocumento= ThisComponent.getCurrentController
oSheet= oDocumento.getActiveSheet()
oRange = oSheet.getCellRangeByPosition(2,6,2,6) '(Corresponde con C6:C6)
Aunque también puedes llamar a la celda individualmente:
oCell=oSheet.getCellByPosition(2,6)
A ver si te sirve.
Un saludo!
Yo normalmente me muevo con base, así que quizás escriba una burrada, pero para definir el rango, primero deberás definir dónde, es decir, el documento y la página; algo así como:
oDocumento= ThisComponent.getCurrentController
oSheet= oDocumento.getActiveSheet()
oRange = oSheet.getCellRangeByPosition(2,6,2,6) '(Corresponde con C6:C6)
Aunque también puedes llamar a la celda individualmente:
oCell=oSheet.getCellByPosition(2,6)
A ver si te sirve.
Un saludo!
Openoffice 4.1.7, en Windows 10
Libreoffice 6.4.2, en Windows 10
Libreoffice 6.4.2, en Windows 10
Re: Error macro
Gracias por tu interes, pero creo que me equivoque y este macro que encontre es para Excel, tal vez por esto no funciona en LibreOffice Calc.Longi escribió:Buenas!
Yo normalmente me muevo con base, así que quizás escriba una burrada, pero para definir el rango, primero deberás definir dónde, es decir, el documento y la página; algo así como:
oDocumento= ThisComponent.getCurrentController
oSheet= oDocumento.getActiveSheet()
oRange = oSheet.getCellRangeByPosition(2,6,2,6) '(Corresponde con C6:C6)
Aunque también puedes llamar a la celda individualmente:
oCell=oSheet.getCellByPosition(2,6)
A ver si te sirve.
Un saludo!
Saludos,
LibreOffice 7.6.1.2 en Linux Mint 21.1
LibreOffice 7.6.1.2 en Linux Mint 21.1