أبو هاجر المصري قام بنشر يناير 13, 2009 قام بنشر يناير 13, 2009 لم اجد ابدا حل لهذه المشكلة بحثت في كل المقالات والاسئلة والاجوبة فلم اعثر ربما لتقصيري المهم المرفق ملف واريد التطبيق عليه من إخواننا الله يجزاهم بالخير مش عايز اقول عمالقة العملية مش محتاجة عمالقة ان شاء الله Book1.rar
عادل حنفي قام بنشر يناير 13, 2009 قام بنشر يناير 13, 2009 السلام عليكم اخي الفاضل أبو هاجر المصري تم عمل المطلوب بشرط اكمال بيانات القيد بمعني انه تم ربط الترحيل بخانة البيان فاذا تم كتابة البيان يتم الترحيل ارجو التجربة و اخباري بالنتيجة تحياتي ______.rar
أبو هاجر المصري قام بنشر يناير 14, 2009 الكاتب قام بنشر يناير 14, 2009 جزاك الله خيرا اخي ahh ولكنني اطلب طلب اخير منك الله يخليك تشرح لي بس فكرة عمل الزر ده علشان اقدر استخدمه في عملي ولو بملف اكسيل الله يخليك يا رب وما قصرت
عادل حنفي قام بنشر يناير 14, 2009 قام بنشر يناير 14, 2009 السلام عليكم اخي لم افهم قصدك بكلمة الزر فالملف لا يوجد به زر و ان كنت تقصد ماتم عمله كل ما عليك هو نسخ الكود بالطريقة المرفقة و لصقها بنفس الطريقة في الملف الذي تريد مع ملاحظة ان مكان عمل الكود سيكون نفس الاعمدة اي من العمود الاول الي العمود السادس ان كان قصدك غير ذلك رجاء اخبرني تحياتي ___.rar
أبو هاجر المصري قام بنشر يناير 15, 2009 الكاتب قام بنشر يناير 15, 2009 شكرا لك اخي ahh وجزاك الله خيرا ولكن برضة انت مفهمتنيش مش مشكلة الكود المشكلة بيعني ايه على اساس اني هطبقه على شغلي انا فاكيد الكود مشتمل صفوف واعمده عايز اعرف ايه اللي اشسله وايه اللي ابدله وبعدين الترحيل مش شغال بمعنى اصح يشتغل مرة واحدة فقط امسح البيانات المرحلة من الجداول واحاول ارحل ثانية فلا يعمل الزر وطلباتي كثرت كتير انا عارف ولكنه ليس بمقدار عطاءكم
عادل حنفي قام بنشر يناير 15, 2009 قام بنشر يناير 15, 2009 (معدل) السلام عليكم اخي العزيز ساحاول الشرح قدر استطاعتي مع العلم ان الكود يعمل بكفاءة دون اي مشاكل و هذا هو الكود مرفق بالشرح Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim response r = 6 'تحديد العمود For n = 2 To 1000 ' الصفوف من الثاني الي ال 1000 If Target.Cells <> Cells(n, r) Then Exit Sub ' اذا كان التعامل خارج نطاق الصفوف الحدده و العمود المحدد يتوقف الكود df = Target.Row 'اعطاء مسمي لصف الخلية التي نقف عليها و نكتب بيانها If Cells(df, 3) = "الصندوق" Then 'شرط اذا كان الف الذي نكتب بيانه في العمود الثالث منه المكتوب به الصندوق عندئذ With Sheets("الصندوق").Columns(1).Rows(300).End(xlUp) ' يتم الاتجاه الي صفحة الصندوق العمود الاول تحت اخر خليه بها قيمة حتي الصف ال300 .Offset(1, 0) = Cells(df, 1) 'العمود الاول ياخذ قيمة العمود الاول لصف الخلية التي يكتب بيانها .Offset(1, 1) = Cells(df, 2) 'العمود الاول ياخذ قيمة العمود الثاني لصف الخلية التي يكتب بيانها .Offset(1, 2) = Cells(df, 4) 'العمود الاول ياخذ قيمة العمود الرابع لصف الخلية التي يكتب بيانها .Offset(1, 3) = Cells(df, 5) 'العمود الاول ياخذ قيمة العمود الخامس لصف الخلية التي يكتب بيانها .Offset(1, 4) = Cells(df, 6) 'العمود الاول ياخذ قيمة العمود السادس لصف الخلية التي يكتب بيانها End With End Else ' غير ذلك If Cells(df, 3) = "المبيعات" Then ' نفس الشئ اذا كانت الخليه المكتوب بها كلمة المبيعات With Sheets("المبيعات").Columns(1).Rows(300).End(xlUp) .Offset(1, 0) = Cells(df, 1) .Offset(1, 1) = Cells(df, 2) .Offset(1, 2) = Cells(df, 4) .Offset(1, 3) = Cells(df, 5) .Offset(1, 4) = Cells(df, 6) End With End If End End If Next End Sub جرب مرة ثانية و اخبرني النتيجة ارسل لك ملفا اخر مضاف له شرط عدم تكرار ترحيل القيد تحياتي ______.rar تم تعديل يناير 15, 2009 بواسطه aah_aah2008
أبو هاجر المصري قام بنشر يناير 17, 2009 الكاتب قام بنشر يناير 17, 2009 والله انا متشكر فعلا لكن الملف اللي رسلته للأسف حتى زرار الترحيل اصلا غير موجود ممكن انت نسيته اما الشرح كويس جدا جدا بس يمكن انا اللي مش مستوعب طب خليك معايا واحدة واحدة ممكن نعمل الترحيل بمعادلات وليس ازرار واكواد وشكرا مرة تانية وعاشرة على اهتمامك جعله الله في ميزان حسناتك
عادل حنفي قام بنشر يناير 17, 2009 قام بنشر يناير 17, 2009 (معدل) السلام عليكم اخي العزيز لا يوجد ازرار ترحيل الترحيل يتم عندما تملأ خلية البيان جرب مرة اخري و اخبرني تحياتي تم تعديل يناير 17, 2009 بواسطه aah_aah2008
أبو هاجر المصري قام بنشر يناير 17, 2009 الكاتب قام بنشر يناير 17, 2009 مفيش حاجة بتحصل بسجل القيود ولا يتم ترحيل اي شئ تأكد من الملف وبانتظار ردك اخي الكريم
عادل حنفي قام بنشر يناير 17, 2009 قام بنشر يناير 17, 2009 السلام عليكم اخي تاكد من ان الامان ليديك علي الاقل ان يكون متوسطا وذلك كماتري في ملف الفيديو المرفق و عندما تطبق ما رايت بملف الفيديو اغلق الملف و افتحه مرة اخي ارجو ان يكون هذا هو السبب و سؤال اخر هل الاوفس الذي تعمل عليه 2003 ام ماذا؟ ___.rar
أبو هاجر المصري قام بنشر يناير 18, 2009 الكاتب قام بنشر يناير 18, 2009 أخي العزيز جزاك الله الف خير على الشرح وعلى المجهود وعلى كل شئ على العموم اشتغل الترحيل عندي والاوفيس فعلا 2003 بس لي طلب أخير هجهزه وأرسله ليك بملف
أبو هاجر المصري قام بنشر يناير 18, 2009 الكاتب قام بنشر يناير 18, 2009 قولي ايه رأيك في الملف المرفق عامة هي حاجة بسيطة جدا جدا بس هعوز عليها شوية اضافات او تحابيش منك 1- اذا فيه دالة ايضا تخلي المرحل للحسابات الفرعية لا يتضمن الصفوف الفارغة او بمعنى اصح شرط مثلا في ( if ) يخلي الخطأ لا يسجل شئ 2- اذا ممكن اعمل نموذج للإدخال أحسن من اني اسجل مباشرة في ورقة اليومية 3- في شيت الحسابات بإضافة اسم حساب للقائمة يفتح شيت باسمه وبتنسيق معين وجزاك الله ألف خير يا غالي 4444.rar
عادل حنفي قام بنشر يناير 21, 2009 قام بنشر يناير 21, 2009 (معدل) السلام عليكم اخي بالنسبة لشرط الترحيل لو صف فارغ لن يرحل طالما لم تكتب شئ في خانة البيان و هذا لن يترك فاغ في الصفحة المرحل اليها اما لباقي الطلبات فتحتاج لبعض الوقت او لتفادي ضياع هذا الوقت توجد بالمنتدي مواضع كثيرة للكتابة عن طريق الفورم ستجد الكثير منها عن طريق البحث بكل سهولة ارجو المحاوله و ان تعصي عليك الامر ستجدنا معك ان شاء الله اما بخصوص اضافة عمود اذا تم كتابة بند جديد يتم اضافة عمود بها ارجو ارسال ملف به صفحة الحسابات و شكلها ليتم التنفيذ عليها تحياتي تم تعديل يناير 21, 2009 بواسطه aah_aah2008
أبو هاجر المصري قام بنشر يناير 22, 2009 الكاتب قام بنشر يناير 22, 2009 أشكرك كثيرا يا أخي على اهتمامك بصراحة لكن المشكلة انك عايز تديني صنارة ... لكن عايز اتعلم اصطاد .................. اولا : الملف الي انا رسلته انت معلقتش عليه خالص هو في ابسط صورة بيستخدم IF مش اكثر ولا اقل ثانيا : حاولت كتير اني اجرب الماكرو بتاعك أنسخ والصق فعلا تتم العملية لكن فيه مشكلتين أ/ عايز أنمطه على شغلي ، وطبعا انا مش فاهم حاجة من البرمجة بتاعته او بمعنى اصح فاقد لأقل أساليب برمجة VB ب/ أي حساب آخر غير الصندوق لا يتم الترحيل له ... المطلوب منك أخي بلا أمر عليك دالة بسيطة جدا لا فيجوال ولا ماكرو ولا الكلام ده خالص تقولي عليها وعلى طريقتها او ترسلها في ملف تقوم بالترحيل من اليومية الى الحسابات زي ما انت عارف وفي نفس الوقت لا ترحل الفراغات لكن التكرار مفيهوش مشاكل لانه بيحصل فعلا يوميا وجزاك الله عني الف خير وان كنت مصر على العمليات المبرمجة برضة ارجوك ارجوك ارجوك رجاء حار تشرحها لي بحيث اعرف لو انا عايز اعمل الكلام ده في ملف تاني باسم شيتات تانية بأماكن اعمدة وصفوف اخرى بنظام تاني ايه اللي اعمله بالضبط عارف اني تقلت عليك قوي بس لان الموضوع جدا مهم اعذرني
أبو هاجر المصري قام بنشر يناير 24, 2009 الكاتب قام بنشر يناير 24, 2009 اخي الكريم جدا AAH-AAH ارجوك رجاء حار الرد علي الوقت يداهمني جدا لو انت نسيت الموضوع ترحيل من اليومية الى الحسابات بدون فراغ لو كانت دلة تبقى خير لو مكنش ارجوك الرد
amoudi قام بنشر يناير 25, 2009 قام بنشر يناير 25, 2009 يا أخ ابوهاجر انا اشوف انه المشرف ما قصر معاك وواضح انه انت ما عندكش فكرة عن الماكرو والأكواد (مش عيب) والى عاوزوه انت ما يحصل بدون الأكواد وحتكون العملية صعبة عليك وعلى الى ح يشرح لك وانت ما معاك الوقت الكافي فياريت تمشي نفسك بالموجود وتقلب في المنتدى وتتعلم حبة حبة ولاتزعل مني تحياتي
أبو هاجر المصري قام بنشر يناير 25, 2009 الكاتب قام بنشر يناير 25, 2009 يا سيد ي انا مقلتش خالص المشرف قصر معايا بس هو متخيل اني عندي اي شئ عن الاكواد بس انا خالص معرفش فيها حاجة وعلى العموم برضة انا عملت الملف اللي انا عايزه لاني محتاجه ولا الحوجة لحد يا سيدي وبالعكس عملته بالماكرو وأكواد وفورم ادخال وبحث واكثر والحمد لله وطبعا باجتهاد ذاتي
عادل حنفي قام بنشر يناير 25, 2009 قام بنشر يناير 25, 2009 السلام عليكم الاخ أبو هاجر المصري اجد انك من النوع الي لايصبر حتي يجني مقابل هذا الصبر و اتمني من كل قلبي ان يكون مجهودك الذاتي انجز عملك فالمطلوب من هذا المنتدي المساعدة قدر المكان لكي تستطيع عمل ما تريده بمجهودك الذاتي اي تعلمت شيئا عاد عليك بالنفع ثانيا لم يكن اهمالا فيك بل بالعكس كان فيه عمل اقوم به بجانب عملي علي ملفك الذي كلما اتي لنهايته تظهر لي مشكلة اخري المهم ارجو ان يكون هذا الملف كما اردت فعند كتابة الكود لابد و ان يكتب حتي بند البيان كالسابق و اذا كان هناك بند جديد سيتم انشاء شيتا جديدا باسم هذا البند و علي فكره جرب عمل الملف باحد الدوال و لكني وجدته سيكون ثقيلا جدا في عمله ارجو التجربة و اخباري last_______.rar
أبو هاجر المصري قام بنشر يناير 26, 2009 الكاتب قام بنشر يناير 26, 2009 اولا: اخي الكريم جدا AAH-AAH انا آسف وفي غاية الأسف جدا لو كنت فهمت مني شئ لا يرضيك بالعكس خالص اكن لك احترام بالغ ، ولكل مشرفي المنتدى حقيقة لانهم بالفعل يقومون بمجهود كبير لشرح الاوفيس عامة والاكسيل خاصة وتتوجود جهودكم بالامثلة العملية فتحية لكم جميعا ولك خاصة .. ثانيا: الملف الأخير غير عادي كان من الأول مشاء الله عليك بجد حاجة جميلة جدا جدا ، احسن ما فيها فكرة انشاء شيت لكل حساب جديد يضاف لليومية ويتم فيه ترحيل بيانات قيود اليومية عليه تلقائيا ... ايه الجمال ده . ثالثا: ارجو منك ارسال ايميلك او اضافة ايميلي عندك لاني صحيح ان مشكلتي اتحلت لكن عايز الكتير في اكسيل ...ومعتقدش انك هتبخل ان شاء الله باذن الله ... وأخيرا شكرا لك جزيلا وجعله الله في ميزان حسناتك ايميلي هو : albarona1@hotmail.com
عادل حنفي قام بنشر يناير 26, 2009 قام بنشر يناير 26, 2009 (معدل) السلام عليكم اخي أبو هاجر المصري اولا لا اعتبر ان هناك شيئا يحتاج للاسف الحمد لله ان المشكلة اتحلت بالنسبة للايميل موجود داخل صفحتي و لكنه للاتصال الشخصي فقط و انا من انصار اذا كان هناك اي مشكلة يجب عرضها عن طريق المنتدي ليستفاد من حلها باقي الاعضاء هذا من ناحية و من ناحية اخري تكون معروضة لاكبر عدد فقد يكون هناك حلا افضل مما فكرت انا فيه و هذا يفيدني انا ايضا مش كده و لا ايه خالص تحياتي و تقديري تم تعديل يناير 26, 2009 بواسطه aah_aah2008
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.