Macro to VB

[allmad]

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

[Tom Ogilvy]

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" <[email protected]> wrote in
message news:[email protected]...
>
> 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
>

[allmad]

Nice one thanks