حمادة عمر

ولاثراء الموضوع شاهد اخي الكريم هذا المرفق Book2.rar

السلام عليكم الاخ الكريم / نايف الخلف بارك الله فيك واهلا بك وسط اخوانك واسرتك الثانية ( منتدي اوفيسنا العملاق ) ولكن اخي الكريم بخصوص طلبك ... لا يوجد بالملف سوي رؤوس الاعمدة في الاربع صفحات اولا : يجب عليك تحديد ماذا تريد من برنامجك ثانيا : ما هي البيانات التي تريد تسجيلها او ادخالها .. او ... او يرجي بعض الشرح ولكن يجب عليك ترتيب الطلبات اولا بأول لنقوم معا او ايا من اعضاء المنتدي الكرام بتقدم حل طلبك لسرعة وسهوله الردود تقبل خالص تحياتي

السلام عليكم الاخ الكريم / office 2003 بارك الله فيك وبعد اذن استاذي الحبيب / أبو حنين ... جزاه الله خيرا الكود المقدم من الاستاذ / ابو حنين .. يؤدي الغرض وزيادة علي حسب فهمي لطلبك ولكن اخي الكريم ... للتوضيح هل تقصد في اكسيل 2003 ان الاعمدة تظهر معك حتي العمود AV ام انك تقصد حتي العمود IV فالفرق كبير جدا حتي يمكن الرد عليك تقبلوا خالص تحياتي

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

السلام عليكم الاخ الكريم / hatem_1965 بارك الله فيك وجزيل شكري علي كلماتك الطيبة ولكن اخي الكريم بالنسبة للصوت فليس هناك صوت للفيديو حيث قمت بتسجيل الفيديو اخي عن طريق كتابة الشرح فقط اصل صوتي وحش خالص ياعم ... مردتيتش ازعجكم بقا .... ههههههه تقبل خالص تحياتي جزاك الله خيرا

الاخ الحبيب المبدع دائما / ضاحي الغريب

لاثراء الموضوع شاهد اخي الملف المرفق ارجو ان يعجبك زووم لقائمة منسدلة.rar

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

الأخ الكريم / محمد بارك الله فيك ان شاء الله ممكن تنفيذ طلبك ولكن اولا هل تقصد خلية معينة بعينها أم مجموعة خلايا أم عمود كامل أم... تقبل خالص تحياتي

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

بارك الله فيك وجزيت خيرا علي كلماتك الاكثر من رااائعة والتي تنم عن رفعة اخلاق شخصكم الكريم

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

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

السلام عليكم الاخ الكريم / هشام مرسي بارك الله فيك فكرة جميلة للتحايل علي الاكسيل تقبل خالص تحياتي

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

السلام عليكم الاخ الكريم / ريان أحمد بارك الله فيك اليك طلبك علي حسب فهمي قم بالتغيير في الملف الاساسي في المرفق سيتم تسجيل التغييرات في ملف آخر خارجي هو book1 بنفس الطريقة التي عرضتها عليك قبل ذلك ملحوظة : يجب ان يكون الملف book1 في نفس مجلد الملف الاساسي اي في نفس المسار ليكون الكود كالتالي Private Sub Worksheet_Change(ByVal Target As Range) Dim File As String '''''''''''''''' If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 _ Or Target.Column = 4 Or Target.Column = 5 Or Target.Column = 6 _ Or Target.Column = 7 Or Target.Column = 8 And Not IsEmpty(Target) Then Application.ScreenUpdating = False Application.DisplayAlerts = False '============================== File = ActiveWorkbook.Path & "\" & "book1.xls" Workbooks.Open File LR = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1 With Sheets("Sheet1") .Cells(LR, 1) = Target.Value .Cells(LR, 2) = Format(Now, "h:mm:ss") .Cells(LR, 3) = Format(Date, "dd-mm-yyyy") .Cells(LR, 4) = Target.AddressLocal .Cells(LR, 5) = ActiveSheet.Name End With: End If ActiveWorkbook.Save ActiveWorkbook.Close '============================== Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub ارجو ان يفي بطلبك تقبل خالص تحياتي تتبع التغيرات في ملف وتسجيلها في ملف آخر.rar

السلام عليكم الاخ الحبيب / Ahmed Habiba بارك الله فيك يتم تنفيذ طلبك اخي الكريم باضافة سطر بسيط للكود في الملف السابق وهو .Cells(LR, 5) = ActiveSheet.Name ليكون الكود كالتالي كما هو في الملف المرفق تقبل خالص تحياتي Nouveau Feuille de calcul Microsoft Excel.rar

السلام عليكم الاخ الحبيب / قنديل الصياد بالفعل مجهود ممتاز وخرافي ايه الحلاوة دي ... مغارة قنديل الصياد محفظة ورد ... محفظة بوربوينت ... محفظة في كل نوع من اصدارات الاوفيس جزاك الله خيرا

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

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

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

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

اخي الحبيب / قنديل الصياد ملف رااائع وجميل وبالفعل محفظة اكواد جميلة جزاك الله خيرا

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