Run 2 Macros with one Shortcut key

[MIGARDEIN]

Good morning,

Is there a way to run both the Macros below with one Short cut key?

I have tried combining the Macros... something goes wrong.

I have tried:
Sub CallMacros()
CopySource
CopyTrend
End Sub
...something goes wrong.

Sub CopySource()

Dim rngSource As Range
Dim rngTarget As Range
Dim iRow As Integer

Set rngSource = Worksheets("DATA").Range("Source")
iRow = Worksheets("MERGED").Cells(Rows.Count, 1).End(xlUp).Row + 1
Set rngTarget = Worksheets("MERGED").Range("B" & iRow)
rngSource.Copy Destination:=rngTarget

Range("A6:G25").Select
ActiveWorkbook.Worksheets("SUMMARY").SORT.SortFields.Clear
ActiveWorkbook.Worksheets("SUMMARY").SORT.SortFields.Add Key:=Range("G6:G25") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("SUMMARY").SORT
.SetRange Range("A6:G25")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select

End Sub

AND

Sub CopyTrend()

Range("E3:F22").SORT Key1:=Range("F3"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Dim column_number As Long
column_number = ActiveSheet.Cells.Find(What:="*", After:=Range("IV65536"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
Range(Cells(3, column_number), Cells(22, column_number + 1)).Value = Range("E3:F22").Value

End Sub

Thanks for any help!

[HaHoBe]

Hi, MIGARDEIN,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Ciao,
Holger

[Parth007]

Hi Migardein,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between

Please Login or Register  to view this content.

tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

[MIGARDEIN]

Me again...

I think the problem might be that my second Macro:

Sub CopyTrend()

Range("E3:F22").SORT Key1:=Range("F3"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Dim column_number As Long
column_number = ActiveSheet.Cells.Find(What:="*", After:=Range("IV65536"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
Range(Cells(3, column_number), Cells(22, column_number + 1)).Value = Range("E3:F22").Value

End Sub

the part in red... is not specifis to a worksheet.
Anyone know how I can do that?

Thanks

[MIGARDEIN]

Sorry... and Thanks.

I will close this thread.

[HaHoBe]

Hi, MIGARDEIN,

you would still have to comply with the rule pointed out above (and that is not to start new thread at http://www.excelforum.com/excel-prog...rtcut-key.html which is against Forum Rule 5).

Ciao,
Holger