entering data in row from column

J

jeff

Hi, Jenn,

Try this. Paste the macro below in your Sheet1
code (rightclick on tab and select view code).
It puts any value entered in cells a1 to c3 in
Sheet2 cells c1 to a3 (transposed row/col)
Adjust as necessary.

jeff


Private Sub Worksheet_Change(ByVal Target As Range)
Dim vLu As Variant
Dim rw, col As Integer
If Intersect(Target, Me.Range("a1:c3")) Is Nothing Then
Exit Sub
rw = Target.Row
col = Target.Column
vLu = Target
Worksheets("Sheet2").Cells(col, rw).Value = vLu
End Sub
 
Top