Salah1989

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

السادة المحترمين أعضاء المنتدى المتميز. اريد التعديل على كود اكثر من رائع من ابداعات احد الاعضاء المحترمين ولكن لا استطيع تذكر اسمه(جزاه الله خيرا) يعمل علىحفظ ملف الاكسيل داخل مجلد يحدد طبقا لخلية وكذلك يعطى اسم للمجلد واسم للملف بناءا على خلية داخل الملف نفسه. المطلوب التعديل على الكود ليحفظ الملف بصيغة PDF. وشكرا لكم حفظ داخل مجلد1.rar

السادة المحترمين أعضاء المنتدى المتميز. اريد التعديل على كود اكثر من رائع من ابداعات احد الاعضاء المحترمين ولكن لا استطيع تذكر اسمه(جزاه الله خيرا) يعمل علىحفظ ملف الاكسيل داخل مجلد يحدد طبقا لخلية وكذلك يعطى اسم للمجلد واسم للملف بناءا على خلية داخل الملف نفسه. المطلوب التعديل على الكود المرفق ليحفظ الملف بصيغة PDF. وشكرا لكم حفظ داخل مجلد1.rar

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

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

السلام عليكم جزالك الله خيرا يا استاذ ياسر وشكرا على الاهتمام.. فعلا اريد تغيير ارتفاع الصفوف من 12 إلى 18 وليس الاعمدة...برجاء الاطلاع على الملف المرفق حيث اننى استفدت من الكود اللى حضرتك كتبته فى المشاركة وقمت بتعديل عليه اوصلنى لما اريده. برجاء الاطلاع على الكود الموجود على الزر Hide والتعديل عليه اذا كان فيه شيى مش مظبوط. تكليف نقلتجريبى3.rar هذا هو الكود استاذ ياسر Sub Hideempty() ' ' Hideempty Macro ' ' ActiveSheet.Range("$O$3:$O$18").AutoFilter Field:=1, Criteria1:="=Value", _ Operator:=xlOr, Criteria2:="=" If Application.WorksheetFunction.CountA(Range("K12:K18")) = 1 Then Selection.RowHeight = 200 ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 2 Then Selection.RowHeight = 150 ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 3 Then Selection.RowHeight = 100 ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 4 Then Selection.RowHeight = 80 ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 5 Then Selection.RowHeight = 70 ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 6 Then Selection.RowHeight = 60 ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 7 Then Selection.RowHeight = 50 End If End Sub

السلام عليكم فى الملف المرفق مجموعة من الصفوف عددهم 7 صفوف ملونة باللون الاصفر اريد كود لتغيير جحم الصفوف بناءا على النطاق الملون بالازرق بحيث حجم ;حجم العمود 50;IF(COUNTA(K12:K18)=3;;;;;حجم العمود 100;IF(COUNTA(K12:K18)=2 تكليف نقلتجريبى3.rar

شكرا استاذ ياسر على الاهتمام والرد...ولو تكرمت مش عارف انفذ الكود ...بمعنى انى كتبت الكود كدا Sub Button7_Click() Dim Rng As Range On Error Resume Next Set Rng = Rows(3).Find("Loading Dates") Rng.Activate On Error GoTo 0 End Sub بيوصلنى الى اول الصفحة عند "أيام التحميل" ولكن اريد انه يوصلنى الى نفس المكان ولكن فى خلية محددة طبقاا لنفس الصف اللى انا واقف فيه مش بداية الصفحة

ب ابحث عن ماكرو لعمل زر انتقال الى خلية محددة داخل جدول يتكون من عدد كبير من الاعمدة بحيث عند الضغط على زر الانتقال يتم تحريك الشاشة على اعمدة معينة وكذلك يتم وضع المؤشر داخل اول خلية فى العمود المطلوب بناءا على الصف الذى فيه المؤشر.نجحت فى عمل ماكرو لتحريك الشاشة ولكن اريد الماوس يتجه تلقائى الى خليه معينة بناءا على الصف الذى اقف فيه ...للتوضيح برجاء مراجعة الملف المرفق 21(2) register Salah Empty 8.rar