أيهاب ممدوح

شكرا تم التوصل بحمد لله الي المطلوب

شكر ا الاخوة الاحباء

للرفع

الاخوة الكرام ارجوا ضم الكودين في كود واحد شكرا Sub Button286_Click() Dim x1, i As Integer Application.ScreenUpdating = False ActiveSheet.Unprotect Password:="ehab123" Columns("d:iq").EntireColumn.Hidden = True If ActiveSheet.Shapes("Drop Down 6").ControlFormat.Value = 33 Then Columns("d:iq").EntireColumn.Hidden = False Range("d6").Select ElseIf ActiveSheet.Shapes("Drop Down 6").ControlFormat.Value = 32 Then For i = 11 To 251 Step 8 Cells(1, i).EntireColumn.Hidden = False Next Range("k6").Select Else x1 = ActiveSheet.Shapes("Drop Down 6").ControlFormat.Value Range(Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1), _ Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1 + 7)).EntireColumn.Hidden = False Cells(6, ((x1 - 1) * 5) + x1 * 3 + 1).Select End If ActiveSheet.Protect Password:="ehab123" End Sub Sub copy() Range("g2").copy Range("ah" & [ah1000].End(xlUp).Row + 1) Range("c3").copy Range("ai" & [ai1000].End(xlUp).Row + 1) Range("c4").copy Range("aj" & [aj1000].End(xlUp).Row + 1) Range("g4").copy Range("ak" & [ak1000].End(xlUp).Row + 1) Range("g3").copy Range("al" & [al1000].End(xlUp).Row + 1) Range("c5").copy Range("am" & [am1000].End(xlUp).Row + 1) End Sub

رفع

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

ارجوا من الاخوة الافاضل ارجوا دمج كود التحويل مع كود النسخ وترحيل معا في كود واحد ترحيل رقم السند و اسم الفرع المحول منه و اسم الفرع المحول اليه والتاريخ والكميه واسم الصنف في الجدول الموجود في نفس الشيت شكرا

للرفع

شكرا اخي الكريم استاذ رجب

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

يا سلام تسلم يا استاذ رجب هو ده المقصود بالفعل ياريت لو زر استدعاء للفورم مثلا حرف من الحرف او شفت او كنترول او ما شبه ذلك شكرا جزيلا

للرفع

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

الاخوة الكرام اريد تفعيل زر enter عند الاختيار من نتائج البحث ارجوا الاضافه علي الكود المرفق من الاخ رجب

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

للرفع

للرفع

احبائي شكرا علي المجهود الرائع لكن اريد عند كتابه التاريخ ميلادي في اي خليه يتحول الي الهجري المقابل له في نفس اليوم بمعني عند كتابه 22/7/2012 تتحول الي 3/رمضان /1433 شكرا

اخوتي الاعزاء بارك الله لكم واتم الله عليكم شهر رمضان بالخير والعفو والمغفرة والسعاده ان شاء الله

الاخوة الكرام الاعزاء كل عام وانتم بخير

الاخوة الكرام عند ادخال التاريخ في الاكسل بضيغه الميلادي ثم تغير صيغه التاريخ من ميلادي الي هجري من خلال فورمات الخليه يعطي تاريخ هجري متقدم بيوم عن التاريخ الفعلي بمعني ان اليوم 19/7/2012 عند تحوياله يعطي 1/ رمضان /1433 وهذا مخالف للتقويم الذي يكون 29// شعبان /1433 علما اني مقيم في السعوديه وهل يوجد علاقه لتاريخ الجهاز الكمبيوتر بالمشكله ام لا ؟؟؟ ارجوا الافاده ما العمل ؟؟؟؟؟؟؟؟؟؟؟ اخوكم ايهاب

الاخ رجب والاخوة الكرام If cl.Locked = False Then cl.ClearContents ارجو من الاخ رجب او الاخوة الكرام شرح هذا الجزئيه لانه عند نقل الكود الي ملف اخر يعطي خطأ شكرا

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

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

استاذ \رجب الله يكرمك والف شكرا علي تنفيذ الطلب وعلي سرعه الرد بارك الله فيك اخوك \ ايهاب