Copy a Button (with Macro) in 10000 Rows of a excel sheet-Shortcut method required

PritishS · Dec 29, 2015

Dear Sir/Madam,

I am new to this forum and same in excel macro VB programming. I need some expert advise.
My Requirement:

a. My first requirement was copy data from one sheet to another using a button. I have found the macro code for that in this forum.
b. Secondly, that same button should paste data in next row. That also I found in this forum.
c. My Final requirement is--Now I have a excel workbook, which have approx 10000 rows in sheet 1 and similarly total 90 sheets are there. Now I have used same button to copy a row( example-B4:E4) of data and paste them in sheet 91.
Again I have used the same button to copy (B5:E5) to sheet 91. But I had to write the macro again for button2 and change range (ex-B5:E5) manually.
If I try to do the same for 10000 of rows and 90 sheets, it might have took many years.

Is there any method, I can use that button multiple times where it should automatically take the sheet name and row data range?

Please help me on this matter. Thanks in advance.

PritishS · Jan 4, 2016

Hi,

I just found an alternative way for my problem. As it seems it is difficult, I was looking for another method with a single button. By clicking it, it should send selected data to a particular sheet.
I'm just a beginner, so I thought to share my solution with everyone who needs it.

description:

1. There will be a button say-'Add to cart'. and there will be another sheet named 'Cart' at the end of the same excel workbook. Now for example I have selected some data (3 rows & 4 columns) at sheet1 and clicked on 'Add to cart button'. Those data will be added to 'Cart' sheet in a predefined rows. Also If I do the same thing on sheet5, selected data of sheet5 will be added to 'Cart' sheet below the previous selected data.
here is the code:

 Sub copybutton_Click()
Dim xlSel As Excel.Range

Set xlSel = Excel.Application.Selection
xlSel.Copy Excel.Application.Sheets("BOM").Range("A" & Rows.Count).End(xlUp).Offset(1)

Application.CutCopyMode = False


End Sub

Hope this will help somebody who needs it.

Have a nice day

Thanks & Regards
PRITISH

Copy a Button (with Macro) in 10000 Rows of a excel sheet-Shortcut method required

PritishS

Board Regular

Excel Facts

PritishS

Board Regular

Similar threads

Forum statistics

Share this page

Copy a Button (with Macro) in 10000 Rows of a excel sheet-Shortcut method required

PritishS

Board Regular

Excel Facts

PritishS

Board Regular

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock