..... SELECT 0000 AS RB, &lcFieldList FROM OBJEKT into cursor gg WHERE &koje NOFILTER * SELECT 0 USE DBF('gg') AGAIN ALIAS ggsn go top SCAN _mB = _mB + 1 replace Rb with _mB * FOR nCnt = 3 TO FCOUNT() IF ISNULL( EVALUATE(FIELD(nCnt)) ) replace (FIELD(nCnt)) WITH CTOD(" . . ") && TTOD(SYS(4201)) && TTOD(CTOT("/:")) ENDIF ENDFOR * _da=.F. ENDSCAN go top *REPLACE ALL Rb WITH RECNO() * _VFP.DATATOCLIP('gg',,3) * USE IN ( SELECT("gg") ) USE IN ( SELECT("ggsn") ) * .... .... .... .... WITH oExcel * .Range( "C4", .ActiveCell.SpecialCells(11) ).Select With .selection.cells && .Activesheet.UsedRange.Cells IF ISNULL(.value) .value = DATE() ENDIF Endwith ENDWITH *Again: