Last needed info (validation)

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Turquoise_dax - 22 Jun 2006 17:20 GMT

Here is the code with the missing link!
What I want to do is activate a validation list (Named "Comply") in
every cell to the right of a cell containing "I" in the B column...

Anyone knows what goes in the (...)?

Dim cell As Range
For Each cell In Range("B:B")
If cell = "I" Then cell.Offset(0, 1).(....)
Next

Signature

Turquoise_dax

Reply to this Message

Bob Phillips - 22 Jun 2006 18:11 GMT

Dim cell As Range
For Each cell In Range("B:B")
If cell = "I" Then
With cell.Offset(0, 1)
On Error Resume Next
.Validation.Delete
On Error GoTo 0
.Validation.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Formula1:="=Comply"
End With
End If
Next cell

Signature

HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

> Here is the code with the missing link!
> What I want to do is activate a validation list (Named "Comply") in
[quoted text clipped - 6 lines]
> If cell = "I" Then cell.Offset(0, 1).(....)
> Next

Reply to this Message