I'm looking to copy data from one sheet to another. The data to copy on sheet1 is in different areas and in colums but needs to go to rows. So two questions:
1). The sheet to recieve the data needs the data copied to rows. Can a range be turned horizontally from vertiacal (colum to row)?
so Sheet1.range ("b1"b4") data
to
Sheet2.range(a1:a4)
2). Any suggestions on how to place the next copied data to the next row down if the previous was already full?
Here is the code I've started with.
Appreciate any tips.
Private Sub CommandButton1_Click()
Sheets("Daily Input").Range("b1").Copy Sheets("Database").Range("A2")
Sheets("Daily Input").Range("b2").Copy Sheets("Database").Range("b2")
Sheets("Daily Input").Range("b3").Copy Sheets("Database").Range("c2")
Sheets("Daily Input").Range("b4").Copy Sheets("Database").Range("d2")
Sheets("Daily Input").Range("c7").Copy Sheets("Database").Range("e2")
Sheets("Daily Input").Range("c8").Copy Sheets("Database").Range("f2")
Sheets("Daily Input").Range("c9").Copy Sheets("Database").Range("g2")
Sheets("Daily Input").Range("b1").Value = Sheets("Database").Range("A2") + 1
Sheets("Daily Input").Range("b2").Value = ""
Sheets("Daily Input").Range("b3").Value = ""
Sheets("Daily Input").Range("b4").Value = ""
Sheets("Daily Input").Range("c7").Value = ""
Sheets("Daily Input").Range("c8").Value = ""
Sheets("Daily Input").Range("c9").Value = ""
End Sub
1). The sheet to recieve the data needs the data copied to rows. Can a range be turned horizontally from vertiacal (colum to row)?
so Sheet1.range ("b1"b4") data
to
Sheet2.range(a1:a4)
2). Any suggestions on how to place the next copied data to the next row down if the previous was already full?
Here is the code I've started with.
Appreciate any tips.
Private Sub CommandButton1_Click()
Sheets("Daily Input").Range("b1").Copy Sheets("Database").Range("A2")
Sheets("Daily Input").Range("b2").Copy Sheets("Database").Range("b2")
Sheets("Daily Input").Range("b3").Copy Sheets("Database").Range("c2")
Sheets("Daily Input").Range("b4").Copy Sheets("Database").Range("d2")
Sheets("Daily Input").Range("c7").Copy Sheets("Database").Range("e2")
Sheets("Daily Input").Range("c8").Copy Sheets("Database").Range("f2")
Sheets("Daily Input").Range("c9").Copy Sheets("Database").Range("g2")
Sheets("Daily Input").Range("b1").Value = Sheets("Database").Range("A2") + 1
Sheets("Daily Input").Range("b2").Value = ""
Sheets("Daily Input").Range("b3").Value = ""
Sheets("Daily Input").Range("b4").Value = ""
Sheets("Daily Input").Range("c7").Value = ""
Sheets("Daily Input").Range("c8").Value = ""
Sheets("Daily Input").Range("c9").Value = ""
End Sub