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

إنشاء صفحات جديدة


syr_acc12

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

السلام عليكم

مرحبا بك أخي الكريم بين إخوانك

مرفق ملف قريب مما تطلب

يمكنك تطويره او الإنتظار حتي يتسع وقتي أو وقت احد الإخوة

ترحيل القيود للدائن وللمدين وإنشاء صفحة للحساب.rar

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

السلام عليكم

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

الفكرة قريبة كتير للشي اللي بدي ياه

ولكن.

أنا بدي ياه يرحل المعلومات بملف جاهز يعني ما في عندي VALIDATION

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

بتمنى أنو ما كون عبتثاقل عليكم

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

اخى المهندس طارق

ورقة الترحيل للمدين والدائن وانشاء حسابات عمل رائع وملخص حسابات (ميزان مراجعه)

ولكن هل من الممكن ان يعمل مع القيود المزدوجه

بمعنى ان يكون المدين حساب او اكثر وان يكون الدائن حساب او اكثر

ياريت اتمنى هذا

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

اخى المهندس طارق

ورقة الترحيل للمدين والدائن وانشاء حسابات عمل رائع وملخص حسابات (ميزان مراجعه)

ولكن هل من الممكن ان يعمل مع القيود المزدوجه

بمعنى ان يكون المدين حساب او اكثر وان يكون الدائن حساب او اكثر

ياريت اتمنى هذا

السلام عليكم

أخي العزيز سعد عابد

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

ولكني فعلا لاأعلم الكثير عنها

انا اول مرة مثلا اسمع عن القيود المزدوجه

حسب مافهمت ان يكون احد طرفي الدائن و المدين اكثر من حساب

اعتقد ان لهذا حل طبعا

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

علي الاغلب انك ستجد هذا مثلا في

http://www.officena.net/ib/index.php?showtopic=32105&st=0&p=164213&hl=+%DE%ED%E6%CF%20+%E3%D2%CF%E6%CC%C9&fromsearch=1&#entry164213

أو ببعض البحث

وإلا سأحاول معك الأسبوع القادم

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

السلام عليكم

أخي syr_acc12

الكود أصبح أسهل كثير

تفضل الكود

Sub Shift()


Qaid_No = Cells(10000, 3).End(xlUp).Row - 3


'___________   	READ   		_________________

For i = 1 To Qaid_No

	a = Cells(3 + i, 3)


'Check Account is exist or No

	x = Worksheets.Count

	For j = 1 To x

	If Worksheets(j).Name = a Then GoTo 100

	Next j

   add_n_sht (a)  	'in case no sheets in this name

100

Worksheets("QAID").Select

Range("A" & 3 + i & ":F" & 3 + i).Copy

Sheets(a).Cells(10000, 3).End(xlUp).Offset(1, -2).PasteSpecial Paste:=xlPasteValues

Next i


End Sub

Function add_n_sht(n_acc)

	Sheets("sample").Select 'in case no sheets in this name

	Sheets("sample").Copy Before:=Sheets(1)

	ActiveSheet.Name = n_acc

	Range("B1").Value = n_acc

End Function

والملف مرفق

ترحيل القيود للدائن وللمدين وإنشاء صفحة للحساب2.rar

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

أخى المهندس /طارق

بارك الله فيك والله ان اعلم ان وقت غالى (اسأل الله ان يبارك فيك )

ولكن نطمع ان ناخذ جزء من وقتك الاسبوع القادم

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

لذا اطلب منك وقتما يتوفر الوقت ان يكون القيد ( المدين اكثر من حساب والدائن كذلك مع العلم ان هناك قيود غير مزدوجه( يعنى يعمل مع الاثنين)

اشكركم لسعة صدركم

اخوك سعد عابد

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

أخى المهندس /طارق

بارك الله فيك والله ان اعلم ان وقت غالى (اسأل الله ان يبارك فيك )

ولكن نطمع ان ناخذ جزء من وقتك الاسبوع القادم

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

لذا اطلب منك وقتما يتوفر الوقت ان يكون القيد ( المدين اكثر من حساب والدائن كذلك مع العلم ان هناك قيود غير مزدوجه( يعنى يعمل مع الاثنين)

اشكركم لسعة صدركم

اخوك سعد عابد

السلام عليكم

أخي العزيز / سعد عابد

لامانع مطلقا

لكني كما تعلم لست محاسبا ، بس سؤال

الا يصلح عمل القيد المزدوج علي سطرين

فبدلا من ان يكون دائن 100 من ح/1 إلي ح/2 ، ح/3 بالتساوي مثلا

فتكون قيدين

دائن 50 من ح/1 إلي ح/2

دائن 50 من ح/1 إلي ح/3

أي كما قال أخونا syr_acc12

هل انت بتحسن تكتب عناصر الطرف المركب حسب مبالغه بالمقابل بتكتب الحساب أكثر من مرة

أو إرسل لي تصورك عن الموضوع أو كيف تريد ذلك بمثال بسيط

تم تعديل بواسطه TareQ M
رابط هذا التعليق
شارك

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

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



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

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

Important Information