هادى محمد المامون سالم

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

بسم الله الرحمن الرحيم مرفق ملفك و قد اضفت ورقه اسمها View تحقق لك ماطلبت على قدر فهمى قد يتأخر معك الملف لكثره عمليه البحث السلام عليكم ali_01.rar

بسم الله الرحمن الرحيم فعلا لقد طليت فتح موضوع مستقل و لكنى طلبت المزيد من التفاصيل اين ورقه البيانت ؟ و الى اى ورقه تريد نقل البيانات ؟ السلام عليكم

بسم الله الرحمن الرحيم لم استطيع فهم الملف جيدا ارفق الملف بشرح تفصيلى فى موضوع منفصل و سنصل معا للحل ان شاء الله السلام عليكم

بسم الله الرحمن الرحيم اخى عبدالله دائما رائع السلام عليكم

بسم الله الرحمن الرحيم اخى الكريم بدون مبالغ ماليه فالجميع هنا يعمل لوجه الله ستجد العديد من المواضيع لشرح vba خطوه بخطوه واليك الرابط الاول و الذى تعلمن منه جميعا لاستاذنا / محمد طاهر http://www.officena.net/ib/index.php?showtopic=206 و ستجد فى توقيعى رابط قد يكون مفيد لك و نصيحه لكى تحاول التعلم يجب المحاوله بنفسك اولا و الاصرار على التعلم و عند عجزك عن الحل اطرح سؤالك بالمنتدى و ستجد اكثر من محترف vba يقوم بمساعتك بدون مقابل و قد تفلح المحاوله0 السلام عليكم

بسم الله الرحمن الرحيم ستجد الحل ان شاء الله بالملف المرفق السلام عليكم example_01.rar

بسم الله الرحمن الرحيم اخى احمد يعقوب جزاك الله خيرا , فعلا قصه مؤئره و حمد لله على السلامه السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Print_Range_02.rar

بسم الله الرحمن الرحيم الف حمد لله على السلامه السلام عليكم

بسم الله الرحمن الرحيم يمكتك بأستخدام داله IF مرفق ملف كنموذج السلام عليكم Hide.rar

بسم الله الرحمن الرحيم الحل بالملف المرفق ستجد رساله اكتب المجال الذى تريده السلام عليكم Print_Range_01.rar

بسم الله الرحمن الرحيم لست خبيرا و لكننا جميعا نتعلم من المنتدى يمكنك تغيير المجال Range("A1:E18") للمجال الذى تريده السلام عليكم

بسم الله الرحمن الرحيم مشكور اخى الكريم يمكنك استخدام الكود التالى لتقوم بتتحديد المجال بالكود Sub My_Print() Dim RNG As Range Set RNG = Sheets("test1").Range("A1:E18") RNG.PrintOut End Sub مرفق ملف السلام عليكم Print_Range.rar

بسم الله الرحمن الرحيم الملف محمى بكلمه سر هل استخدمت القسمه فى البرنامج ؟ السلام عليكم

بسم الله الرحمن الرحيم بارك الله فيك برنامج مفيد السلام عليكم

بسم الله الرحمن الرحيم بصراحه لم افهم شىء ارفق ملف لما تريد السلام عليكم

بسم الله الرحمن الرحيم لك حق اخى نزار لم الاحظ المقدمه السلام عليكم

بسم الله الرحمن الرحيم اخى نزار شكرا على كلامك الجميل النتيجه سليمه فى B19 و ليست سليمه فى B3 السلام عليكم

بسم الله الرحمن الرحيم اخى خبور بارك الله فيك مايقصده الاستاذ حسام نور : اذا كتبت حسام الدين عبد المنعم السيد سيظهر اسم الوالد الدين عبد المنعم السيد و لكن الفكره رائعه جزاك الله خيرا السلام عليكم

بسم الله الرحمن الرحيم مرفق حل بطريقه اخرى السلام عليكم Comp.rar

بسم الله الرحمن الرحيم hs889@hotmail.com السلام عليكم

بسم الله الرحمن الرحيم اليك الكود الذى تريده Sub Auto_Open() Sheets("Sheet1").Visible = xlSheetVeryHidden Dim fs, d, s, t Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) [B2].ClearContents [B2] = -d.SerialNumber If Sheets("Sheet1").[B2].Value = Sheets("Sheet1").[B2].Value Then MsgBox "سيتم فتح الملف" Else: MsgBox "سيتم اغلاق الملف" ThisWorkbook.Save Application.Quit End If End Sub السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم My_Drive_02.rar

بسم الله الرحمن الرحيم برجاء ارشادى على رابط الموضوع الذى تقصده ليتم دمج الموضوع اما بخصوص طلبك فيمكنك حله بالكود التالى بعد اختصارى له Sub Auto_Open() Dim fs, d, s, t Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) [B2].ClearContents [B2] = -d.SerialNumber If Sheets("Sheet1").[B2].Value = Sheets("Sheet1").[B2].Value Then MsgBox "سيتم فتح الملف" Else: MsgBox "سيتم اغلاق الملف" ThisWorkbook.Save Application.Quit End If End Sub وقد ارفقت لك ملف و لن يعمل معك لان خليه المفارنه فارغه و لكى يعمل بعك اتبع التالى : افتح الملف سوف تظهر لك رساله بان المقارنه خاطئه و سيتم اغلاف الملف و لكن لاحظ ان رقم الهارد سوف يظهر لك فى الخليه B1 اكتبها عندك , ثم قم بانشاء ملف جديد و انقل رقم الهارد فى الخليه B1 و B2 ثم انسخ الكود السابق و الصقه فى موديول , اقفل الملف ثم اعد فتحه و سوف يفتح معك ان شاء الله مرفق ملف السلام عليكم My_Drive_01.rar