كود ترحيل

[Eid Mostafa]

أعانك الله وزاد فى وقتك وفى رزقك

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

[طارق محمود]

السلام عليكم

أخي العزيز

تأخرت عليك

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

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

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

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

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

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

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

واحد فرعي

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

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

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

Statement to Send_ALL8.rar

[Eid Mostafa]

• Members
  
• 
  
• 36 posts
  
  • Gender:Male
    

  [*]

  Warn Status

  Warning level: 0%

  Posted Yesterday, 02:27 PM

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

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

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

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

[يوسف عطا]

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

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

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

[Eid Mostafa]

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

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

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

وتسلم إيدك .

ملف تحفة

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

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

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

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

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

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

[Eid Mostafa]

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

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

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

وتسلم إيدك .

ملف تحفة

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

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

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

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

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

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

[Eid Mostafa]

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

عذراً

نسيت أضغط الصورة فى المرتان السابقتان

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

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

Statement of Account 07.12.11.rar

[طارق محمود]

السلام عليكم

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

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

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

أنتظر ردك

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

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

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

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

[Eid Mostafa]

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

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

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

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 بعد إجراء الكود

[Eid Mostafa]

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

هل بإمكانك إعطائى بريدك الإلكترونى أو مراسلتى على بريدى الإلكترونى التالى :-

Eid_Mostafa@hotmail.com

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

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

[طارق محمود]

السلام عليكم

بريدي موجود علي صفحتي

tarekmahmoud_2@hotmail.com

[Eid Mostafa]

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

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

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

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

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

_{ولك خالص تحياتى}

_أخوك

_{عيد مصطفى}

[Eid Mostafa]

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

هل أغلقت خاصية إستلام الرسائل ؟

_{خالص تحياتى}

_أخوك

_{عيد مصطفى}

[طارق محمود]

لا ياأخي ، لم أغلقها

عندي رسائل من يوم ومن يومين .. طبيعي

راسلني علي الإميل لو فيه ضرورة

tarekmahmoud_2@hotmail.com

[سعدي حسين جبر]

بارك الله  لقد استفدت من شرحكم  وفقكم الله