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