Copy/Paste Row
Dear All I am new to VBA, I would be very grateful if you can provide a scrip for me :) This is my case, I have two worksheets. Worksheet A has a button an Worksheet B has 5 rows record. What I want is, if I press the button on Worksheet A it will copy th LAST row on Worksheet B and paste it 10 to 20 down =================================== WORKSHEET BUTTON <-------- When button pressed WORKSHEET 12 34 45 12 45 18 74 55 32 46 14 67 85 52 75 13 34 44 34 45 34 86 67 52 35 <------copy this row row 1 ......................... row 2 ......................... row 3 ......................... row 4 ......................... row 5 ......................... row 6 ......................... row 7 ......................... row 8 ......................... row 9 ......................... row 10 ......................... 34 86 67 52 35 <------ paste it after row 10 =================================== Can anyone give me a VBA script using "CommandButton1_Click()" o Worksheet A to satisfy the copy/paste purpose on Worksheet B. Than you very much!! Thanks in advance Violaplaye -- Violaplaye ----------------------------------------------------------------------- Violaplayer's Profile: http://www.excelforum.com/member.php...fo&userid=1621 View this thread: http://www.excelforum.com/showthread.php?threadid=27783 |
Copy/Paste Row
The following should do it (copy as all one line in your module and change
the sheet name appropriately): Sheets("Sheet_B_Name").Range("A65536").End(xlUp).C opy Destination:=Sheets("Sheet_B_Name").Range("A65536" ).End(xlUp).Offset(10, 0) NOTE: This will only work if nothing else resides below your data in the sheet. "Violaplayer" wrote: Dear All I am new to VBA, I would be very grateful if you can provide a script for me :) This is my case, I have two worksheets. Worksheet A has a button and Worksheet B has 5 rows record. What I want is, if I press the button on Worksheet A it will copy the LAST row on Worksheet B and paste it 10 to 20 down =================================== WORKSHEET A BUTTON <-------- When button pressed WORKSHEET B 12 34 45 12 45 18 74 55 32 46 14 67 85 52 75 13 34 44 34 45 34 86 67 52 35 <------copy this row row 1 ......................... row 2 ......................... row 3 ......................... row 4 ......................... row 5 ......................... row 6 ......................... row 7 ......................... row 8 ......................... row 9 ......................... row 10 ......................... 34 86 67 52 35 <------ paste it after row 10 =================================== Can anyone give me a VBA script using "CommandButton1_Click()" on Worksheet A to satisfy the copy/paste purpose on Worksheet B. Thank you very much!! Thanks in advance Violaplayer -- Violaplayer ------------------------------------------------------------------------ Violaplayer's Profile: http://www.excelforum.com/member.php...o&userid=16211 View this thread: http://www.excelforum.com/showthread...hreadid=277836 |
Copy/Paste Row
Sorry, the other version only copies the cell, the one below copies the
entire row: Sheets(2).Range("A65536").End(xlUp).EntireRow.Copy Destination:=Sheets(2).Range("A65536").End(xlUp).O ffset(10, 0) Hope this helps. "Violaplayer" wrote: Dear All I am new to VBA, I would be very grateful if you can provide a script for me :) This is my case, I have two worksheets. Worksheet A has a button and Worksheet B has 5 rows record. What I want is, if I press the button on Worksheet A it will copy the LAST row on Worksheet B and paste it 10 to 20 down =================================== WORKSHEET A BUTTON <-------- When button pressed WORKSHEET B 12 34 45 12 45 18 74 55 32 46 14 67 85 52 75 13 34 44 34 45 34 86 67 52 35 <------copy this row row 1 ......................... row 2 ......................... row 3 ......................... row 4 ......................... row 5 ......................... row 6 ......................... row 7 ......................... row 8 ......................... row 9 ......................... row 10 ......................... 34 86 67 52 35 <------ paste it after row 10 =================================== Can anyone give me a VBA script using "CommandButton1_Click()" on Worksheet A to satisfy the copy/paste purpose on Worksheet B. Thank you very much!! Thanks in advance Violaplayer -- Violaplayer ------------------------------------------------------------------------ Violaplayer's Profile: http://www.excelforum.com/member.php...o&userid=16211 View this thread: http://www.excelforum.com/showthread...hreadid=277836 |
All times are GMT +1. The time now is 03:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com