ترحيل تاريخ والبحث عنه advanced

[gamalin]

لدي ملف اقوم فيه بترحيل بيانات اذونات القبض والصرف

 

ومنها تاريخ الاذن

 

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

 

مرفق كود الترحيل المستخدم

 

 

 

Sub post1()

Application.ScreenUpdating = False

On Error Resume Next

    Sheets("ÍÝÙ ÇáÈíÇäÇÊ").Visible = True

    Set myRng1 = Range("b3,e3,a2,b4,b8,b5,b6,b7,d7,f7,b9")

     If [b3] > 0 And [b5] > 0 And [b8] <> "" And [b6] <> "" Then

With Sheets("ÍÝÙ ÇáÈíÇäÇÊ")

N = .Cells(.Rows.Count, "A").End(xlUp).Row + 1

For R = 1 To 11

               .Cells(N, R) = myRng1.Areas®

Next

End With

Else

Application.ScreenUpdating = True

MyAnswer = MsgBox("íÌÈ ÇßãÇá ÇÏÎÇá ÇáÈíÇäÇÊ   -   áã íÊã ÇáØÈÚ Çæ ÇáÍÝÙ", vbOK, "ãØáæÈ ÇáÅßãÇá")

End

End If

    Sheets("ÍÝÙ ÇáÈíÇäÇÊ").Visible = False

End Sub

[gamalin]

ارجو الاهتمام هل لترحيل التاريخ حاله خاصة

هل هناك حل للمشكلة اعلاه

مع العلم ان الخانة التي بها التاريخ هي e3

[احمدزمان]

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

 

اخي الفاضل

ارفق ملف به كود الترحيل وكود الفرز

مع مثال بسيط

لنتمكن من العمل عليه

[gamalin]

الملف اهه

ارجو سرعة الرد

el-destor cash.rar

[احمدزمان]

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

 

اخي الكريم

 

لم اجد اي مشكلة في الكود في ورقة SEARCH

[احمدزمان]

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

 

مرفق الملف بعد التجربة

تم تغيير تنسيق خلية التاريخ فقط

 

el-destor cash.rar