احمد رائد

منذ ساعه, ياسر خليل أبو البراء said:

يرجى مراجعة الطلب والملفات المرفقة .. فطلبك هو إدراج تاريخ لمجموعة مدخلات مرحلة سوياً .. !!

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

15 ساعات مضت, ابو عبدالبارى said:

اخى العزيز ارجو ان يفى هذا الملف بالغرض

test.rar

شكرا جزيلا ابو عبد الباري هذا هو المطلوب .تحياتي

بعد البحث في المنتدى لم اجد كود او معادلة تمكنني من كتابة التاريخ تلقائيا لمجموعة اسماء او اي مدخلات مرحلة سويا من سجل الى اخر والذي وجدتة هو طريقتان لاتقومان بالعمل المطلوب كما في الملف المرفق(ملف اكسل 2003,والاخر 2013),فاذا كان لدى احد الحل اكن له شاكرا 

test 2013.rar

test 2003.rar

في 4/27/2016 at 07:35, سليم حاصبيا said:

اسمجوا لي بهذه الاضافة 

حيث اذا قمت بزيادة او حذق صفوف لا يتأثر الترقيم

=IF(B2<>"",MAX($A$1:A1)+1,"")

توضع المعادلة ابتداءً من الخلية A2

رائع............وشكرا

في 5/2/2016 at 18:41, ياسر خليل أبو البراء said:

جرب الكود بهذا الشكل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    On Error Resume Next
    If Not Intersect(Target, Range("C1:C60000")) Is Nothing Then
        VBA.Calendar = vbCalGreg
        If IsEmpty(Target) Then
            Target.Offset(0, 2).ClearContents
        Else
            With Target.Offset(0, 2)
                .Value = Date
                .EntireColumn.AutoFit
            End With
        End If
    End If
End Sub

تقبل تحياتي

 

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

في 5/2/2016 at 18:41, ياسر خليل أبو البراء said:

جرب الكود بهذا الشكل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    On Error Resume Next
    If Not Intersect(Target, Range("C1:C60000")) Is Nothing Then
        VBA.Calendar = vbCalGreg
        If IsEmpty(Target) Then
            Target.Offset(0, 2).ClearContents
        Else
            With Target.Offset(0, 2)
                .Value = Date
                .EntireColumn.AutoFit
            End With
        End If
    End If
End Sub

تقبل تحياتي

 

شكرا جزيلا  بارك الله فيك

في 5/10/2014 at 14:07, أبو إيمان said:

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

تغيير التاريخ.rar

شكرا اخي على هذا الكود الرائع كنت بحاجة الية جدا. ولكن هل يمكن تغيرة بحيث ان عمود التاريخ ليس مجاور لعمود البيانات اي ان البيانات عمود cمثلا والتاريخ E مع الشكر الجزيل

السلام عليكم

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

مثال.rar

اسف على تكرار الموضوع بسبب خطأ بالسيرفر

شكراا جزيلا  فعلا ياخي سليم حاصبيا انت خبير   تحياتي.............

جرب هذا الحل في الملف المرفق (اكسل 2013) الافضل يكون الاكسل تبعك 2013 

Book1.rar

السلام عليكم  

هل استطيع ان اجد قيمة خلية ما ولتكن C5 في عمود معين (لأدخالها في معادلة)حيث ان ال 5 هي متغيرة تبعا لقيمة خلية اخرى اي اذا اصبحت قيمة الخلية الثانية 9 مثلا تكون قيمة الخلية C9 هي المطلوبة وهكذا ,كأن اكتب       (      Ck4=   ) حيث ان الk4  هي قيمة تلك الخلية الثانية (وهذا الكود خاطيء طبعا) ولكم الشكر مقدما