sadouka قام بنشر ديسمبر 26, 2011 قام بنشر ديسمبر 26, 2011 السلام عليكم ورحمة الله وبركاته اريد شرح طريقة لكى ادخل البيانات فى شيت يوميه للعملاء والموردين وترحل تلقائيا فى شيت تانى للعملاء والموردين به حساب لكل عميل منفردا مع العلم بان نفس شكل الورقة فى شيت اليومية مطابق لشكلها فى شيت العملاء ولكن لكل عميل على انفراد ازاى اربط بين الشيتين اريد الشرح ضرورى ولكم جزيل الشكر وجزاكم الله كل خير
الـعيدروس قام بنشر ديسمبر 27, 2011 قام بنشر ديسمبر 27, 2011 لو ترفق مثال وعليه شرح مبسط ان شاء الله نتوصل لما تريد
محمد السيد الشاطر قام بنشر ديسمبر 27, 2011 قام بنشر ديسمبر 27, 2011 لا تعتبره تطفل ولكن مجرد فكرة ارجو ان يتسع صدركم لى وللاخ السائل لدى نفس لطلب اريد مثلا فى شيت رصد درجات مادة اللغة العربية مثلا عندما اكتب فى الخانة مثلا a1 أى رقم وليكن خمسين تنقل فى شيت الدرجات اما م الطالب الاول وتمسح من شيت الرصد
ابو اسامة العينبوسي قام بنشر ديسمبر 28, 2011 قام بنشر ديسمبر 28, 2011 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A1")) Is Nothing Then Sheet2.Cells(Target.Row, 1) = Target.Value Target = Null Application.EnableEvents = True End If End Sub
abouelhassan قام بنشر ديسمبر 28, 2011 قام بنشر ديسمبر 28, 2011 (معدل) كل الشكر والتقدير استاذنا ابو اسامة احترامى تم تعديل ديسمبر 28, 2011 بواسطه abouelhssan
محمد السيد الشاطر قام بنشر ديسمبر 29, 2011 قام بنشر ديسمبر 29, 2011 اخى العزيز ابواسامه لو تضع لنا مرفق به نتيجة الكود وجزاك الله خيرا
العام الجديد2012 قام بنشر يناير 6, 2012 قام بنشر يناير 6, 2012 للرفع وانا كذالك ابحث عن هذا الكود اذا ممكن ارفق ملف لتوضيح بحيث يتم الترحيل تلقائي حسب الاسم كل اسم الى شيت مخصص به مع الشكر
الـعيدروس قام بنشر يناير 6, 2012 قام بنشر يناير 6, 2012 السلام عليكم الاخ الفاضل نزاهة والاخ الحبيب العام الجديد اذا كنت تريد كود يلائم طلبك ارفق مثال وان شاء الله سوف تجد من يقوم بعمل اللازم وزيادة وفقك الله 1
احمدزمان قام بنشر يناير 7, 2012 قام بنشر يناير 7, 2012 السلام عليكم اخي خالد عامر تنزيل اي مرفق لا يحتاج ميزة بمجرد الإشتراك في المنتدى اضغط على اي مرفق يتم تنزيلة فورا كملف مضغوط
احمدزمان قام بنشر يناير 7, 2012 قام بنشر يناير 7, 2012 السلام عليكم الاخ الفاضل نزاهة والاخ الحبيب العام الجديد اذا كنت تريد كود يلائم طلبك ارفق مثال وان شاء الله سوف تجد من يقوم بعمل اللازم وزيادة وفقك الله
العام الجديد2012 قام بنشر يناير 10, 2012 قام بنشر يناير 10, 2012 السلام عليكم ارفقت ملف بالمطلوب بعد ان عدلت بعض التعديلات علية وبلاصل الملف من احد الاخوه الكرام في هذا المنتدى المطلوب ان يتم الترحيل تلقائي من الكشف الرئيسي بعدالاضافة في الفورم حسب الجنسية كل جنسية الى شيت المخصص بها مع عدم مسح البيانات في الشيت الرئيسي مع الشكر المطلوب ترحيل تلقائي.rar
الـعيدروس قام بنشر يناير 10, 2012 قام بنشر يناير 10, 2012 السلام عليكم هذا الكود Sub ALIDROOS_JC_T() Application.ScreenUpdating = False Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets For R = 2 To 31 If sh.Name = "الكشف الرئيسي" Then GoTo 2 If Cells(R, 4).Value <> Empty Then If Cells(R, 4).Value = sh.Name Then Range(Cells(R, 1), Cells(R, 11)).Copy QQ = sh.Cells(1000, 1).End(xlUp).Row + 1 sh.Range("A" & QQ).PasteSpecial xlPasteValues End If End If Next 2 Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub وهذا المرفق المطلوب ترحيل _ALI.rar
العام الجديد2012 قام بنشر يناير 10, 2012 قام بنشر يناير 10, 2012 (معدل) الاستاذ ( أبو نصار ) اشكر لك سرعة ردك وتفاعلك ولكن كان قصدي اضيف البيانات في الفورم وعند الاضافة في الفورم تنزل في الكشف الرئيسي ثم او بنفس الوقت يتم الترحيل تلقائي من الكشف الرئيسي حسب الشيت اي بدون زر الترحيل اريدة الكود الترحيل في الفورم مدمج مع كود زر الاضافة والتعديل والحذف هل هذا ممكن ؟؟ يوجد مشكلة الان اذا ضغطت عدة مرة على ترحيل تتكرر نفس البينات هل ممكن نضيف شرط عدم تكرار نفس لبيانات كاملة بالصف ولو تغير بعضها يقبل واكرر شكري لك تم تعديل يناير 10, 2012 بواسطه العام الجديد2012
الـعيدروس قام بنشر يناير 10, 2012 قام بنشر يناير 10, 2012 (معدل) استبدل كود زر الاضافة بهذا الكود Private Sub CommandButton1_Click() Dim sh As Worksheet Dim R As Integer, N As Integer, Endrow As Integer, ALI As Long Set sh = Sheets(TextBox4.Value) ALI = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 For R = 0 To 10 If Me.Controls(myCon(R)).Text = "" Then N = N + 1 Next If N <> 0 Then MsgBox "ملف فارغ لا يمكن الأضافة": GoTo 1 Me.MousePointer = 11 With Sheets("الكشف الرئيسي") Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1 For R = 0 To 10 .Cells(Endrow, R + 1).Value = Me.Controls(myCon(R)).Value If TextBox4.Value = sh.Name Then sh.Cells(ALI, R + 1).Value = Me.Controls(myCon(R)).Value End If Next R End With KH_A ActiveWorkbook.Save Me.MousePointer = 0 MsgBox "تمت الأضافة بنجاح" 1 End Sub وهذا المرفق المطلوب ترحيل _ALI_1.rar تم تعديل يناير 10, 2012 بواسطه alidroos 1 1
العام الجديد2012 قام بنشر يناير 11, 2012 قام بنشر يناير 11, 2012 كل الشكر والتقدير الاستاذ ( أبو نصار ). الله يعطيك الف عافية واعتذر لو اطلت عليك هل فيه امكانية 1- عدم قبول التكرار كامل في الصف لانه مازال يقبل تكرار نفس البيانات كاملة في الصف 2- التعديل يكون على الجميع فهو يعدل فقط في شيت الكشف الرئيسي ويبقى الشيت الاخر كما هو قبل التعديل وجزاك الله خيرا
sadouka قام بنشر يناير 11, 2012 الكاتب قام بنشر يناير 11, 2012 السلام عليكم شكرا على اهتمامكم وربنا يجعلوا فى ميزان حسناتكم كنت اريد ربط ملف اكسل بملف اكسل اخر وليس شيت كما طلبت فى المره السابقه اسف على سؤ التوضيح وارجو الافاده
sadouka قام بنشر يناير 11, 2012 الكاتب قام بنشر يناير 11, 2012 السلام عليكم شكرا على اهتمامكم وربنا يجعلوا فى ميزان حسناتكم كنت اريد ربط ملف اكسل بملف اكسل اخر وليس شيت كما طلبت فى المره السابقه اسف على سؤ التوضيح وارجو الافاده
sadouka قام بنشر يناير 11, 2012 الكاتب قام بنشر يناير 11, 2012 و يكون ملف اكسل الاول به يومية العملاء والموردين والملف الثانى حسابات العملاء والموردين (كل عميل فى شيت لوحده) اريد ادخال حركة اليومية فى الملف الاول فيتم الترحيل تلقائى فى حساب كل عميل بالملف الثانى الملف الاول يتكون من (خانة اسم العميل -وجانب عملاء(دفعات-الكميه-السعر -القيمة)- البيان - الموردين (دفعات-كميه -سعر- القيمة)) الملف الثانى به مجموعه كبيرة من الشيتات بأسم كل عميل والشيت عباره عن(الرصيد-وجانب عملاء(دفعات -كميه -سعر -قيمه)- البيان -جانب موردين (دفعات- كميه -سعر -قيمه))وبه ايضا شيت خاص بالعملاء الغير دائمين يتكون من( اسم العميل والدفعات وجانب عملاء وموردين )
العام الجديد2012 قام بنشر يناير 11, 2012 قام بنشر يناير 11, 2012 اعتذر من اخي sadouka لم يبقى الا نقطتين واطمع من الاستاذ ( أبو نصار ) اكمالهما واعتذر لو اطلت عليك هل فيه امكانية 1- عدم قبول التكرار كامل في الصف لانه مازال يقبل تكرار نفس البيانات كاملة في الصف 2- التعديل يكون على الجميع فهو يعدل فقط في شيت الكشف الرئيسي ويبقى الشيت الاخر كما هو قبل التعديل وجزاك الله خيرا
الـعيدروس قام بنشر يناير 12, 2012 قام بنشر يناير 12, 2012 السلام عليكم الاخ الفاضل sadouka نرجو طرح موضوع جديد لطلبك ولن يقصر لجميع معك الاخ الفاضل العام الجديد 2012 الشرط على ماذا مثلا ( الاسم - رقم القيد - تاريخ الميلاد ) نرجو التوضيح واما التعديل على الكل جرب المرفق والسلام عليكم المطلوب ترحيل _ALI_2.rar
العام الجديد2012 قام بنشر يناير 13, 2012 قام بنشر يناير 13, 2012 (معدل) كل الشكر والتقدير للاستاذ ( أبو نصار ) انت مبدع عند التعديل بتغيير الجنسية الى اخرى لا يتم التعديل ولا الترحيل فقط يكون التعديل في الكشف الرئيسي ولو فيه امكانية اضافة زر للحذف في الفورم ويحذف من الجميع والشرط عدم تكرار رقم القيد و تاريخ الميلاد ولك جزيل الشكر تم تعديل يناير 13, 2012 بواسطه العام الجديد2012
الـعيدروس قام بنشر يناير 13, 2012 قام بنشر يناير 13, 2012 (معدل) السلام عليكم جرب المرفق المطلوب ترحيل _ALI_3.rar تم تعديل يناير 13, 2012 بواسطه alidroos
العام الجديد2012 قام بنشر يناير 13, 2012 قام بنشر يناير 13, 2012 (معدل) الاستاذ ( أبو نصار ) نفس المشكلة لم يتغير شي مع التعديل عند التعديل بتغيير الجنسية الى اخرى لا يتم التعديل ولا الترحيل ولا حذف السابق فقط يكون التعديل في الكشف الرئيسي ولو فيه امكانية اضافة زر للحذف في الفورم ويحذف من الجميع اما التكرار فهذا المطلوب جزاك الله خير تم تعديل يناير 13, 2012 بواسطه العام الجديد2012
الـعيدروس قام بنشر يناير 14, 2012 قام بنشر يناير 14, 2012 السلام عليكم جرب المرفق واي تعديلات او اضافات انا موجود وعذراً على التأخير تعرف شواغل الدنيا المطلوب ترحيل _ALI_4.rar 1
الردود الموصى بها