رجب جاويش

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

أخى الحبيب ياسر خليل أنا سايب صاحب الفرح يرد التحية لأحبابه وأنت اليوم صاحب الفرح تقبل أرق تحياتى وتقديرى

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

السلام عليكم تفضل أخى معادله بشروط.rar

أخى الفاضل / عبد العزيز جزاك الله كل خير على هذه الكلمات الطيبة

السلام عليكم أخى الفاضل استبدل الكود الموجود بالملف بالكود التالى Private Sub CommandButton2_Click() Dim ish As Worksheet If ComboBox1.Value = "" Then MsgBox "اختر الاسم أولا": Exit Sub Set ish = Sheets(ComboBox1.Value) ish.Activate ActiveSheet.PageSetup.PrintArea = "A5:f19" ActiveSheet.PrintOut Copies:=1 End Sub

السلام عليكم تفضل أخى الملف.rar

أخى الفاضل ارفق ملف توضح به مثال لما تريد

ألف مليووووووون مبرووووووك أخى الحبيب / ياسر تستاهل كل خير تقبل أرق تحياتى وتقديرى

إخوتى الأفاضل رجاء من أخ لكم أن يبقى النقاش بشكل عام فى موضوع كسر الحماية بعيدا عن أى أوصاف لبعضنا البعض حتى لا يكون الموضوع سببا فى إثارة أى حساسيات بيننا وبين بعضنا فأنا أرى أن الكل نيته سليمة لذا يجب أن يبقى الاختلاف فى وجهات النظر سببا فى اثراء الموضوع وليس سببا فى أن يجرح أحدنا الآخر بقصد أو دون قصد وفق الله الجميع لما يحب ويرضى أخوكم / رجب جاويش

أخى الفاضل / احمد برجاء ارفاق ملف توضح به مثال لما تريد

السلام عليكم شكرا أخى الفاضل محمود على هذه الكلمات الطيبة بالنسبة لطلبك الكود التالى يحفظ الملف باسم يدل على التاريخ والوقت كما طلبت أنت وبالتالى لا داعى لوجود الدالة NOW فى الخلية A1 فى شيت 10 فقد قمت بوضعها داخل الكود Sub SaveAs() Dim FName As String Dim FPath As String On Error Resume Next FName = Format(Now(), "mm_dd_yyyy hh mm AMPM") FPath = ActiveWorkbook.Path Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=51 End Sub حفظ ملف باسم يدل على التاريخ والوقت.rar

إخوتى الأفاضل بعد أفضل تحية تم دمج الموضوعين فى موضوع واحد خالص تحياتى

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

بسم الله ما شاء الله هدية رائعة تسلم ايديك

أخى الفاضل يرجى ارفاق ملف توضح به ما تريد للعمل عليه

أخى الفاضل / أشرف أرفق ملف توضح به ما تريد حتى يتم العمل عليه

السلام عليكم أخى الفاضل عبد الله تسلم ايديك ولإثراء الموضوع هذا الكود يحفظ نسخة من الملف فى نفس مسار الملف الأصلى وبامتداد xlsx Sub SaveAs() Dim FName As String Dim FPath As String On Error Resume Next If ActiveWorkbook.Sheets("sheet10").Range("A1") = "" Then MsgBox "الخلية فارغة" Exit Sub End If FName = ActiveWorkbook.Sheets("sheet10").Range("A1") FPath = ActiveWorkbook.Path Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=51 End Sub حفظ باسم.rar

السلام عليكم تفضل أخى اضافة محرك بحث الى شيت البيانات.rar

خى الفاضل / عمرو طلبة جزاك الله كل خير

أستاذنا الفاضل / جمال دغيدى جزاك الله كل خير

خى الفاضل / مهندس ياسر جزاك الله كل خير

خى الفاضل / ابو زيد جزاك الله كل خير

أخى الفاضل / ابو القبطان جزاك الله كل خير

تم دمج الموضوعين للتكرار