Write validation info to a Cell

**minifreak** · 09-04-2012, 08:16 AM

I know how to write data (xxx) to the first available empty cel in kolom A on a worksheet by using this code below:

Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = xxx

I also found a piece of code that writes Validation to a specific Cell

Sub Add_Cell_Input_Message_Cell()

With Range("A1").Validation
.Add Type:=xlValidateInputOnly
.InputTitle = "Message Title Goes Here"
.InputMessage = "Message Contents Go Here"
End With

End Sub

Is it possible to combine these two codes so that data xxx is written to the next available cell in kolom A on a worksheet AND write the validation info to the same cell also ???

**stojko89** · 09-04-2012, 08:23 AM

Try this, not sure it will work though and change the validation settings

Sub validation()
Dim r As Range
Set r = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
With r.Validation
.Add Type:=xlValidateInputOnly
.InputTitle = "Message Title Goes Here"
.InputMessage = "Message Contents Go Here"
End With
r.Value = "xxx"
End Sub