command button to move data
 

If it's possible, I would like to use a command button or checkbox to
trigger moving data from cells in a column (b34-b41) on one worksheet to the
next available ROW on another worksheet.
Thanks in advance.

command button to move data
 

use the macro below and assign it to any picture or text box

Sub Macro1()

Sheets("Sheet1").Select
Range("B34:B41").Select
Selection.Copy

Sheets("Sheet2").Select
Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

Sheets("Sheet1").Select
Range("B34:B41").Select
Application.CutCopyMode = False
Selection.ClearContents

End Sub

"dummy" wrote in message
...
If it's possible, I would like to use a command button or checkbox to
trigger moving data from cells in a column (b34-b41) on one worksheet to
the
next available ROW on another worksheet.
Thanks in advance.

command button to move data
 

"Bill Kuunders" wrote:

use the macro below and assign it to any picture or text box

Sub Macro1()

Sheets("Sheet1").Select
Range("B34:B41").Select
Selection.Copy

Sheets("Sheet2").Select
Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

Sheets("Sheet1").Select
Range("B34:B41").Select
Application.CutCopyMode = False
Selection.ClearContents

End Sub

"dummy" wrote in message
...
If it's possible, I would like to use a command button or checkbox to
trigger moving data from cells in a column (b34-b41) on one worksheet to
the
next available ROW on another worksheet.
Thanks in advance.


.
I am getting a syntax error which is highlighting the pastespecial portion of the code.

command button to move data
 

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= False, Transpose:=True

all of this needs to be on one line. without the underscore _

Regards
Bill



"dummy" wrote in message
...


"Bill Kuunders" wrote:

use the macro below and assign it to any picture or text box

Sub Macro1()

Sheets("Sheet1").Select
Range("B34:B41").Select
Selection.Copy

Sheets("Sheet2").Select
Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

Sheets("Sheet1").Select
Range("B34:B41").Select
Application.CutCopyMode = False
Selection.ClearContents

End Sub

"dummy" wrote in message
...
If it's possible, I would like to use a command button or checkbox to
trigger moving data from cells in a column (b34-b41) on one worksheet
to
the
next available ROW on another worksheet.
Thanks in advance.


.
I am getting a syntax error which is highlighting the pastespecial
portion of the code.