عبدالفتاح في بي اكسيل

مجرد تخمين خطا في كتابة الصيغة RM2.Cells(Lf, "G").Value = RM3.Cells(Lsrch, Sr1).Value RM2.Cells(Lf, "D").Value = RM3.Cells(Lsrch, Sr2).Value يجب ان تكون RM2.Cells(Lf, 7).Value = RM3.Cells(Lsrch, Sr1).Value RM2.Cells(Lf, 4).Value = RM3.Cells(Lsrch, Sr2).Value

فقط ضع هذه في موديول اليوزرفورم Private Sub UserForm_Initialize() TextBox1.Value = .Range("g3").Value End With مع ملاحظة يجب ان تكون الورقة نشطة للخلية المعنية عند تشغيل اليوزرفورم او عليك الاشارة الى اسم الورقة مثل هذا Private Sub UserForm_Initialize() With Sheets("Sheet1") TextBox1.Value = .Range("g3").Value End With End Sub

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

@محمد الحضري جرب ان تضع اجراء الغاء الحماية في بداية الكود ومن تم اجراء حماية في نهاية الكود . لقد قمت بوضع الكود في المكان الخطأ يجب وضعه في موديول الورقة كما هو ظاهر بالكود. تحياتي.

يجب ان توضح للاخرين كيف تتم عملية البحث والحفظ كما عليك اصلاح كودك لانه يظهر لديك اخطاء برمجية في عملية البحث، بالتالي من الصعب تزويدك بكود الحفظ اذا كان برنامجك يوجد به اخطاء تحياتي.

لماذا لا توضح كيف يعمل البرنامج ولماذا محمي؟ حتى لو زودتنا بكلمة سر لماذا لا ترفق الملف بدون كلمة سر؟ بما انك لم توضح شيء !! من خلال نظرة سريعة في بعض الحلقات التكرارية لم تقوم بانهائها في نهاية الكود . NEXT I تحياتي .

يجب ان تتاكد من ان نواة الويندوز لديك 32 ، وانه تم فك الملف الى نفس المجلد كما في موجة الامر واذا كان نواة 64 انظر الى المشاركة الخاصة بها . تحياتي .

اطلع على هذا الموضوع https://www.officena.net/ib/topic/116499-عنصر-listview/#comment-702446 جرب حلول المشاركة 4,10,12 تحياتي

ابحث عن هذا البرنامج في جهازك adobe flash player ان لم يكن موجود قم بادخاله بجهازك واذا موجود قم بحدفه وادخاله من جديد . تحياتي

لماذا لم توضح النتيجة ؟ لا اعلم ما يدور في ذهنك !! قد تكون لديك شروط معينة انا لا اعلمها . على اي حال هذه محاولة . باضافة زر تحكم لليوزرفورم . Private Sub CommandButton1_Click() Dim a, b a = TimeValue(TextBox1.Value) b = TimeValue(TextBox2.Value) TextBox3.Value = Format((b + a), "hh:nn") TextBox4.Value = Format((b - a), "hh:nn") End Sub تحياتي

@أبو عبد الله _ حتى تجد استجابة من الاعضاء لا يتم العمل على بيانات مشتته وصفوف عديدة فارغة لا داعي لها . ملفك غير منظم على الاطلاق . الاسماء التي يتم المطابقة بين الورقتين حتى يتم جلب قيمها غير مطابقة !! كيف سيفعل الكود ذلك ؟؟؟ قد يساعدك احد الاعضاء . تحياتي

@وردة النرجس لااحد سيهدر وقته مع هكذا موضوع ملف محمي!!!! خلايا مدمجة !!! كومبوكس غير معروف نوعيته !! لماذا لا يتم استخدام داتا فليديشين ؟ عدم نشر تفاصيل كاملة !!! اضافة طلبات اخرى !!! اختي الكريمة يجب ان تنظمي ملفك جيدا وتضعي كافة التفاصيل دون طلب اشياء اضافية في كل مرة ختى يستطيع الاعضاء الاخرين مساعدتك. اترك المجال لبقية الاعضاء قد يساعدونك . تحياتي

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

اذا عليك ارفاق ملف كما قال لك الاستاذ @hassona229

يبدو ان ملفك يحتوي على كائن غير موجود في برنامجك وعليك تتبيثه .

