I have made a macro that works in a form button but when i try to cop
the code to a vb button it doesnt work...

Range("B8:F203").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
_
DataOption1:=xlSortNormal
Columns("A:F").Select
Range("F1").Activate
Selection.Copy
Columns("H:H").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("H1"), Order1:=xlAscending
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
_
DataOption1:=xlSortNormal
Range("M1:M196").Select
Selection.Copy
Sheets("Personal").Select
Range("G8").Select
ActiveSheet.Paste

Any help would be appreciate

--
allma
-----------------------------------------------------------------------
allmad's Profile: http://www.excelforum.com/member.php...fo&userid=2640
View this thread: http://www.excelforum.com/showthread.php?threadid=40039

Put your code in a general module (same place it was for the forms button)

sub Mycode()
Range("B8:F203").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns("A:F").Select
Range("F1").Activate
Selection.Copy
Columns("H:H").Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("H1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("M1:M196").Select
Selection.Copy
Sheets("Personal").Select
Range("G8").Select
ActiveSheet.Paste
End Sub

and then call that macro

Private Sub CommandButton1_click()
MyMacro
End Sub

--
Regards,
Tom Ogilvy

"allmad" wrote in
message ...

I have made a macro that works in a form button but when i try to copy
the code to a vb button it doesnt work...

Range("B8:F203").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
_
DataOption1:=xlSortNormal
Columns("A:F").Select
Range("F1").Activate
Selection.Copy
Columns("H:H").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("H1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
_
DataOption1:=xlSortNormal
Range("M1:M196").Select
Selection.Copy
Sheets("Personal").Select
Range("G8").Select
ActiveSheet.Paste

Any help would be appreciated


--
allmad
------------------------------------------------------------------------
allmad's Profile:
http://www.excelforum.com/member.php...o&userid=26407
View this thread: http://www.excelforum.com/showthread...hreadid=400398

Nice one thanks :)


--
allmad
------------------------------------------------------------------------
allmad's Profile: http://www.excelforum.com/member.php...o&userid=26407
View this thread: http://www.excelforum.com/showthread...hreadid=400398