T-ex,
You are right this is exactly what I am looking for. However, when I typed
new data in sheet1 it is overwriting it in sheet2. I wonder if the new data
can be written in the following empty row of sheet2.

I will really appreciate your helping me with this matter.
Thanks again for your support

Best regards.
Maperalia

"T-®ex" wrote:


Hi Maperalia! I'm not very sure about your problem, but, maybe this
excercise will give you ideas...

I'm assuming Sheet1 is where you type in your data and Sheet2 is where
you get the "transposed" results.

In Sheet1 (VBA editor), put this code:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.Cells(Target.Column, Target.Row) = Target.Value
End Sub

The code above will transpose the data to Sheet2.

If you enter in Sheet1:
A1 - "hello"
B1 - "world"
C1 - "hello"
D1 - "vba"

Sheet2 will have:
A1 - "hello"
A2 - "world"
A3 - "hello"
A4 - "vba"

But, (the side-effect) if you enter in Sheet1:
A1 - "hello"
A2 - "world"
A3 - "hello"
A4 - "vba"

Sheet2 will have:
A1 - "hello"
B1 - "world"
C1 - "hello"
D1 - "vba"



maperalia Wrote:
How the code will be written if the data from sheet1 is located in the
following cells:
A1
B1
C1
D1
Then I want this data to written in the following cells of the sheet2:
A1,A2,A3,A4

Thanks in advance....

Maperalia



i
"PY & Associates" wrote:

You did not indicate where to copy to. Meanwhile, how is this?

Range(ActiveCell, ActiveCell.End(xlDown)).EntireRow.copy
sheets(2).range("....)
YOu do not need looping


"cunning" wrote:


How would I go about coding a Loop to read rows of data from Sheet1
then
write the data to Sheet2 until an empty row is encountered?

Thanks for any assistance.


--
cunning

------------------------------------------------------------------------
cunning's Profile:
http://www.excelforum.com/member.php...o&userid=26738
View this thread:
http://www.excelforum.com/showthread...hreadid=399965




--
T-®ex
------------------------------------------------------------------------
T-®ex's Profile: http://www.excelforum.com/member.php...o&userid=26572
View this thread: http://www.excelforum.com/showthread...hreadid=399965