- Apr 10, 2017
- Office Version
I am having issues getting a line after the loop that will offset 16, then look for the maximum value in that column and add 1 to it. I have been trying since and the best result was to get to that column but what it placed there was not what I needed.
With Sheet1 Set Drng = .Range ("A7") Set lrRng = .Cells (.Rows.Count, Drng.Column).End (xlUp).Offset (1, 0) lrRng.Value = Application.Max (Range(Drng, lrRng.Offset(-1, 0))) + 1 For i = 1 To 14 lrRng.Offset(0, i ).Value = Me.Controls("reg" & i + 1).Value Next i End With