My code:
Code: Select all
dv := xlsreadwrite.Sheets[0].Validations.Add;
with dv do
begin
Formula1 := '$R$275:$R$276';
Sqref.Add(0, 0);
ShowDropDown := True;
Type_ := x12dvtList;
AllowBlank := False;
end;
If someone could help me by pointing what is required to do additionally to get this working, I'd be grateful.
TIA.