۩◊۩ أبو حنين ۩◊۩

جزاك الله كل الخير تم الامر والاستفاده شاكر لك حسن تعاونك

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

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

السلام عليكم اخى العزيز حسين جزاك الله كل الخير كل ما تم طلبه تم ولاكن عند الترحيل من B الى L يتم ترك صف فارغ الذى تم ترحيه هل يمكن ترخيل الصفوف فى شيت NAME ليتم ملئ الصفوف الفارغه نتيجه الترحيل وجزام الله كل الخير

السلام عليكم الساده الكرام .... الاخوه الافاضل .ارجو المساعده فى الشيت المرفق بعمل كود هل يمكن عمل كود ترحيل من شيت NAME الى شيت TRANS على اساس اذا ما تمت كتابه التاريخ فى الخليه H والمكان فى الخليه J يتم الترحيل الى شيت TRANS ( الترحيل بداية من L TO B مع حذفه من شيت NAME) ويتم الترحيل عن طريق مفتاح ترحيل جزاكم الله كل الخير مع الاحتفاظ بالجميع فى شيت ALL كشف باسماء العاملين.rar

السلام عليكم اخى العزيز شوقي ربيع جزاك الله كل خير ولك منى كل تقدير على كل ما قدمت انت وجمع الاساده الاعضاء وإثمارا للموضوع ... واضافه جديد هل يمكن جعل الحفظ يتم فى وقت محدد سلفاً .... وان كان الملف مغلق اكر شكرى وتقدرى للجميع .... جزاكم الله كل الخير

للرفع للرفع للرفع

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

السلام عليكم الساده الافاضل .... ارجو المساعده فى الكود المرفق ... بعد تقديم الشكر للاخ عبد الله المجرب ... جزاه الله كل الخير على المساعده فى الكود المرفق كيف يمكن ضبط الكود على ان يكون التاريخ المضاف لاسم الملف تاريخ اليوم +1 اى تاريخ الغد وهل يمكن ارسال الملف النتاتج من عمليه الحفظ من خلال نفس الكود اميل عن طريق الاوتلوك جزاك الله خيرا اخى العزيز عبد الله Sub PDF_ALL() MyName = "D:\MR_" & Format(Date, "dd-mm-yyyy") & ".pdf" Range("C45").Select Sheets(Array("A", "B", "C", "D")).Select Sheets("A").Activate MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "تم الحفظ" Else MsgBox "لم يتم الحفظ" End If End Sub

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

السلام عليكم ... الاخوه الافاضل اكرمكم الله ... ارجو المساعده فى تحقيق هذا الطلب هل يمكن عند حفظ شيت pdf من خلال كود ان يتم اضافه تاريخ اليوم الى الاسم بصوره اليه مثل MR_29/12/2013.PDF Sub PDF_ALL() Range("C45").Select Sheets(Array("A", "B", "C", "")).Select Sheets("A").Activate ChDir "d:" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "d:\MR.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub وكذلك اضافة MsgBox يكون محتواه .... هل انت متاكد من اتمام عمليه الحفظ ..... واذا تم الموافقه يكون الرد تم الحفظ واذا تم الرفض يكون الرد لم يتم الحفظ

السلام عليكم الاخ العزيز شوقى جزاك الله خيرا على مجهودك الرائع هل بمكن اضافه تاريخ الغد لاسم الشيت الافتراضى فى الكود بصفه دوريه اليك الكود Sub PDF_ALL() Range("C45").Select Sheets(Array("الاتوبيس", "طائرة", "مطروح", "تعديل")).Select Sheets("الاتوبيس").Activate ChDir "C:\Users\HaNeN\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\HaNeN\Desktop\مانفست كلابشة.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub بمعنى اسم الملف بعد الحفظ ( مانفست كلابشة ) هلى يمكن ان يكون ( مانفست كلابشة 2014/1/1 ) على اعتبار ان 2014/1/1 هو تاريخ الغد السوال الاخر هلى يمكن ارسال الملف بعد حفظه بصيغه pdf عن طريق الاميل outlook فى نفس الكود

الساده الافاضل هل يمكن اضافه تاريخ اليوم لاسم الشيت الذى يتم حفظه بصيغه pdf فى ذلك الكود Sub PDF_ALL() Range("C45").Select Sheets(Array("الاتوبيس", "طائرة", "مطروح", "تعديل")).Select Sheets("الاتوبيس").Activate ChDir "C:\Users\HaNeN\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\HaNeN\Desktop\مانفست كلابشة.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub

