oblix
Board Regular
- Joined
- Mar 29, 2017
- Messages
- 183
- Office Version
- 365
- 2021
- 2019
- 2016
- 2013
- 2011
- 2010
- 2007
- 2003 or older
- Platform
- Windows
- MacOS
- Mobile
- 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
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