ترحيل صف من شيت الى شيت اخر بشرط معين

[ناصر حسان]

اخوانى الكرام

ارجوا المساعدة فى هذا العمل ولكم منى الشكر سلفا  ...

فى المرفق احتاج عندما اكتب تاريخ اليوم فى شيت (filter)  فان الصف الموجود بة هذا التاريخ يرحل  الى صفحة DATA  

مع ملاحظة فقط الصف الذى يحوى تاريخ اليوم فقط (  لان تاريخ اليوم هو المطلوب والهدف فى النقل )

ولكم منى جزيل ال

 

TEST.zip

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

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.ScreenUpdating = False
 Application.EnableEvents = False
  If Target.Column = 6 And Target.Row >= 6 And Target.Count = 1 Then
         lrf = Sheets("filter").Cells(Rows.Count, "f").End(3).Row: If lrf < 6 Then lrf = 6
          Set my_rg = Range("f6:f" & lrf)
          lrb = Sheets("Data").Cells(Rows.Count, "B").End(3).Row: If lrb < 6 Then lrb = 6
           For Each cel In my_rg
                       If cel.Value = Date Then
                          r = cel.Row
                         Sheets("filter").Range("a" & r).Resize(1, 7).Copy Sheets("Data").Range("b" & lrb)
                        lrb = lrb + 1
                     End If
        Next
 End If
  Application.ScreenUpdating = True
 Application.EnableEvents = True
End Sub

 

[ناصر حسان]

بارك اللة بيك استاذ سليم

اسمحلى اجرب وارد عليك

لك منى كل الاحترام والتقدير

تقبل تحياتى