Aibrahim1

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

السلام عليكم ورحمة الله وبركاته من فضلكم هل في طريقة أحول قاعدة البيانات المرفقة إلى accdb حتى أتمكن من العميل والتعديل عليها بأوفيس 2016 أو أي من الإصدارات الحديثة؟ وجزاكم الله خيرا Database.rar

احسنت يا أستاذ عمر جزاك الله خيرا

السلام عليكم لو سمحتم انا الكود التالي بيقوم بفتح ملف معين تم تحديد مساره مسبقا وعمل نسخ لمدى معين من الخلايا ولصقه في الملف الحالي المطلوب هو استبدال المسار المحدد مسبقا بنافذه اختار منها أنا الملف لكي اتمكن من تغيير الملف الذي سوف يتم نسخ الخلايا منه في كل مرة مع العلم ان مدى الخلايا مش هيتغير في اي ملف من اللي بيتم اختيارهم. Sub Update_Riyadh_Store() Dim wb1 As Workbook Dim wb2 As Workbook Dim Sheet As Worksheet Dim PasteStart As Range Set wb1 = ActiveWorkbook Set PasteStart = Sheets("Riyadh Stock").Range("A1") Application.ScreenUpdating = False 'sheets and range to be updated' Sheets("Riyadh Stock").Select Range("A1:F2500").Select Selection.ClearContents Sheets("Riyadh Stock").Range("A31").Select FileToOpen = "C:\Users\ozohair\Desktop\Stocks\Riyadh Stock.xls" If FileToOpen = False Then MsgBox "No File Specified.", vbExclamation, "ERROR" Exit Sub Else Set wb2 = Workbooks.Open(Filename:=FileToOpen) For Each Sheet In wb2.Sheets With Sheet.UsedRange .Copy PasteStart Set PasteStart = PasteStart.Offset(.Rows.Count) End With Next Sheet Application.ScreenUpdating = True End If wb2.Close MsgBox "Stock has been updated successfully.", vbOKOnly, "Updated Successfully" End Sub