Go to cell in specific column of the active row

[Sapron75]

Hi ,

small question. What is the code for going to the cell in Column AT of that specific row.

For example : active cell is Z4 and when running macro it has to go to AT4

This is an easy one I think

Thank you

Sapron75

 

[alansidman]

Option Explicit


Sub Sapron()
    Dim r As Long
    r = ActiveCell.Row
    Range("AT" & r).Select
End Sub

 

[Sapron75]

Thank you Alan, works great !

 

[My Aswer Is This]

If your wanting to enter data in column Z and then immediately be taken to column AT same row.
And do not want to click a button to run the code try this:

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

When you enter any value in column Z you then will be taken to same row column AT

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  11/5/2019  4:36:05 AM  EDT
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Column = 26 Then Target.Offset(, 20).Select
End Sub