اذهب الي المحتوي
أوفيسنا

اريد كود ترحيل يرحل من ورقة اليومية الي ورقة البنوك


abcdefgh2005

الردود الموصى بها

المطلوب عند تسجيل في ورقة اليومية في خانة البنك مدين او دائن

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

وكل حركة تحت بعضها

2.zip

رابط هذا التعليق
شارك

شكرا علي المجهود الرائع جدا

ولكن لاحظت عند الضغط علي الزر اكثر من مرة يتم الترحيل اكثر من مرة

اريد الغي هذا الزر واجعل عند كتابة الرقم وكود البنك يتم ترحيل تلقائي

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

وما هو الثابت في الكود الذي لا استطيع تعديله وما هو المتغير اللي استطيع الكتابه بدلا منه اذا اردت ان اطبقه علي اكثر من شيت

لانه كود رائع حقا واتمني استخدامه

وجزاك الله عنا خيرا

2323.zip

رابط هذا التعليق
شارك

‏الجمعة‏، 27‏/10‏/1430هـ الموافق ‏16‏/10‏/2009م

السلام عليكم و رحمة الله وبركاته

اريد الغي هذا الزر واجعل عند كتابة الرقم وكود البنك يتم ترحيل تلقائي

هكذا يوجد اختلاف كامل للكود

حيث سوف يتعامل مع الصف الحالي فقط للورقة النشطة حاليا

الموضوع بدو دراسة من جديد

رابط هذا التعليق
شارك

السلام عليكم

استاذي احمد يعقوب

حياك الله

في الواقع أنا متابع الموضوع من البداية واعجبني الكود كثيراً

ولكن ماذا لو كان عدد الحسابات عندنا اكثر من اربع حسابات (المصارف)

فهل يتم الدلالة عليها بالكود جميعاً :

If Sheets("xxxx").Cells(F, 9).Value = 1 Then B = 3

If Sheets("xxxx").Cells(F, 9).Value = 2 Then B = 5

If Sheets("xxxx").Cells(F, 9).Value = 3 Then B = 7

If Sheets("xxxx").Cells(F, 9).Value = 4 Then B = 9

حيث xxxx هو اسم الورقة

مثلاً عند إضافة حساب جديد رقم الكود 5

If Sheets("xxxx").Cells(F, 9).Value = 5 Then B = 11

فهل من العملي اضافة سطور جديدة لهذا الكود بعدد الحسابات

ام ان هناك طريقة مختصرة اكثر ...

افيدونا افادكم الله

تحياتي ومودتي

والسلام عليكم

رابط هذا التعليق
شارك

‏الجمعة‏، 5‏/11‏/1430هـ الموافق ‏23‏/10‏/2009م

السلام عليكم و رحمة الله وبركاته

كلامك اخي زياد صحيح و ممكن

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

مثلا في حالة هذا المثال الموجود

ممكن نعدل الكود كـ التالي


If Sheets("xxxx").Cells(F, 9).Value = 1 Then B = 3

If Sheets("xxxx").Cells(F, 9).Value > 1 Then B = Cells(F, 9).Value * 2 + 1

وفي هذه الحالة اذا كان رقم الحساب 2

B=2*2+1 = 5

وهكذا

اشكر لك متابعتك و توضيحك و تقبل شكري و تقديري

رابط هذا التعليق
شارك

السلام علبكم

اخي وحبيبي في الله استاذ احمد يعقوب

جزاك الله كل خير

شكراً على الاجابة ،،، وكلامك فعلاً ما يخرش المية

لقد تمت التجربة بنجاح

زادك الله من علمه وفضله

لك مني كل الود والتحية

والسلام عليكم

رابط هذا التعليق
شارك

رائع جدا ولكن يوجد ملاحظة

عند ادخال رقم الكود وادخال القيمة قصاده يتم الترحيل

ولكن عند تغير الكود لا يتم تغير الترحيل من بنك لبنك حسب الكود

واذا حذفت الكود لا يتغير الترحيل ويفضل في مكانه ولا يتحذف مع حذف الكود

ارجو افادتي

996.zip

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله

اخي الفاضل

المفروض في عملية الإدخال ان تتم بالتسلسل

التاريخ ثم رمز البنك ثم المبلغ

و الكوود يعمل بعد ادخال المبلغ

و المفروض في هذه الحاله ان كان هناك تغيير او تعديل ان يتم قبل ادخال المبلغ

مع التحية و التقدير

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information