ترحيل البيانات من ورقة عمل الى اخرى بناء على مقارنة عمودين من البيانات Excel VBA Macro : Transfer Data Form Sheet To Other Sheet

بسم الله الرحمن الرحيم
اهلا بحضراتكم متابعى موقع عالم الاوفيس


 درس جديد من دروس اكسل
ترحيل البيانات من ورقة عمل sheet  الى ورقة عمل اخرى بناء على شرط معين وهو مقارنة عمودين بهم مجموعة من البيانات
نرى المثال


فى هذا المثال يوجد لدينا مجموعة من البيانات والتى تعبر عن تاريخ ورقم صك معين ومبلغ الصك وعمود رابع بة رقم صك اخر
الشرط هنا ناة فى حالة تساوى القيمة فى العمود الرابع يتم عدم تراحيل البيانات الخاصة بهذا الصف 
كيف نقوم بعمل هذا الكود 
اولا ندخل الى المطور Devlober 
2- insert module
Sub test()
Dim lr As Long
Dim erow As Long
Dim i As Integer
lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
   For i = 2 To lr
     If Cells(i, 2) <> Cells(i, 4) Then
       erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        Range(Cells(i, 1), Cells(i, 3)).Copy Destination:=Sheets("sheet2").Cells(erow, 1)
          End If
    Next i
End Sub
وبهذا نكون قد ادرجنا الكود الخاص بنا والذى من خلالة يتم المقارنة بين البيانات وترحيلها الى شيت اخر

لتحميل ملف العمل من هنا
لمشاهدة شرح الفيديو

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

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

    ردحذف