السبت، 14 سبتمبر 2019

ترحيل البيانات من ورقة عمل الى اخرى بناء على مقارنة عمودين من البيانات 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
وبهذا نكون قد ادرجنا الكود الخاص بنا والذى من خلالة يتم المقارنة بين البيانات وترحيلها الى شيت اخر

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

هناك تعليق واحد:

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

    ردحذف

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة