Macro to copy text upon entry into cell
 

Greetings,

I have a column labeled COMMENTS on Pg 1. I am attempting to write a macro
that will copy the text entered into a cell on Pg 1 comment column, to the
next empty cell on a Pg 2 comment column.

I also want to copy the info from column 1 of the Pg 1 comment row to
another column, same row, as Pg 2 copied comment.

Thanks for any help as I start putting the VB "pieces of the puzzle"
together. I have a strategy. Now I am working on programming methodology.
Thanks, -Randy

Macro to copy text upon entry into cell
 

name range the "comment" cell page1.comment and the "info" cell as page1.info

ad this code to a standard module

Option Explicit

Sub MoveComment()
Dim sComment As String
Dim sInfo As String
Dim rw As Long

With Worksheets("page1")
sComment = .Range("page1.comment").Value
sInfo = .Range("page1.info").Value
End With

If sComment < "" And sInfo < "" Then



With Worksheets("page2")
rw = .Range("A65000").End(xlUp).Row + 1

.Cells(rw, 1).Value = sComment
.Cells(rw, 2).Value = sInfo


End With

End If

End Sub

for example
you could call this automatically using the sheets CHANGE event...test if
both cells have data, if they do, call the sub above.


"RAP" wrote:

Greetings,

I have a column labeled COMMENTS on Pg 1. I am attempting to write a macro
that will copy the text entered into a cell on Pg 1 comment column, to the
next empty cell on a Pg 2 comment column.

I also want to copy the info from column 1 of the Pg 1 comment row to
another column, same row, as Pg 2 copied comment.

Thanks for any help as I start putting the VB "pieces of the puzzle"
together. I have a strategy. Now I am working on programming methodology.
Thanks, -Randy