Como pintar todo un renglon de un color en Excel con automatización

[acmc]

Hola Foxeros,

Estoy haciendo un reporte de rotación de empleados y me gustaria poder pintar todo el renglon en color verde cuando el empleado se haya dado de alta en la fecha del reporte, o pintar en rojo si el empleado se dio de baja en la fecha del reporte, pero no se exactamente como hacerlo porque me marca un error con el siguiente código.

IF BETWEEN(qempleado.fec_ing,thisform.txtfechaini.Value,thisform.txtfechafin.Value)
oexcel.range("Q"+TRANSFORM(R)).VALUE = 1
    .Range("A"+TRANSFORM(R)+":Q"+TRANSFORM(R)).Select
    .Range(Selection,Selection.End(xlToRight)).Select
    With Selection.Font
        .Color = -16776961
             .TintAndShade = 0
    ENDWITH  
ENDIF 

Me marca error en la línea que esta en color rojo.. alguna sugerencia o forma de hacerlo?

Salu2!!

[Mik]

Puedes intentar algo como esto:

Local iRow as Integer, iCols as Integer

iRow = 3

iCols = 20

SELECT MyTabla

SCAN

   iColor = IIF( MOD(RECNO('MiTabla'),2) = 0, RGB(255,255,255), RGB(0,255,0))

   oExcel.Range(oExcel.Cells(iRow, 1), oExcel.Cells(iRow, iCols)).Interior.Color = iColor

   iRow = iRow + 1

ENDSCAN

Saludos

Miguel Herbias

Lima - Peru

[Angel Perez]

Gracias Miguel, 

Ya habia resuelto el problema pero te agradezco tu ayuda

Salu2!!

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/hW2w_nCY75Y/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/3e666875-9560-47db-b616-31b04226354dn%40googlegroups.com.