الـعيدروس

السلام عليكم جرب هذا الكود Public Sub Ali_Copy() Dim Sh As Worksheet Dim W1 As Workbook Set W1 = ThisWorkbook Dim W As Workbook Set W = Workbooks.Add(xlWorksheet) With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual W.Sheets(1).Name = "Test" .DisplayAlerts = False For Each Sh In W1.Sheets Sh.Copy After:=W.Sheets(W.Sheets.Count) Next Sh W.Sheets(1).Delete .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic .DisplayAlerts = True End With End Sub

اخي الفاضل رجب جاويش اشكرك على مرورك العطر وكلماتك الطيبه بارك الله فيك تقبلو تحياتي وشكري

هل المقصود بالديانه والنوع كشرط اختيار الديانه والنوع ويجلب ماهو مطابق للشروط ام ماذا ؟

اخي الحبيب أبو حنين لطالما يسعدني مرورك واشكرك على مرورك الكريم بارك فيك

السلام عليكم الأخوة الأفاضل هذا طلب لأحدهم في منتدى اخر حيث أنا الخلية المعنيه مثلا هيا "A1" تدخل الأرقام بشكل متواصل مثلا 1 قم انتر و 10 ثم انتر وهكذا حتى تكملة الأرقام ثم تضغط الزر المرفق به المثال أرجو أن يفيد من يحتاج لهكذا عمل تحياتي Mn_Mx_Ali_2003.rar Mn_Mx_Ali_2007.rar

بنظري طالما تعرفت الأداة لاتوجد مشكلة ضيف السطر التالي قبل Wtih ListView On error resume next أرجو أن يعمل معاك وإذا لم يعمل بعد إضافة السطر السابق ارفق الملف وإن شاء الله نتوصل الى حل تحياتي

السلام عليكم السموحه اخي احمد حبيب بيكون هكذا Sub code_HARD() On Error Resume Next With CreateObject("Scripting.FileSystemObject") '***************************************** [C2].Value = Hex(.Drives.Item("c:").SerialNumber) '***************************************** End With End Sub اخي الفاضل zarouki2000 اشكرك جدا على مرورك العطر وكلامك المشجع تقبلو تحياتي وشكري

الأداة معرفة لديك هل مازالت رسالة الخطاء تظهر ؟؟؟

السلام عليكم فرضا الخلية هيا "A1" هكذا Sub code_HARD() On Error Resume Next With CreateObject("Scripting.FileSystemObject") '***************************************** [A1].Text = Hex(.Drives.Item("c:").SerialNumber) '***************************************** End With End Sub

اولا افتح قائمة outils ثم références بتظهر لك واجهة بها مربعات اختيار هيا المراد تصويرها تحياتي

ماااقصده برنت اسكرين يعني الزر الذي في الكيبورد للتصوير المسمى prt sc بعد الضغط عليه تفتح برنامج الرسام ثم تحرير ولصق وبعدها حفظ بأسم وتحفظ الصوره في الجهاز

Tools بالفرنسية outils References بالفرنسية références

ماالفرق بين استخدام ( Application.Dialogs(28 و صندوق إدخال بإمكانك إستخدام صندوق إدخال ويعمل بكفائة ؟؟؟

السلام عليكم الاخ الفاضل dah_med اولا انسخ الكود الذي في المشاركة رقم 2 للملف ثم Alt + F8 وشغل الكود المسمى Ali_LV وبعد تفعيل الكود اذهب الى واجهة الأكواد ثم قائمة Tools ثم تنقر على References ثم برنت اسكرين وارفق الصورة اكيد الاداة غير معرفه لديك تحياتي

السلام عليكم جربت ارفاق الصورة في فورمه وعمل الكود دون اي مشاكل وهذا المرفق أرجو التجربه فورم مخصص_A6.rar

السلام عليكم الاخ الفاضل dah_med ارفق صورة من الخطاء الاخ الفاضل عباس السماوي أنا يعمل لدي بدون مشاكل في بعض نسخ الاوفيس اداة ListView لاتكون معرفه في References فالكود يقوم بإضافتة الأداة في Reference انا ضنيت مشكلة الاخ كما اشرت

السلام عليكم بعد اذن الاساتذه الافاضل بيكون كالتالي Private Sub Workbook_Open() On Error Resume Next Dim xl As Workbook Set xl = Workbooks("فتح.xls") With xl .Close .Save End With End Sub

السلام عليكم ضع هذه الاكواد في مودويل وإن شاء الله تزيل المشكله Public Sub Ali_LV() On Error Resume Next ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\mscomCTL.OCX" End Sub Sub Auto_open() Call Ali_LV End Sub

السلام عليكم أنت معتمد على إرفاق الخريطه في صورة في الفورم وماذا تقصد وضع الصورة ضمن الفريم ؟؟؟ حركة الليبل ضمن مدى الفريم أعتمدنا كود الاستاذ الحبيب عبدالله باقشير بخصوص الصورة المرفقه في الرساله حاول تطبقها في مثال وترفقها أما باقي الملاحظات جرب المرفق فورم مخصص_A5.rar

السلام عليكم بخصوص التوسيط حاولت ولم اتوصل الى حل جرب المرفق فورم بحث_Kh_1.rar

السلام عليكم أرجو الرد على مانرفقه وطرح الملاحظات لاننا بنحاول نفيدك بقدر المستطاع رغم عدم توضيحك للطلب وإلا كنا وصلنا لنتائج مقنعه من بدري ارجو تجربة المرفق تحياتي فورم مخصص_A4.rar

هل اطلعت على مرفق المشاركة السابقة ؟؟؟

السلام عليكم حاولت عدة محاولات الفورم يحدث خطاء عالجت المشكله عندي امل أن لاتظهر لديك جرب المرفق وأي ملاحظة أنا موجود فورم بحث_Kh.rar

السموحه منك على التأخير وذلك لإنشغالي أحاول اعمل عليه حاليا وإن شاء الله خير

لم اجرب في حال لايوجد بيانات برضه الخطاء موجود عندي جرب المرفق فورم مخصص_A3.rar