محمد عبد الناصر

مش عارف مش فاهم اطبقها عندى ازاى بص دى المعادله الى انا عايز اعملها عندى في المكرو بس مش عارف فيها حاجه غلط Sub D() If Range("F6:F1000").Value > 0 Then Range("BF6:BF1000").Value = Range("F6:F1000").Value then Range ("BF6:BF1000").Value = 1 End If End Sub

تمااااااااااااااااااااااااام جداااااا جداااااااااااااااااااا اخر حاجه ربنا يعزك عايز اكتب المعادله دى بالكود =If(D6:D1000>=0;D6:D1000;1)

تمام حضرتك اشتغل صح اوى اوى اوى اوى شكراااااااااااااااااا

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

عابز اقفل الطباعة فى ملف اكسيل بالكامل الا عن طريق كود مخصص انا عامله الى هايتعامل على ملف الاكسيل مش هايعرف يعنى ايه كود

بارك الله فيك استاذ عبد السلام الوافى بارك الله فيك استاذ ياسر ابو خليل انت صاحب الكود الرائع ده لو تفتكر استاذ ياسر ربنا يجعلو فى ميزان حسناتك اخر طلب معلش عايز كود محدش يقدر يمسح الى مكتوب فى الخليه عايز فى العمود F و العمود D و العمود E محدش يقدر يمسح الى مكتوب فى الخليه بحيث اقدر اكتب الى انا عايزو فى اى خليه فى الأعمده دى بس محدش يقدر يمسح الى فيها

السلام عليكم ورحمة الله وبركاته الكود ده عباره عن امر طباعة بشرط ان يكون في العمود G ارقام المشكله انه مش بيطبع لو الصفحه lمعمول ليها حماية عايز اطبع عادى لو الصفحه معمول ليها حماية Sub Print() Dim Arr, SH As Worksheet, Rng As Range, Cell As Range, I As Long Set SH = ActiveSheet With SH ReDim Arr(0 To .HPageBreaks.Count + 1) If Len(.PageSetup.PrintTitleRows) Then Set Rng = .Range(.PageSetup.PrintTitleRows) Arr(0) = Rng.Rows(Rng.Row + Rng.Rows.Count).Row Else Arr(0) = 1 End If For I = 1 To .HPageBreaks.Count Arr(I) = .HPageBreaks(I).Location.Row Next I Arr(UBound(Arr)) = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1 For I = UBound(Arr) To (LBound(Arr) + 1) Step -1 Set Rng = Intersect(.Rows(Arr(I - 1) & ":" & (Arr(I) - 1)), .UsedRange, .Columns("G")) If Not Rng Is Nothing Then Debug.Print Rng.Address For Each Cell In Rng If Cell.Value > 0 Then .PrintOut From:=I, To:=I Exit For End If Next Cell End If Next I End With end sub

السلام عليكم ورحمة الله وبركاته ؛ كنت عايز طريقة مسح قائمة Review من ملف الاكسيل بحيث ان محدش يقدر يغير الباسورد بتاع الملف الا عن طريق كود قفل الصفحه او طريقة اقفل بيها data Validation بباسورد مش عايز حد يقدر يغير فيها حاجه وعايز طريقة ازاى اقفل البرينت Print فى ملف الاكسيل يعنى مقدرش اطبع الصفحه الى انا واقف فيها الا عن طريق كود انا احوطه

خلاص عملتها شكرا ان محدش رد من الصبح المعادله اهى للعايزها =($F6<=$D6)=($F6>=$V6)

؟؟؟؟؟؟؟؟؟؟ طيب انا دلوقتى مش ناقصنى غير انى اقفل الخليه ماتزيدش عن الى مكتوب العمود D ومتقلش عن الى مكتوب فى العمود V عايز اعملها فى Data Validation مش عارف اكتب ايه عايز المعادله بسسسسسسسس

up ?????????????????

