ترحيل البيانات حسب الحالة الى الشيتات المخصصة

[ابوزيد]

السلام عليكم

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

ترحيل البيانات حسب الحالة.rar

تم تعديل أبريل 26, 2015 بواسطه ابوزيد

[ياسر خليل أبو البراء]

الأخ الفاضل أبو زيد

جرب الملف التالي

Sub YasserKhalil()
    Dim SH As Worksheet
    Dim LR As Long
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
        With Sheets("بيانات")
            LR = .Cells(Rows.Count, 1).End(3).Row
                For Each SH In Worksheets
                    If SH.Name <> "بيانات" Then
                            SH.Range("A2:M1000").ClearContents
                            .AutoFilterMode = False
                            .Range("A3:N3").AutoFilter Field:=14, Criteria1:=SH.Name
                            .Range("A3").Offset(1, 0).Resize(LR, 13).SpecialCells(xlCellTypeVisible).Copy
                            SH.Cells(2, 1).PasteSpecial xlPasteValues
                    End If
                Next SH
            .Cells.AutoFilter
        End With
    Application.CutCopyMode = False
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

Tarhil By AutoFilter YasserKhalil.rar

[ابو نبأ]

السلام عليكم

تسلم الايادي

 

ممتاز

[ابوزيد]

بارك الله فيك

[ابوزيد]

السلام عليكم

 

الاخ ياسر الفاضل

 

وجدت مشكلة وهي محركات البحث لا تعمل 

 

ارجو المعالجة

[ياسر خليل أبو البراء]

الأخ أبو نبأ .. الأخ أبو زيد

بارك الله فيكما (وإن كنت أشعر في قرارة نفسي أنك هو أنت وأن أنت هو هو .. هههه مجرد إحساس)

تقبل تحياتي

[ياسر خليل أبو البراء]

لقد قمت بإبطال الكود الخاص بهذا الأمر ..ادخل على محرر الأكواد وشيل التعليقات اللي في بداية الأسطر ..

وإن كنت أجد الكود غلس لأنه مع كل تحديد لأي خلية يتم تشغيله

[ابوزيد]

السلام عليكم

 

جربت كلامك ولكن دون جدوى

 

وبالنسبة الى التعليقة اللي قبل هذه (اصبت واحسنت 

[ياسر خليل أبو البراء]

الأخ الفاضل أبو زيد أو أبو نبأ

لما الدخول بعضويتين للمنتدى ؟ هل تشعر أن أبو نبأ لا يستجيب أحد لموضوعاته فقررت الدخول بعضوية أخرى ..؟؟ مجرد إندهاش

شيء آخر تم إزالة أفضل إجابة بعدما قمت بتحديدها ..

يعني هو دا رد الجميل !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

إليك الملف التالي .. نسخة محسنة من الكود تقوم بعمل حدود للبيانات التي تم ترحيلها ...

 

Tarhil By AutoFilter YasserKhalil V2.rar

[ابوزيد]

السلام عليكم

اولا : حبيبي الاخ ياسر ابو زيد  هو ابني 

ثانيا : حذف كافضل اجابة هو لاقناعتي هو اعادة النظر بالاجابة مو قصدي اللي فكرت به الله الشاهد 

انته متفضل علينا ولك الشكر والتقدير والعرفان حبيبي الاخ ياسر ، اعتذر ان اخطأت ، نسال الله لكم ولنا العفو والعافية وجزاك الله خير 

السلام عليكم