اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود ترحيل


Eid Mostafa

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

السلام عليكم

أخي العزيز

تأخرت عليك

غيرت في الكود وأضفت له كالتالي

أن يبدأ بترحيل الحسابات الفرعية أولا ثم التفصيلية

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

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

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

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

وضعت في الورقة الأولي للتجربة عدد 3 حسابات غير موجودة بالشجرة

واحد فرعي

وواحد تفصيلي تحت حساب موجود من قبل بالشجرة

وواحد تفصيلي تحت حساب غير موجود من قبل بالشجرة

ان شاء الله يعجبك المرفق

Statement to Send_ALL8.rar

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

  • Members
  • M-member.png
  • 36 posts
    • Gender:Male

    [*]

    Warn Status

    Warning level: 0%

    Posted Yesterday, 02:27 PM

    أخى العزيز والغالى / طارق

    أشكرك على الإهتمام وعلى سعة صدرك ، وسأقوم بالإطلاع على الملف.

    ولك خالص تحياتى وتقديرى ،،،،،،

    أخوك / عيد مصطفى

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

مراقبنا العام طارق بك

أعمالك ندعو الله أن يجازيك خيراً عليها ويضعها فى موازين حسناتك

الف شكر يا أخونا الغالى على كل جهد تبذله لمساعدة الآخرين

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

أخى العزيز / طارق

بجد مش عارف أقولك إية

فعلاً الصبر جميل

وتسلم إيدك .

ملف تحفة

ملف أكثر من رائع.

بس زى مانت عرفتنى خلاص يعنى لازم أطلع حاجه. (حته هزار كده يعنى)

الصورة المرفقة توضح ما أقصدة وهى أن طرفى القيد تم ترحيلهم بحساب واحد.

وبجد أكرر شكرى وتقديرى لمجهودك مرة أخرى.

ولك خالص تحياتى وتقديرى ،،،،،،

أخوك / عيد مصطفى

post-56134-0-82700100-1323258713_thumb.j

post-56134-0-44952700-1323258953_thumb.j

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

أخى العزيز / طارق

بجد مش عارف أقولك إية

فعلاً الصبر جميل

وتسلم إيدك .

ملف تحفة

ملف أكثر من رائع.

بس زى مانت عرفتنى خلاص يعنى لازم أطلع حاجه. (حته هزار كده يعنى)

الصورة المرفقة توضح ما أقصدة وهى أن طرفى القيد تم ترحيلهم بحساب واحد.

وبجد أكرر شكرى وتقديرى لمجهودك مرة أخرى.

ولك خالص تحياتى وتقديرى ،،،،،،

أخوك / عيد مصطفى

post-56134-0-78849800-1323259064_thumb.j

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

السلام عليكم

نعم أخي هذا ماكنت أعنيه في مشاركتي (رقم 20) عندما سألتك

هل تريد إضافة الحساب لشجرة الحسابات إذا لم يكن موجود بها أصلا؟؟

وهل النتيجة بالشيت Statement of Account هي ماتريد ؟؟

أنتظر ردك

لأنني لست محاسبا ولا أعلم المتعارف عليه في إخراج هذا العمل

فهمت أنك تريد ملخص القيد في سطر واحد

يعني في المثال الماضي الرقم 6,177.00 ،

أين توضع فرضا ، دائن أم مدين

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

أخى العزيز / طارق

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

أولاً : التعليق على ديناميكية عمل ملف الإكسيل الحالى:-

  1. تم عمل قيد يومية يشتمل على قيمة بمبلغ 121212.00 جم تخص الحساب (فى مثالنا هذا الحساب هو الأهلى سوسيتية جنرال – جنية مصرى ) وذلك بالخلية [E & C 8] (((مرفق J.V. B4 Posting))).

  1. عند الذهاب إلى كشف الحساب شيت [statement of Account] سنجد أن القيمة لم يتم ترحيلها إلى الحساب المذكور (((مرفق NSGB Statement of Account after Posting))).