السلام عليكم ورحمة الله وبركاته ؛؛؛ عايز كود اقفل بيه بداية من العمود D6 و العمود E6 محدش يقدر يغير فيه اى حاجه غير بأمر منى انا مقدرش اعملها بالطريقه العادية لان فى خلايا مدمجه كتيره اوى عندى اكتر من 30 ملف كل ملف فيه 30 شيت تانى حاجه عايز كود بداية من العمود E6 الى E1000 اقدر ازود فى اى خليه ارقام بحيث مينفعش اقلل الارقام دى بعد م ادوس على الامر والارقام دى متزيدش اعتماد على الخليه المجاوره D6 الى D1000 يعنى مثلاً انا كتبت فى الخليه E10 رقم 3 مينفعش ارجع اكتب رقم 2 بعد ما انا دوست على الامر ده اقدر اكتب 4 او 5 او 6 او 7 بحيث ماتزدش عن الى مكتوب فى الخليه D10 مقدرش اقلل غير بأمر منى انا ياريت حد يطبقهالى عن طريق كود فى الملف المرفق Book1.rar

السلام عليكم ورحمة الله وبركاتة ؛؛؛ فى المف المرفق عايز كود يزود فى الخليه D6 شهر هجرى يعنى يعمل + شهر الى بعده على الى مكتوب فى الخليه D6 يعنى لو شهر محرم لو جيت دوست على الامر يضيف الشهر الى بعده Book1.rar

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

بارك الله فيك استاذ عبد الله المجرب

up ?????????????

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

تسلم يا استاذ ياسر الله ينور

السلام عليكم ورحمة الله وبركاته ؛؛ الكود المرفق ده عباره عن انو بياخد Sheet1 كوبى وبيفتح شيت جديد بالاسم الى مكتوب فى الخليه A1 المشكله انو بياخد الصفحه من غير المعادلات الى موجوده فى الشيت 1 انا عايزو ياخودها كوبى واى خليه فيها معادله تتقل زى ما هيا المشكله التانية عايز الصفحه الى تتفتح باسم الخليه A1 عايز تتقفل اوتوماتك بباسورد 2012 يعنى لما ادوس على الامر يفتح شيت جديد بالاسم الى موجود فى الخليه A1 ويقفلها بباسورد 2012 وشكرا الملف مرفق به الكود Book1.rar

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

السلام عليكم ورحمة الله وبركاته ؛؛ عايز كود الون بيه خلايا محدده بمعنى انى لو كتبت فى الخليه A6 الرقم 1 الخلية B1 تدينى لون احمر ولو كتبت فى الخليه A7 رقم 2 الخليه B7 و C7 تتلون معايه احمر ولو كتبت رقم 3 الخليه B7 و C7 و D7 تتلون معايه لون احمر ويفضل كده لحد رقم 31 عايز الكود من الخليه A6 الى A36 اكتب اى رقم يلون خلايا بالترتيب على حسب الرقم يعنى لو رقم 4 يلون 4 خلايا جنب بعض B و c و d و E يشتغل معايا لحد رقم 31

السلام عليكم ورحمة الله وبركاتة ده كود ممكن تطبع بيه اى شيت انت تختاره Function PrintOneSheet() Sheets("Sheet1").PrintOut End Function كل الى عليك انك هتغير اسم الشيت وده كود ممكن تطبع بيه اكتر من ورقة Function PrintMultipleSheets() Sheets(Array("Sheet1" , "Sheet2", "Sheet3").PrintOut End Function وفى الرابط ده مجموعة اكواد طباعة ممكن تفيد اى حد http://www.learnexcelmacro.com/wp/2014/06/excel-macro-to-print/

شكرااااااااااااااااااا على الكود الرائع ده ربنا يزيدك من علمه

السلام عليكم ورحمة الله وبركاته ؛؛؛ فى الملف المرفق عايز معادلة تكتبلى اخر سطر مكتوب جنبه فى العمود K رقم ( 1) يعنى انا بدخل بيانات تحت بعض وعامل فى العمود k انه يكتب رقم 1 فى حالة تحقق شرط معين يكتب رقم 1 عايز يكتب اخر سطر مكتوب فى العمود K فى اخر خليه فيه مكتوب فيها 1 ينقل البيانات الى بداية من الخليه M8 الملف المرفق موضح اوى انا عايز ايه برنامج المعاملات الجديد.rar

شكرااااااا اخى الكريم فى ميزان حسناتك ان شاء الله