Its been a while,
I have a column of order references so: MVC01, MVC02, MVC03, MVC03A, MVC04, MVC04A
I want to be able to add a new entry in order, so MVC02A goes after MVC02. or if it is a new entry goes to the end. I want to insert a new row as opposed to move cells down.
ive looked at match functions but that is using numbers, I saw a crazy long function for a string but thought there must be an easy way????
this is what I have:
Private Sub locaterow()
Dim ianswer As String
Dim i%, m
ianswer = InputBox("oi")
With Range("A:A")
i = .Row
m = Application.Match(ianswer, .Value, 1)
m = Application.Match
If Not IsError(m) Then i = .Cells(1, 1).Offset(m).Row
End With
MsgBox i
End Sub
any help much appreciated
Thanks
Jim
Bookmarks