اقرا الكود جيدا هذا ما يفعله بالضبط

لم افهم اي شيء مما تقوله !

اول شيء الورقة المشار اليها في الكود لا يطابق مع ما تريده اذا كنت تريدة في الورقة النشطة عند فتح الملف ثانيا الكود لن يقوم الا بالنسخ في الصف الثاني ومكرر ارقام التيكست بوكس بمعنى اخر الكود فوضوي لابعد الحدود !! جرب هذا الشيء مع التاكد من اسم الشيت عند الترحيل Private Sub CommandButton1_Click() Dim lr As Long, SH As Worksheet Set SH = Worksheets("sheet1") lr = SH.Cells(Rows.Count, 1).End(xlUp).Row With SH .Range("A" & lr + 1) = TextBox1.Value .Range("B" & lr + 1) = TextBox2.Value .Range("C" & lr + 1) = TextBox3.Value .Range("D" & lr + 1) = TextBox4.Value .Range("E" & lr + 1) = TextBox5.Value .Range("F" & lr + 1) = TextBox6.Value .Range("G" & lr + 1) = TextBox7.Value .Range("H" & lr + 1) = TextBox8.Value End With End Sub

@بلانك لا حاجة لان تشير الى اسم الملف المفتوح كما انه لا بد من تعريف المتغيرات كما في صورتك للكود الخاص بك كما انك تجاهلت اجابة الاخ @mn20 لم تجرب حله لقد قام لك بتنظيم الكود وهناك اختلاف لذا وجب عليك تنزيل المرفقات وتجربة الكود الخاص @mn20 ولقد جربته ونفذت ما اقترحته عليك يعمل من دون مشاكل انت تعمل على كودك انت وبالتالي سيظهر هذا الخطا . بعد 10 منشورات تقول يظهر خطأ بتحديد الصف دون معرفة رسالة الخطأ هذا مضيعة للوقت . كما الاستاذ @hassona229 طلب منك ماذا فعلت ولم تجيبه !!! اتمنى في المرة القادمة ان تقوم بنشر تساؤلات الاعضاء ان اردت المساعدة .

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

@بلانك قم يتحديد اماكن الملفات غير من File1 = "File1.xlsx" File2 = "File2.xlsx" الى File1="C:\Users\PC WORLD\Desktop\FILE1.xlsx" File1="C:\Users\PC WORLD\Desktop\FILE2.xlsx"

@Osama-2020 سهل الامور على نفسك واستخدم اليوزرفورم من خلال خصائص التيكست بوكس ستجد مرادك .

@abdelfattahbadawy جرب هذا الماكرو Dim ct As Long, destPath As String Sub MOVE_FILES() Dim Fso As Object, Fldr As Object, f As Object ', ct As Long Dim sourcePath Dim FileInFolder As Object sourcePath = "C:\Users\Administrator\Downloads\nnnn\" 'Change path and folder name to suit destPath = "C:\Users\Administrator\Downloads\mmm\" 'Change path and folder name to suit Set Fso = CreateObject("Scripting.FileSystemObject") LoopFolder (sourcePath) Set Fldr = Fso.GetFolder(sourcePath) For Each f In Fldr.subfolders LoopFolder (f) Next f If ct > 0 Then MsgBox ct & " pdf files have been moved" Else MsgBox "No pdf files found in the source folder" End If End Sub Private Function LoopFolder(AFolder) Set Fso = CreateObject("Scripting.FileSystemObject") Set ThisFolder = Fso.GetFolder(AFolder) For Each FileInFolder In ThisFolder.Files If FileInFolder.Name Like "*.pdf*" Or FileInFolder.Name Like "*PDF*" Then ct = ct + 1 FileInFolder.Move destPath End If Next FileInFolder End Function

@hassona229 شكرا على مرورك اعتذاري على قرائتي الخاطئة لعدد المشاركات😱 فقط من باب النصيحة اردت ان ينظم كوده حتى يساعده بقية الاعضاء عن نفسي انا لا استطيع قراءة الكود بهذه الطريقة .

ضع في موديول عادي Public dTime As Date Sub KillUserForm() Unload UserForm1 End Sub في موديول يوزرفورم Private Sub UserForm_Initialize() CTime = Time + TimeValue("00:00:10") Application.OnTime CTime, "KillUserForm" End Sub