أبو عبد النور

مهمة الكود VBA الموجود في آخر اسطر كود الزر "تعديل" ان يقوم بادخال المعادلتين في العمودينB و D من الورقة codes. هاتين المعادلتين تقومان بجلب المعلومات من الورقة invoice حسب الموجود من قيم في العمود A "كود" من الورقة codes. ثم اي زر لديك تقوم بواسطته بحذف البيانات من الورقة codes ؟

المعادلة يتم إظهارها الان عن طريق كود VBA من زر "تعديل" عند تعديل على اسم في الصفحة يتم تعديل في صفحة الأخرى_v002.rar

وعليكم السلام ورحمة الله، جرب هذا : عند تعديل على اسم في الصفحة يتم تعديل في صفحة الأخرى_v001.rar

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

ارفق ملفك للاكسل توضح فيه اين يكمن الخطأ.

وعليكم السلام، محاولة : محاذاة.rar

وعليكم السلام، على حسب اكسل فان الخطا في الورقة 3 المعادلة في P5 : =SI(O5<$H$4;O5;$H$4-SOMME($P$4:P$5))

كيف هو الكود عنك هنا : Sub test() FindFilesInFolder ThisWorkbook.Path, "1.txt", True Debug.Print ThisWorkbook.Path End Sub

والله ان كنت تريد البحث في كامل الحاسوب انصحك بالبحث عن بالبرامج المخصصة لذلك. فيما يخص ملف الاكسل المرفق فانه يبحث فقط في المجلد الموجود فيه والمجلدات التحتية التابعة له. الخطا permission denied موجود على اي سطر في الكود ؟

السلام عليكم، جرب المرفق : CC.rar

لماذا لا تدمجهما تحت واحد ؟ هكذا مثلا ً Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRows As Integer, MyRange As Range, MyRange1 As Range If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("d1:d10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).ClearContents Else With Target(1, 2) .Value = Date .EntireColumn.AutoFit End With End If End If On Error GoTo 1 With Range("kh_test_1") MyRows = .Rows.Count - 1 Set MyRange = .Range(Cells(MyRows, 1), Cells(MyRows, 4)) If Not Intersect(Target.Cells(1, 1), MyRange.Cells) Is Nothing _ And Target.Value <> "" Then MyRange.EntireRow.Insert Set MyRange1 = .Range(Cells(MyRows, 1), Cells(MyRows, 4)) MyRange1.Value = MyRange.Value MyRange.ClearContents End If End With 1 End Sub

جرب هذا : خلية.rar

السلام عليكم، ما هي نسخة الاوفيس لديك ؟

تفضل : مسح آخر سطر_v002.rar

السلام عليكم، محاولة، جربها. مسح آخر سطر_v001.rar

وعليكم السلام ورحمة الله تفضل اخي : اضافة شيت_v001.rar

تم التعديل. هل هذا يناسبك ؟ نقل بيانات داخل مجلد_v004.rar

بارك الله اخي ياسر. لم ينجح الامر معي لفك كلمة مرور كود الـ VBA. ما زال الـ VBE يطلب مني كلمة المرور. بارك الله فيك. - قمت باستبدال امتداد ملف الاكسل من xlsm الى rar - قمت بفتح الملف الجديد ببرنامج الوين رار. - قمت باستخراج ملف VBAProject.bin وحده من الارشيف - فتحته ببرنامج الـ HEX - بحثت عن كلمة DPB واستبدلتها بـ DPX - اغلقت البرنامج قمت باستخراج كافة ارشيف ملف الاكسل في مجلد جديد - قمت بلصق ملف VBAProject.bin المعدل في مجلد الارشيف المفتوح - ومن اعدت ضغط المجلد - غيرت الامتداد من rar الى xslm - فتحت ملف الاكسل وعند فتح الـ VBE طلب مني كلمة المرور.

بارك الله فيك أخي ياسر. الامر لم ينجح مع على ملف xlsm ما زال يطلب مني كبمة المرور للحصول على كود VBA

تم التعديل. جرب الملف المرفق. نقل بيانات داخل مجلد_v003.1.rar

هل كل الاوراق فيها نفس العنوان : "أسماء العاملين خارج دوام" وهل تبدا كلها من نفس السطر 43 ؟ لاني لم اجد الورقة "1" مشابهة للبقية ؟

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

حدد مثال اكثر توضيحا للنطاق والبيانات الموجودة به والتي تريد ترحيلها الى الورقة الرئيسية. هل النطاق عبارة عن عمود او خلية او مجموع من الخلايا وماذا يحتوي هذا النطاق من بيانات للتطبيق عليها.

وهل نجح الامر معك ؟

لا اعلم ماذا لديك في الكود 2 من سطور ولكن لا يمكن تسمية اجرائين Procedures بنفس الاسم