Offset Challenge

kelly mort

Well-known Member
Joined
Apr 10, 2017
Messages
1,796
Office Version
  1. 2016
Platform
  1. Windows
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.

Please help::confused:

Code:
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
 

Some videos you may like

Excel Facts

What do {} around a formula in the formula bar mean?
{Formula} means the formula was entered using Ctrl+Shift+Enter signifying an old-style array formula.

Watch MrExcel Video

Forum statistics

Threads
1,108,973
Messages
5,525,983
Members
409,673
Latest member
Riseee

This Week's Hot Topics

Top