VBA for data validation range

[Michael M]

Hi All
I am currently adding a data validation list to my spreadsheet.
I want to have the list range in the validation code to be dynamic as the number of lines in my spreadsheet will constantly change.
My problem is when I try to use the Lrow in my list formula it doesn't seem to work.
My way of doing the list is fairly clunky so I'd be more than happy for someone to advise a better way

lrow = Worksheets("RBE Data").Cells(Rows.Count, "C").End(xlUp).Row
    Range("C" & lrow + 6) = "Triangular"
    Range("C" & lrow + 7) = "Uniform"
    Range("C" & lrow + 8) = "Pert"
    Range("C" & lrow + 9) = "LogNorm"
    Range("C" & lrow + 10) = "PertAlt"
    Range("C" & lrow + 11) = "LogNormAlt"
    With Range("N7")
        .Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=C" & lrow + 6":C" & lrow + 11"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True

Regards
Michael M

 

[Michael M]

Hi HalfAce
My data list is at the bottom of my spreadsheet....C & lrow + 6
I want to create a validation list in N7 using this list.
But because the sheet never stays the same size, my list formula in the validation needs to address that.
When I put the formula in I keep getting and Expected End of Statement Error

Regards
Michael M

 

[Michael M]

HalfAce
I got it, I got it !!
This works perfectly.

With Range("N7").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=C" & lrow + 6 & ":C" & lrow + 11
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With

Thanks for responding
Regards
Michael M

 

[HalfAce]

Hi Michael M,
Try changing your with statement from:
With Range("N7")
.Validation
.Delete

to:
With Range("N7").Validation
.Delete

and make this slight change to your formula:
Formula1:="=C" & lrow + 6 & ":C" & lrow + 11


Hope it helps.

EDIT:
Yep, you got it while I was typing it. Good job.

 

[Michael M]

Ok, I nearly got it.
What happens when I want to copy the cells down the column.
The formula needs to be Absolute, but at the moment it's Relative

Regards
Michael M

 

[HalfAce]

Well, if you want the entire formula to be absolute, you could use this:
Formula1:="=$C$" & lrow + 6 & ":$C$" & lrow + 11

That what you mean?

 

[Michael M]

Ah! Excellent.
That's exactly what I needed

Thank you again for the input.

Regards
Michael M