Do something when specific cell selected

[excelliot]

Hi can i have code fordoing something when specific cell selected?

[Ken Puls]

Hi there,

Something like this?

[vba]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$4" Then
MsgBox "Cell A4 has just been selected!"
End If
End Sub[/vba]

Must be placed in the code module for the worksheet you want it to work on.

[excelliot]

Yes like that only thanks

[Ken Puls]

You're welcome!

[excelliot]

One problem in thuis code

I'm unnble to perform cut & paste

[mdmackillop]

This works for me.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$4" Then
        DoMove
    End If
End Sub
Sub DoMove()
    Application.EnableEvents = False
    Range("C4:C7").Cut
    Range("E4").Select
    ActiveSheet.Paste
    Application.EnableEvents = True
End Sub

[excelliot]

see this file containing macro

i am not able to perform cut(ctrl+x) & paste (ctrl+v) option after having this macro

[mdmackillop]

You have some logic problems here

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        Application.MoveAfterReturnDirection = xlToLeft
    Else
        Application.MoveAfterReturnDirection = xlDown
    End If
End Sub

Moving into cell A2 does change the direction to left, but you cannot go left. Clicking in any other cell returns the move direction to down.

Regarding the cut and paste, you do not show this bit of your code, but you need the Events disabled to prevent the worksheet change event ocurring when you select the cell where the code is to be pasted.

[excelliot]

I think u r not getting me

after using above code general cut & paste function is not working

see file submitted by me for detail

[mdmackillop]

I see now! Sorry, I've no idea why this is happening, but maybe someone else can help.

For some reason it seems the cut/copied value is being lost from the clipboard when the Application line runs. I've tried Application.Calculate as well and the same problem occurs.

[mdmackillop]

I reposted your question here, for more assistance.
http://www.vbaexpress.com/forum/showthread.php?t=4650
It just seems to be the way the system works that is causing your problem
Regards
Malcolm