مساعدة فى الترحيل بشرط

[محمد الموافى]

السلام عليكم ورحمة الله وبركاته

عندى ملف مرفق خاص بالتأمين

المطلوب الترحيل الى ورقة 2 بشرط ال تحت 60سنة ام العمر فوق 60سنة لا يرحل

وشكرا لسعة صدركم

تأمين.rar

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

أخي الكريم محمد الموافي

جرب الكود التالي

Sub TransferDataUsingFilterMethod()
    Dim WS As Worksheet, SH As Worksheet
    Dim LR As Long, LastRow As Long
    Dim X As Long, I As Long
    
    Set WS = Sheet1: Set SH = Sheet2
    LR = WS.Cells(Rows.Count, 1).End(xlUp).Row
    LastRow = SH.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
        With WS
            .AutoFilterMode = False
            .Range("A3:E3").AutoFilter Field:=5, Criteria1:="<" & 60
            
            .Range("A4:E" & LR).SpecialCells(xlCellTypeVisible).Copy
            SH.Cells(LastRow, "A").PasteSpecial xlPasteValues
            
            .AutoFilterMode = False
        End With
    
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
    MsgBox "Done...", vbInformation, "YasserKhalil"
End Sub

وإليك الملف المرفق مع تعديل التنسيق قليلاً

تقبل تحياتي

Transfer Data Using Filter Method YasserKhalil.rar

[سليم حاصبيا]

بعد اذن اخي و صديقي ياسر

هذا الحل

 

تأمين salim.rar

 

 

تم تعديل يناير 30, 2016 بواسطه سليم حاصبيا

[عبدالله بشير عبدالله]

السلام عليكم

وجدت كود بالمنتدى وعدلت فيه قليلا بما يتوافق مع ملفك 

فخد هذه المقبلات   الى حين تدخل العباقرة واعلام المنتدى فياتوك بالوجبة الدسمة الشهية

 

 

 

تأمين.rar

[محمد الموافى]

5 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم محمد الموافي

جرب الكود التالي

Sub TransferDataUsingFilterMethod()
    Dim WS As Worksheet, SH As Worksheet
    Dim LR As Long, LastRow As Long
    Dim X As Long, I As Long
    
    Set WS = Sheet1: Set SH = Sheet2
    LR = WS.Cells(Rows.Count, 1).End(xlUp).Row
    LastRow = SH.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
        With WS
            .AutoFilterMode = False
            .Range("A3:E3").AutoFilter Field:=5, Criteria1:="<" & 60
            
            .Range("A4:E" & LR).SpecialCells(xlCellTypeVisible).Copy
            SH.Cells(LastRow, "A").PasteSpecial xlPasteValues
            
            .AutoFilterMode = False
        End With
    
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
    MsgBox "Done...", vbInformation, "YasserKhalil"
End Sub

وإليك الملف المرفق مع تعديل التنسيق قليلاً

تقبل تحياتي

Transfer Data Using Filter Method YasserKhalil.rar

شكرا لحضرتك استاذ ياسر وجزاك الله خيرا

تمام هذا المطلوب

5 ساعات مضت, سليم حاصبيا said:

بعد اذن اخي و صديقي ياسر

هذا الحل

 

تأمين salim.rar

 

 

شكرا لحضرتك وعلى اهتمامك

يفى المطلوب حل حضرتك والاستاذ ياسر

 

5 ساعات مضت, عبدالله الصاري said:

السلام عليكم

وجدت كود بالمنتدى وعدلت فيه قليلا بما يتوافق مع ملفك 

فخد هذه المقبلات   الى حين تدخل العباقرة واعلام المنتدى فياتوك بالوجبة الدسمة الشهية

 

 

 

تأمين.rar

شكرا لحضرتك

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

حينما اردت تعلم برمجة الاكسل لانى فى حاجة اليها مع الاوراكل

كانت هنا المدرسة الطيبة بأهلها وكرمهم على طلبى العلم

وجزاك الله خيرا لاهتمامك واهتمام الاخوة الاعزاء الاستاذياسر

والاستاذ سليم وحضرتك استاذ عبدالله

اشكركم جمعيا فالحلول الثلاثة مع تقاربها فهى تفى سؤالى

ادام الله عليكم نعمة الصحة والعافية ورزقكم من علمه

[ناصرالمصرى]

السلام عليكم ورحمته الله وبركاته

شكرا جزيلا لجميع السادة المشاركين

سؤال للتعلم ماذا يعنى هذا الجزء من السطر

 Field:=5, Criteria1:="<" & 60

ومرة يكون هكذا وماالفرق بين الرقمى 5 و 3 وهل لهما علاقة بعدد صفوف الفلترة؟؟؟

Field:=3, Criteria1:="<>" & ""

وجزاكم الله خيرا

تم تعديل يناير 31, 2016 بواسطه ناصر المصرى

[سليم حاصبيا]

كلمة Fieldتعني الحقل و هنا المراد بها بأي حقل (عامود) من الجدول نريد ان تتم التصفية  طبعاً الرقم 3يغني العامود الثالث

كلمة 

Criteria1

تعني المعيار و رقم واحد المعيار الاول حيث يمكنك ادراج اكثر من معيار واحد للتصفية