Combining macros into one

oblix

Board Regular
Joined
Mar 29, 2017
Messages
183
Office Version
  1. 365
  2. 2021
  3. 2019
  4. 2016
  5. 2013
  6. 2011
  7. 2010
  8. 2007
  9. 2003 or older
Platform
  1. Windows
  2. MacOS
  3. Mobile
  4. Web
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
 
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?
 
Upvote 0

Excel Facts

Highlight Duplicates
Home, Conditional Formatting, Highlight Cells, Duplicate records, OK to add pink formatting to any duplicates in selected range.
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
 
Upvote 0
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
 
Upvote 0
Then paste the data & then convert it into a table.
 
Upvote 0
Okay will do. thanks
 
Upvote 0

Forum statistics

Threads
1,213,494
Messages
6,113,972
Members
448,537
Latest member
Et_Cetera

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