Move cell to same cell on another sheet

[andrew9993]

If I have a cell selected and I click my macro,
how would I make it so It moves the text within the current cell to the exact same cell on another sheet?

e.g. C3 on sheet #1 - MOVED TO - to C3 on sheet #2
etc

thanks in advance

 

[repairman615]

Hello,

Welcome to the board!

This uses a sheet named "Sheet2":

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> MoveToSameCell()<br><br>Sheets("Sheet2").Range("C3").Value = ActiveCell.Value<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

If the sheet is named different and you would like to use the index number then:
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> MoveToSameCell()<br><br>Sheets(2).Range("C3").Value = ActiveCell.Value<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Does that do what you would like?

 

[SteveO59L]

Not sure what you mean by "Moved", but try

Sheets("sheet2").Range("a1") = Sheets("sheet1").Range("a1")

 

[doofusboy]

If you paste this code into Sheet1 it should do what you asked.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Application.Intersect(Target, Sheet1.Range("C3")) Is Nothing Then
        Target.Cut (Sheets("Sheet2").Range("C3"))
    End If
 
End Sub

 

[JamesW]

Hi,

Welcome to the board.

Can you post your macro on here using

tags?

Without seeing your current macro, this is a guess:

    myRange = "C3"
    Range(myRange).Cut Destination:=Sheets("Sheet2").Range(myRange)

 

[repairman615]

Here is another way that would take any cell that is the active cell and move to the same cell on Sheet2. This does uses sheet2 by the index.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> MoveToSameCellOnSheet2()<br><br>Sheets(2).Range(ActiveCell.Address).Value = ActiveCell.Value<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[repairman615]

Noticed the "Moved" keyword. This line before End Sub will clear the activecell.

<font face=Courier New>ActiveCell.ClearContents <SPAN style="color:#007F00">'''Delete selected cells contents.</SPAN><br></FONT>

 

[andrew9993]

thank you heaps everyone...

this one worked perfect for me
much appreciated

Sub MoveToSameCellOnSheet2()

Sheets(2).Range(ActiveCell.Address).Value = ActiveCell.Value

End Sub