Collective data from Worksheet 1 to Worksheet 2

R

RexcelG

New Member
Joined
Apr 22, 2008
Messages
34
Data is entered in Worksheet 1 every week. I want a collection of data entered and added to the next row automatically from Worksheet 1 onto Worksheet 2 everytime I enter data on Worksheet 1.
(Week 1)
WS1.....WS2
1/1.......1/1
1...........1
5...........5
9...........9
7...........7
5...........5
(Week 2)
WS1.....WS2..........
1/7.......1/1.......1/7
5...........1...........5
4...........5...........4
6...........9...........6
3...........7...........3
7...........5...........7
(Week 3)
WS1.....WS2......................
1/14.....1/1........1/7.......1/14
8...........1...........5...........8
7...........5...........4...........7
1...........9...........6...........1
9...........7...........3...........9
8...........5...........7...........8
 

Excel Facts

How to calculate loan payments in Excel?
Use the PMT function: =PMT(5%/12,60,-25000) is for a $25,000 loan, 5% annual interest, 60 month loan.
Sort by date Sort by votes
RexcelG said:
Data is entered in Worksheet 1 every week. I want a collection of data entered and added to the next row automatically from Worksheet 1 onto Worksheet 2 everytime I enter data on Worksheet 1.
(Week 1)
WS1.....WS2
1/1.......1/1
1...........1
5...........5
9...........9
7...........7
5...........5
(Week 2)
WS1.....WS2..........
1/7.......1/1.......1/7
5...........1...........5
4...........5...........4
6...........9...........6
3...........7...........3
7...........5...........7
(Week 3)
WS1.....WS2......................
1/14.....1/1........1/7.......1/14
8...........1...........5...........8
7...........5...........4...........7
1...........9...........6...........1
9...........7...........3...........9
8...........5...........7...........8
Click to expand...

Sorry. Here's the Cross-post:
http://www.excelforum.com/showthread.php?p=1913517#post1913517
 
Upvote 0
try
1) add CommandButton (CommandButton1) onto the sheet from ControlToolBox
2) paste the code onto the sheet module
Code: 
Private Sub CommandButton1_Click()
Dim LastC As Range
With Sheets("Sheet2")
    Set LastC = .Range("a1")
    If Not IsEmpty(LastC) Then Set LastC = .Cells(1, Columns.Count).End(xlToLeft).Offset(,1)
End With
With Me.Columns(1)
    LastC.EntireColumn.Value = .Value
    .ClearContents
End With
Set LastC = Nothing
End Sub
 
Upvote 0
OK so I added a CommandButton onto the sheet from ControlToolbox and pasted the code into the sheet module, but now what. This would be my first time touching this aspect of excel, so I don't know where to go from pasting the code on the sheet module. haha.
 
Upvote 0
RexcelG said:
OK so I added a CommandButton onto the sheet from ControlToolbox and pasted the code into the sheet module, but now what. This would be my first time touching this aspect of excel, so I don't know where to go from pasting the code on the sheet module. haha.
Click to expand...
Then simply go back to the sheet and click the button.
 
Upvote 0
Thanks a lot for your help jindon, but I can't use this because my macros is supposed to stay at a high security level. I have to find another way, but i don't think there is without macros.
 
Upvote 0
You must log in or register to reply here.

Similar threads

K
  • Solved
Need help consolidating data from 3 columns. I have a VBA code for QTY but the last column will now be data instead, how do I change code?
2
Replies
10
Views
534
rlv01
R
M
  • Question
Gaps between top 2 and winthin groups...
Replies
2
Views
185
mikesal57
M
P
  • Solved
Add additional check
Replies
8
Views
332
Joe4
Joe4
B
  • Question
Comparing two sheets for differences in rows and copy to different sheet
Replies
3
Views
733
Brutusar
B
A
  • Question
runtime error 6 overflow, macro to create table
Replies
8
Views
311
atditiljazi
A

Forum statistics

Threads
1,215,398
Messages
6,124,688
Members
449,179
Latest member
kfhw720

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top