Formula to output Column No. after Enter is pressed?

[omairhe]

Hey everyone,

What formula can give me the column number of where the enter key has been pressed after editing the cell's value. My workbook is set on automatic calculations. Please note that the formula will be residing in the sheet named = Hosting , whereas it should be detecting the Enter pressed in other Sheets and thus output the column No. in numerals. perhaps a VBA to do the job?

Demonstration of the requirement:

Workbook = Project Glass
Worksheet = ABCName
Cell ref = E6
E6 = 23

User edits the above and Enter key is pressed:

Workbook = Project Glass
Worksheet = ABCName
Cell ref = E6
E6 = 50

Requirement /Output:

Workbook = Project Glass
Worksheet = Hosting
Cell ref = A1
A1 = 5

In the above example the cell A1 had the formula for extracting column which in this case was column no. 5 (for example E6)


Thank you and will appreciate any help.

 

[DanteAmor]

Put the following code in the events of your sheet "ABCName"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    col = Target.Column
    Sheets("Hosting").Range("A1").Value = col
End Sub

I hope this help you

 

[omairhe]

Put the following code in the events of your sheet "ABCName"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    col = Target.Column
    Sheets("Hosting").Range("A1").Value = col
End Sub

I hope this help you

Perfect. Would it be possible if the code be altered so that it could work for all other worksheets in the workbook and not just ABCName?

Thank you.

 

[DanteAmor]

Remove that event and put the following event in the ThisWorkook events

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Sh.Name = "Hosting" Then Exit Sub
    col = Target.Column
    Application.EnableEvents = False
    Sheets("Hosting").Range("A1").Value = col
    Application.EnableEvents = True
End Sub