Macro to post data to next line.

[caprioftoday2000]

Hi,

I am in a process of creating a excel based productivity for my team. This workbook has 2 worksheet, one is QA productivity tracker which is accessible to all, after the information is filled i want to store it daywise in a master tracker (next worksheet).


i have created a macro which copies the information to master sheet, but the challenge i am facing is that at every execution, macro should paste the data in next row.

Can someone pls help me with the logic.

Thnx.

 

[Sal Paradise]

Hi,

I am in a process of creating a excel based productivity for my team. This workbook has 2 worksheet, one is QA productivity tracker which is accessible to all, after the information is filled i want to store it daywise in a master tracker (next worksheet).


i have created a macro which copies the information to master sheet, but the challenge i am facing is that at every execution, macro should paste the data in next row.

Can someone pls help me with the logic.

Thnx.

Assuming that you just have a list of data starting at the top and moving down one row each time, with no rows below the last line of data, you can use something like:

Range("A65535").End(xlUp).Row

That will tell you the row of the last entry in the master file (looking up from the last row in Excel 2003), and then you can adjust your paste macro accordingly.

 

[TKB]

Hi,

I am in a process of creating a excel based productivity for my team. This workbook has 2 worksheet, one is QA productivity tracker which is accessible to all, after the information is filled i want to store it daywise in a master tracker (next worksheet).


i have created a macro which copies the information to master sheet, but the challenge i am facing is that at every execution, macro should paste the data in next row.

Can someone pls help me with the logic.

Thnx.

Is the row that this is being copied to always blank?

If it is you can do a loop if then statement:

Range("A1").Select

'This will find the next blank cell and assumes that the information copied over does not have any empty rows

Do Until ActiveCell.Value = ""

ActiveCell.Offset(1,0)

Loop

'Paste copied information

ActiveSheet.Paste

Someone with more knowledge will probably have a better way to do this, but its a start