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

[mthgo101]

السلام عليكم 

خبراؤنا المحترمين

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

  المشكلة انه فى حالة تشغيل فورم الاستعلام لايقرأ البيانات التى تم ترحيلها سابقا من الفورم الاول  الا اذا ضغطت على الخلية مرتين التى تم الترحيل اليها (التاريخ) وبعد ذلك يعمل بشكل جيد

انا عملت تنسيق للصف اللى بيحتوى على تاريخ علشان يرحل التاريخ كويس

s.Range("A" & Rows.Count).End(xlUp).Offset(0, 3) = VBA.Format(Me.ListBox1.List(r, 3), "dd/mm/yyyy")

هل فيه كود يعمل يحديث او تنشيط للداتا بعد ترحيلها

مرفق صور

1- تم ادخال البيانات

2- تم ترحيل البيانات

3- تم الاستعلام ولم يظهر اخربيانات تم تسجيلها

4- تم تنشيط خلية التاريخ وتم عرض الاستعلام صحيح

[عبدالفتاح في بي اكسيل]

ارفق  ملف  حتى  تجد  تفاعل  من الاعضاء