الساده الكرام بعد التحيه لجميع اعضاء المنتدى ارجو المساعده فى صياغه كود لحفظ شيت اكسيل داخل ملف او اكثر من شيت بشكل pdf على ان يكون مكان حفظ الشيت او مجموع الشيتات على desktop اكرمكم الله

الاخوة الافاضل هل من مساعده فى ذلك الامر المطلوب تحديدا هل من كود يختص بارسال صفحه الاتوبيس والطائرة والتعديل ومطروح من ملف اكسيل عن طريق الاميل ( outlook ) بشكل pdf الى اشخاص محددين واذا امكن هل يمكن ان يتم ارسال الصفحه التى بها مدخلات والفارغه من المدخلات لا يتم ارسالها ودلاله المدخلات الصف b 5 هلى يمكن ذلك مرفق الملف http://www.gulfup.com/?cJ1Bef

للرفع

اخى العزيز بن علية حاجى تم استخدام الكود في حدث الشيت Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Not Intersect(Target, Range("J4:J40")) Is Nothing Then SORT End Sub وبذلك يتم عمل الكود تلقائى على جميع الشيتات هلى من حل لجعل الكود يعمل تلقائى على الشيتات التي احددها فقط

السلام عليكم اخى الحبيب بن علية حاجى اولا سلمت يداك .... جزاك الله كل خير.... تم المطلوب وارجو منك ان تشرح لى موضوع Nom تى يتسنى لى الاستفاده بصوره كامله وحتى يتم تطبيق الامر فى اى مموع مماثل عنى فتح Name Manager =RIGHT(GET.CELL(32);LEN(GET.CELL(32))-FIND("]";GET.CELL(32)))وجت هذا ماذا يعنى واين موضع معادلة التسمية Nom من الكود جزاك الله كل الخير

اخى الحبيب اين موضع استعمال تسمسة nam بمعادله الدالة gel.cel

اخى الخبيب بن على جزاك الله كل خير دائما نستفيد بخبراتك جزاك الله كل خير اخى الحبيب هلى يمكن ان يعمبل الكود تلقئى عن ادخال اخر المعطيات فى الخلية j يقوم بالترتيب تلقائى

السلام عليكم للرفع للرفع جزاكم الله خيرا

مرفق الملف Book1.rar

السلام عليكم اخى العزيز بن على تظهر هذه الرساله بالون الاصفر عن تطبيق الكود ( اول سطر فى الكود بعد Sub STOR()) يظهر بالون الاصفر فما معنى لك

السلام عليكم اخى الحيب بن علية حاجى اولا حمدا لله على سلامتك منور المنتدى كالعاده لم استطيع تنفيز ما اسلفته فى الكود الشيتات الاربع مسماهم كاتى DALY CAMP ADMI FIELD برجاء ضبط الكود على هذا الاساس وتوضيحا للمراد عند الدخول فى شيت DALY يمكنى الضعط غلى زر الكود فيقوم بالترتيب الموضح وعند الدخول فى شيت CAMP يمكنى الضعط غلى زر الكود فيقوم بالترتيب الموضح وعند الدخول فى شيت DALY يمكنى الضعط غلى زر الكود فيقوم بالترتيب الموضح اخى الحبيب اعلم مدى انشغالك .... كان الله فى العون جزاك الله خيرا

السلام عليكم الاخوة الافاضل ارجو المساعده كيف يمكن جعل هذا الماكرو يتم استخدامه من اكثر من شيت شيت 1 و 2 و 3 و 4 بمعنى عند الدخول على شيت 1 يمكن استخدامه و عند الدخول على شيت 2 يمكن استخدامه وعند الدخول على شيت 3 يمكن استخدامه وعند الدخول على شيت 4 يمكن استخدامه وهو ماكرة ترتيب من b4 الى k 40 على ان يكون k4 هم عمود الترتيب Sub SORT() ActiveWorkbook.Worksheets("1").SORT.SortFields.Clear ActiveWorkbook.Worksheets("1").SORT.SortFields.Add Key:=Range("K5:K40" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("1").SORT .SetRange Range("B4:K40") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A2:J2").Select End Sub