فلترة للبيانات

[خالد الشاعر]

السادة الخبراء

عندى صفحة بيانات و صفحة ثانية اعمل فلترة حسب خلية معينة

ثم انسخ بعض البيانات فى الصفحة الاخرى و المشكلة ان البيانات متفرقة

الكود

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Main").Range("A13:Z213").AdvancedFilter Action:= _

xlFilterCopy, CriteriaRange:=Range("D9:D10"), CopyToRange:=Range("B13:C13"), _

Unique:=False

End Sub

وهذا النطاق الاخر CopyToRange:=Range("T13"")

كيف اضع النطاقين مع بعض فى ماكرو واحد

الف شكر لكم

[خالد الشاعر]

للرفع

[خالد الشاعر]

كتبت الكود هكذا

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Main").Range("A13:z213").AdvancedFilter Action:= _

xlFilterCopy, CriteriaRange:=Range("C9:C10"), CopyToRange:=Range("B13", "C13", "T13"), _

Unique:=False

اعطى مشكلة فى كلمة Range

Range("B13", "C13", "T13"),

فهل التصفية المتقدمة يجب ان يكون الاعمدة جنب بعض

شكرا