macros for trigering events on focus loose

[nattynids]

I want to know, can we write a macro that does some acton when we loses our focus from one cell.
To be precise, i have column A which has some values. Now the moment the focus is shifted from any row of column value A, the value in that row of column A should get cpoied to same row of column B.
is it possible to do so or i have to write a macro that cpies the entire content of column A at once?

 

[MrsGKL]

Not sure exactly what lose focus means. Maybe activecell would work?

 

[Dryver14]

If you mean the moment you put a figure in col a and step down you also want that that number/letter in col b then you could just type

=A1 in cell B1 and drag the formula down

 

[nattynids]

Not sure exactly what lose focus means. Maybe activecell would work?

I am new to macros.. I have no idea how active cell works. Can you please give me an example

 

[syntaxed]

Not sure I understand completely what you want to achieve but the following code may help:

Private colA As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Set colA = Target
    Else
        Cells(colA.Row, "B") = colA.Value
    End If
End Sub

 

[nattynids]

Not sure I understand completely what you want to achieve but the following code may help:

Private colA As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Set colA = Target
    Else
        Cells(colA.Row, "B") = colA.Value
    End If
End Sub

hey, thanks for a quick reply.
But now i have one more query before running this.
i have copied this in Macro1 & renamed this macro.
But now it does not show me Macro1 in the list of macros to be run.
Similar thing was happening when i tried some other code from net.
i am not abe to undrstand what m i missing?

 

[syntaxed]

This sub won't be visible under macros. It's set to Private. You will have to paste it like this:

1. Right-click the sheet for which you want this to apply
2. Left-click "View Code"
3. Paste the code in the window that appears
4. Now when you go back to the sheet and change selections, you will get your desired result. There's no need for you to run the macro manually.

 

[syntaxed]

Under no circumstances should you rename this macro. Keep it as:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

[nattynids]

Under no circumstances should you rename this macro. Keep it as:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

i was in some training so couldn't try this earlier.
It works great thanks. Te only problem is that it copies data from col A to col B only in the scenerio when we move our cursor from col A to col B. If i move my cursor from A1 to A2, it does not copies anything.

 

[syntaxed]

Replace the earlier code with this:

Private colA As Range
Private prevA As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If prevA = True Then Cells(colA.Row, "B") = colA.Value
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Set colA = Target
        prevA = True
    Else
        prevA = False
    End If
End Sub