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

[syr_acc12]

السلام عليكم

جدول فيه معلومات مالية مرتبة حسب التاريخ

بدي طريقة يقوم فيها الاكسل بنسخ الأسطر الخاصة بكل تاريخ إلى صفحة جديدة هو ينشأها

أرجو المساعدة

[طارق محمود]

السلام عليكم

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

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

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

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

[syr_acc12]

السلام عليكم

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

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

ولكن.

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

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

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

[طارق محمود]

السلام عليكم

أخي الكريم

إرفق ملف من عندك

مع حذف اية بيانات خاصة منه

[طارق محمود]

لإرفاق الملفات لابد ان تضغطها اولا عن طريق Winrar او Winzip

[saad abed]

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

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

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

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

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

[syr_acc12]

أخي الكريم هاد الملف نموذج

الرجاء المساعدة

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

[syr_acc12]

إن شاء الله لقيتولنا حل

شباب

[طارق محمود]

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

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

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

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

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

السلام عليكم

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

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

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

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

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

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

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

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

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

[saad abed]

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

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

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

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

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

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

اخوك سعد عابد

[syr_acc12]

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

[syr_acc12]

أخ سعد بخصوص القيد المزدوج هلق انت بتحسن تكتب عناصر الطرف المركب حسب مبالغه بالمقابل بتكتب الحساب أكثر من مرة

[طارق محمود]

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

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

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

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

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

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

اخوك سعد عابد

السلام عليكم

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

لامانع مطلقا

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

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

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

فتكون قيدين

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

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

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

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

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

تم تعديل يناير 29, 2011 بواسطه TareQ M