نجوم المشاركات

وعليكم السلام ورحمة الله وبركاته الكود Sub CreateBackup() Dim wb As Workbook Dim folderPath As String Dim fileName As String Dim fileExtension As String Dim backupName As String Dim backupNumber As Integer Dim fso As Object Dim file As Object Set wb = ThisWorkbook folderPath = wb.Path & "\" fileName = Left(wb.Name, InStrRev(wb.Name, ".") - 1) fileExtension = Mid(wb.Name, InStrRev(wb.Name, ".")) Set fso = CreateObject("Scripting.FileSystemObject") backupNumber = 0 For Each file In fso.GetFolder(folderPath).Files If InStr(file.Name, fileName) = 1 And InStr(file.Name, fileExtension) > 0 Then Dim currentNumber As Integer On Error Resume Next currentNumber = CInt(Mid(file.Name, Len(fileName) + 1, InStrRev(file.Name, fileExtension) - Len(fileName) - 1)) On Error GoTo 0 If currentNumber > backupNumber Then backupNumber = currentNumber End If End If Next file backupName = folderPath & fileName & (backupNumber + 1) & fileExtension wb.SaveCopyAs backupName MsgBox "تم إنشاء نسخة احتياطية باسم: " & vbCrLf & backupName, vbInformation, "نسخة احتياطية" End Sub الملف Ehab.xlsb

الحمد لله على سلامتك اخي خليفة .. وعودا حميدا

الاستاذ الفاضل @عبدالله بشير عبدالله الكود يعمل و ينفذ المطلوب الف الف شكر لحضرتك

تفضل عملت لك دالة تعمل توليد للرمز الذي تريده ( حرفين من كل اسم ثلاثي) الدالة سهلة يمكنك ان تعدل عليها حسب رغبتك ملحوظة : حتى تعمل الدالة على الوجه الأكمل يجب تنظيف حقل الاسم من المسافات الزائدة .. ويفضل ايضا حذف المسافة بعد كلمة عبد ، والله يعينك باقي نور الدين واشباهه Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("TAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!Rmz = Mid(Split(rs!Asm, " ")(0), 1, 2) & Mid(Split(rs!Asm, " ")(1), 1, 2) & Mid(Split(rs!Asm, " ")(2), 1, 2) rs.Update rs.MoveNext Loop نموذج بحث 2.rar

برنامج abbyy finereader https://www.mediafire.com/file/kwf3zbxrd3inavx/ABBYYFineReaderPDF15.0.114.exe/file

السلام عليكم، هل يمكنك مراجعة المواضيع أدناه؟ قد تساعدك في المطلوب.

تم التعديل مكان التعديل Case vbKeyEscape ' زر Esc لم اقم بحذفها وانما قمت بتعليق او تجميد مهمتها باظافة فاصلة ' Case vbKeyEscape ' زر Esc يمكن حذف القاصلة المظاقة لتفعيلها مقاطعة.xls

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