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

[هاني سامي]

اخواني الاعزاء والكرام   خبراء  الاكسيل  في المنتدى

 

 الرجاء  المساعدة في تكملة هذا العمل   ولكم  جزيل الشكر والتقدير 

[هاني سامي]

اخوانى الكرام  اريد المساعدة

[هاني سامي]

اخوانى الكرام الرجاء المساعدة

[طارق محمود]

السلام عليكم

معذرة لانشغالي عنك

عند رصد  كعوب الشيكات  لاحظت  انه عند  رصد الشيك  بكل محتوياته  يدخل في اليومية  الموجود بالفعل  ولكن  عند رصد شيك  اخر يمسح  الشيك الذي يقبلة  ويدخله  في  أول خانة   لماذا  ؟؟؟

 

يحدث هذا لأنني كنت أعتمد في الترحيل علي العمود A ، حيث أنك تريد كعوب الشيكات  فقط فتم تبديله في الكود بالعمود D

      r = .[D999].End(xlUp).Row + 1

السطر الثالث من هذا الجزء من الكود الذي يحسب السطر التالي للكتابة

For i = 1 To Sheets.Count
    If Sheets(i).Name = d Then
        With Sheets(i)
            r = .[D999].End(xlUp).Row + 1
            .Cells(r, 6) = Me.TextBox3.Value
            .Cells(r, 4) = Me.TextBox1.Value
            .Cells(r, 5) = n
        End With

 تفضل المرفق به التصليح

وباقي الطلبات من عدم التكرار وخلافه ، تم عملها سابقا
ولابد من تجربة الملف ، قد يظهر أخطاء أخري عند الإستخدام

المصنف1_7.rar