חיבור שני מקרו לאחד

[Oren_1]

הי

רצ"ב 2 מקרואים
בראשון אני פשוט מקיש משהו כפילטר בתא I2 ואחרי אנטר הטבלא מבצעת סינון.
בשני הטבלא מועתקת לי למקום אחר, אבל שם אני צריך "להריץ" את המקרוץ

איך ניתן לחבר בין השנים שאחרי מילוי תא I2 ולחיצה על אנטר, הטבלא תעשה פילטר (כפי שקורה עכשיו) וישר אחרי זה באופן אוטומטי תעותק לגליון השני (כפי שקורה במקרו 2)

Sub MacroFilterTest1()
'Updateby Extendoffice 20160606
If Target.Address = Range("I2").Address Then
Range("A1:E25000").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("I1:I2")
End If



End Sub

Sub temp()



Sheets("Temp").Select

Cells.Select
Selection.ClearContents
Sheets("Data").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Temp").Select
Range("A1").Select
ActiveSheet.Paste



End Sub​