Combining macros into one

oblix

Board Regular
Joined
Mar 29, 2017
Messages
98
Office Version
  1. 2010
Platform
  1. Windows
Hi there I have figured out to past values from one sheet to the other
unortunately only figured out one column at a time.
Please asisst to combine these macro as one

Sub Issue_product()
Sheets("D1").Range("bo2:bo200").Copy
Sheets("Issued").Cells(Rows.Count, "c").End(xlUp).Offset(1). _
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False
Application.CutCopyMode = False
End Sub

Sub Issue_Date()
Sheets("D1").Range("bm2:bm200").Copy
Sheets("Issued").Cells(Rows.Count, "b").End(xlUp).Offset(1). _
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False
Application.CutCopyMode = False
End Sub

Sub Issue_price()
Sheets("D1").Range("bv2:bv200").Copy
Sheets("Issued").Cells(Rows.Count, "d").End(xlUp).Offset(1). _
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False
Application.CutCopyMode = False
End Sub

Sub Issue_qty()
Sheets("D1").Range("bw2:bw200").Copy
Sheets("Issued").Cells(Rows.Count, "e").End(xlUp).Offset(1). _
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False
Application.CutCopyMode = False
End Sub
 

oblix

Board Regular
Joined
Mar 29, 2017
Messages
98
Office Version
  1. 2010
Platform
  1. Windows
Just another challenge about this topic.
The moment I change the place where I copy the data to to a named table it doesnt work anymore and wants to paste below the table.
Is there a workaround this to paste into a table and automatically adjust the dynamic table?
 

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
67,826
Office Version
  1. 365
Platform
  1. Windows
As long as you don't have blank rows in the table (which you shouldn't) then lust paste below the table & it should resize
 

oblix

Board Regular
Joined
Mar 29, 2017
Messages
98
Office Version
  1. 2010
Platform
  1. Windows
The problem is it is not pasting into the table but below the table. I have to start with a blank table first with only headings. and on a daily basis transfer info from other sheet
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
67,826
Office Version
  1. 365
Platform
  1. Windows
Then paste the data & then convert it into a table.
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
67,826
Office Version
  1. 365
Platform
  1. Windows
You're welcome.
 
Learn Excel from Bill Jelen

Understanding data is crucial, and the easiest place to start is with Microsoft Excel.

Forum statistics

Threads
1,151,576
Messages
5,765,194
Members
425,266
Latest member
CPAgirl

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
Top