أيهاب ممدوح

للرفع

للرفع يوجد مشكله في الوقت يكتب دائما الساعه 12 وانا اريد وقت الترحيل الحقيقي وعند الضغط علي زر ترحيل يقوم بالترحيل ثم الحفظ والاغلاق

للرفع

للرفع

أستاذ حماده ارجوا بعد الترحيل ان يغلق الملف نفسه بعد حفظ البيانات يوجد مشكله في الوقت لا يكتب الوقت الحقيقي شكرا

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

الاخوة الاعزاء مرفق ملف به عمودين الاول الاسم والثاني الوقت والتاريخ اريد يوزرفورم يظهر بمجرد فتح الملف ولا يعرض الملف يقوم الموظف بادخال الاسم ثم الضغط علي زر الترحيل يقوم بالترحيل الاسم ومجرد ترحيل الاسم يكتب تاريخ و وقت الترحيل New Microsoft Excel Worksheet.rar

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

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

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

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

شكرا استاذ عبد الله

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

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

للرفع

الاخوة الكرام ارجوا ضم الكودين في كود واحد شكرا 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 فقط شكرا للجميع