ممكن مساعدة في كود استعادة البيانات

[Emad Karali]

السلام عليكم عندي ملف اذا ممكن اريد استعادة الملفات من مخزن الاضافة ومخزن الصرف الاثنين معا من تاريخ لتاريخ عن طريق كود و اسم المخزن ، وشيت المستند الي هوا البحث عن اذن الصرف فقط او اذن الاضافة كل وحده سوتلها شيت ضفت كود موجود في الملف لاكن يعطيني خطا اتمنى مساعدتكم لو تكرمتم 

مخزن.rar

تم تعديل مايو 22, 2017 بواسطه 3mda.v8

[أ / محمد صالح]

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

أحي الكريم

ابدأ بالتعلم والقراءة والبحث والتنفيذ بنفسك

وتذكر دائما

Easy come easy go

ما يأتي بسهولة يذهب بسهولة

[Emad Karali]

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

تم تعديل مايو 22, 2017 بواسطه 3mda.v8

[خالد الرشيدى]

السلام عليكم

اخى الكريم استبدل الكود الخاص بالبحث بصفحه ( تقرير حركة صنف ) بهذا الكود .. عله المطلوب تماماً 

Sub Find_All()

    Dim date1 As Date, date2 As Date
    Dim sCode As Integer, T As Variant, x As Integer, LR As Long

    date1 = CDate(Sheets("تقرير صنف").Range("F4"))
    date2 = CDate(Sheets("تقرير صنف").Range("F5"))
    sCode = Sheets("تقرير صنف").Range("F3")    '.Text

    Sheets("تقرير صنف").Range("E9:K" & Range("E" & Rows.Count).End(xlUp).Row + 1).ClearContents
    x = 9
    Application.ScreenUpdating = False

    For Each T In ThisWorkbook.Worksheets
        If T.Name = "مخزن الصرف" Or T.Name = "مخزن الاضافة" Then
            LR = T.Cells(Rows.Count, 5).End(xlUp).Row
            For i = 9 To LR
                If CDate(T.Cells(i, 5)) >= date1 And CDate(T.Cells(i, 5)) <= date2 And CStr(T.Cells(i, 6)) = CStr(sCode) Then
                    T.Range("E" & i & ":K" & i).Copy
                    ورقة16.Range("E" & x).PasteSpecial Paste:=xlPasteValues
                    ورقة16.Range("D" & x) = x - 8
                    x = x + 1
                End If
            Next
        End If
    Next

    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

مخزن.rar

تم تعديل مايو 23, 2017 بواسطه خالد الرشيدى

[Emad Karali]

يعطيك العافية هوا المطلوب بس فيه مشكلة بسيطة انه يحذف بيانات عامود d م اعرف السبب شيكة على الكود تمام لاكن يحذف صيغة التعداد في عامود d9:d وهل يمكن استخدام الكود في شت المخزن ايش اغير في الكود 

[خالد الرشيدى]

اخي الكريم 

لا داعى لمعادلة التكويد الى حضرتك ساحبها هى والتنسيقات  لاخر صف بالصفحة !!!!!! ألا يهمك ان يكون الملف خفيف وسهل الاستخدام ؟؟؟

التكويد يتم من خلال نفس الكود -- تم الابقاء على تنسيقات 1000 صف وحذف الباقي حفاظاً على الملف كحجم وك ثبات - عند الانتهاء منها يمكنك تطبيقها بالسحب على الف اخرى وهكذا 

انظر المرفق وابدي ملاحظاتك - ان كان هو ما تريد حدد الموضوع كمجاب 

مخزن.rar

تم تعديل مايو 23, 2017 بواسطه خالد الرشيدى

[Emad Karali]

 الكود شغال تمام  يعطيك العافية م قصرت ، غيرت في الكود واشتغل على شت المستند هذا الي كان ناقصني شكرا اخوي خالد الله يسعدك وأشكرك على المعلومة حقت الصفوف الكثيرة الي مالها داعي بعدل في الملف 

تم تعديل مايو 23, 2017 بواسطه 3mda.v8