Copy text from cell to cell with one cell changing text
Put the following in Sheet1 worksheet code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B1"), Target) Is Nothing Then
Exit Sub
End If
n = Sheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row + 1
If n < 3 Then
n = 3
End If
Set r2 = Sheets("Sheet2").Cells(n, "C")
Target.Copy r2
End Sub
--
Gary''s Student
gsnu200710
"Bobby" wrote:
I want to copy text from cell Sheet1 B1 to cell Sheet2 C3. Then when text is
changed in cell Sheet1 B1 the new text is copied to next cell in Sheet2
columnC (cell C4) and so on.
|