Bom dia a todos...
Estou comum problema em um script, não sei se estou fazendo certo, por isso
peço a ajuda de vcs.
Tenho o seguinte código:
function TfrmQILaser.udf_VerificaSentido( tlin : integer ) : integer;
var
i : integer;
kmInicial, kmFinal : double;
colI, colF : String;
begin
Excel.WorkBooks[1].Sheets['5406'].select;
kmInicial := Excel.WorkBooks[1].Sheets['5406'].cells[1,2].value;
kmFinal := Excel.WorkBooks[1].Sheets['5406'].cells[1,3].value;
colI := 'B2';
colF := 'F' + intToStr(tlin - 9);
if (kmInicial > kmFinal) then
begin
Excel.WorkBooks[1].Sheets['5406'].range[ColI +':'+ ColF].select;
///////O problema é nesta parte////
Excel.WorkBooks[1].Sheets['5406'].range[ColI +':'+
ColF].xlDescending;
////////////
end
;
end;
Depois de selecionar gostaria de deixar na ordem decrescente, ou crecente, como
referencia apenas a coluna "B".