ثانياً : التعليق المحاسبى:-

  1. أن يتم فقط ترحيل ما يخص الحساب فى القيد أياً كان مدين أو دائن بمعنى أن القيمة المدينة بالحساب ترحيل إلى الجانب المدين بكشف الحساب ، وكذلك الحال بالنسبة للقيمة الدائنة ترحل إلى الجانب الدائن بكشف الحساب. وليس أن يتم ترحيل كامل القيد إلى كشف الحساب فالمبدأ هنا يقترب كثيراً من المبدأ المتبع فى شيت اليومية الأمريكية فكل قيمة تخص حساب ترحل إلى العمود الخاص بها (((مرفق Corrected NSGB Statement of Account after Posting))).
  2. وفقاً لما هو مطلوب فى شيت [statement of Account] أن العبره هنا بإسم الحساب وهو ماهو موجود بخلية [D6] وفى مثالنا هذا هو حساب ]الأهلى سوسيتية جنرال – جنية مصرى[ ، وبمعنى أن عند طلب (إستدعاء) أحد الحسابات أن يتم عرض كافة الحركات سواء المدينة أو الدائنة التى تخص ذلك الحساب فقط.

(أرجو أن أكون قد أوضحت لك بما يكفى فى تلك النقاط المحاسبية)

ثالثاً : لى تعليق آخر على جزئية إضافة حساب جديد ستلاحظ كما بالصورة أن الكود يفيد بعدم وجود الحساب التفصيلى بنوك حسابات جارية فى شجرة الحسابات وتمت إضافتة لشجرة الحسابات تحت الحساب الفرعى وثائق صندوق ثمار (((مرفق Inquiry Please))).

وما أقصدة فى تلك النقطة تحديداً هما نقطتان كالتالى:-

  • الحساب الذى أضافة الكود وهو فى حالتنا هذة (بنوك حسابات جارية) موجود من قبل بشيت Chart of Accounts خلية [C 76] فكيف لا يتعرف علية الكود ، وأضافه مرة أخرى بشيت Chart of Accounts خلية [C 85] (((مرفق Error in the account creation))).
  • فهل يمكننا تلافى هذا الأمر ؟ وهل يمكن تعديل عمل الكود بحيث يستفسر أولاً عن الحساب الرئيسى الذى يود إدراج الحساب الفرعى تحته ولكن مع مراعاة فى الفقره السابقة وهى عدم تكرار الحساب مرة أخرى.

أنا أدرك تماماً بأننى قد أطلت عليك هذه المره.

ولك خالص تحياتى وتقديرى ،،،،،،

أخوك / عيد مصطفى

Excel Mechanism.rar

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

السلام عليكم

سأرد علي السهل أولا

الحساب الذى أضافة الكود وهو فى حالتنا هذة (بنوك حسابات جارية) موجود من قبل بشيت Chart of Accounts خلية [C 76] فكيف لا يتعرف علية الكود ، وأضافه مرة أخرى بشيت Chart of Accounts خلية [C 85] (((مرفق Error in the account creation))).

فعلا الحساب (بنوك حسابات جارية) موجود من قبل بشيت Chart of Accounts خلية [C 76] ولكنه فرعي وليس تفصيلي - لذا وجب إضافته كتفصيلي حسبما فهمت

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

فهل يمكننا تلافى هذا الأمر ؟ وهل يمكن تعديل عمل الكود بحيث يستفسر أولاً عن الحساب الرئيسى الذى يود إدراج الحساب الفرعى تحته ولكن مع مراعاة فى الفقره السابقة وهى عدم تكرار الحساب مرة أخرى.

نعم يمكن ولو أن الأحسن ألا يسأل الكود ويضيفه مباشرة تحت الحساب الأكبر له فحسبما لاحظت : أن الحساب التفصيلي تابع للحساب الفرعي في السطر الذي يعلوه في ورقة J.V

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

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

والآن وقد رددت علي النقطة الثالثة وردا علي النقطتين الأولي والثانية

عدل الكود الخاص بالترحيل لورقة Statement of Account

ليكون كالتالي

Sub Shift_2_Stament()

Sheets("J.V").Select


'==================================================================

With Sheet5	 'Statement of Account ترحيل إلي الصفحة

	' أول سطر بيانات في هذه الورقة 9 وليس 4 كالسابقات

	LastRow = .Cells(1000, 4).End(xlUp).Row + 1

	If LastRow < 9 Then LastRow = 9


  '===========================================

	Trg_AC = .[D6]



	For R = 7 To 43

		deb = Cells(R, 3): crd = Cells(R, 4): Acnt = Cells(R, 5).Value

		If deb = "" And crd = "" Then GoTo 50

		If Cells(R, "E") <> Trg_AC Then GoTo 50


			If crd = "" Then

				.Cells(LastRow, 2) = .Cells(LastRow, 2) + deb

			Else

				.Cells(LastRow, 3) = .Cells(LastRow, 3) + crd

			End If

			.Cells(LastRow, "H") = [b2]

			.Cells(LastRow, "G") = [b3]

			.Cells(LastRow, "F") = [b4]

			.Cells(LastRow, "D") = [E44]

			LastRow = LastRow + 1

50	 Next R

End With


End Sub

مرفق صورة وبها

الجانب اليسار من ورقة J.V قبل إجراء الكود

الجانب اليسار من ورقة Statement of Account بعد إجراء الكود

post-1148-0-74048500-1323322544_thumb.jp

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

  • 2 weeks later...

أخى العزيز / طارق

أتقدم إليك ببالغ الأسف و الإعتذار عن إنقطاعى عن موضوعنا هذا طوال الفترة الماضية

فارجو منك المعذرة وذلك لضيق الوقت وخاصة فى مثل هذا التوقيت من العام بالنسبة لمجال عملى

وقد إكتفيت وبشكل مؤقت من إفاداتك الرائعة والتى أضافت إلى الكثير وبالفعل وفرت لى الكثير من الوقت والمجهود

وعلى أن نعود مرة أخرى لإستكمال ما بدأناة سوياً بعد إنقضاء تلك الفترة.

ولك خالص تحياتى

أخوك

عيد مصطفى

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

  • 1 year later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information