Keyboard shortcut to get to the next changing text in a column

**Helal** · 10-24-2012, 03:36 PM

is there a keyboard shortcut to reach to the next changing text in a column. For example:
if I have the following data in column A:
X
X
X
Y
Y
Y
Y
Z
Z
Z

How to do I get from X at top (A2) to first instance of Y and then first instance of Z with keyboard shortcut?

Thanks,

**Dave H9** · 10-25-2012, 05:36 AM

I don't think there is a shortcut for this, only last used cell in range.

Dave H

**Helal** · 10-25-2012, 10:45 AM

Thanks Dave...but I have seen it somewhere, stored it in a file and lost the file!

**Dave H9** · 10-26-2012, 09:14 AM

Hi Helal,

After a bit of searching I have found you a solution.

Open the code window and put this in the Workbook object -

Option Explicit
Private Sub Workbook_Open()
Application.OnKey "^m", "nxt_differ" ' the ^m is the shortcut ie Ctrl + m
End Sub

Insert a new module and put this in -

Sub nxt_differ()
Dim cell1 As String
Dim cell2 As String

startpoint:
cell1 = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
cell2 = ActiveCell.Value
If cell1 = "" Then
    Exit Sub
End If
If cell1 = cell2 Then
    GoTo startpoint
Else
    Exit Sub
End If

End Sub

Hope that is the solution you are after

Dave H