ترحيل الحسابات بالضغط على الحساب الفرعي

[أبو شرف]

بسم الله الرحمن الرحيم 

ارفق لكم اليوم مثال المطلوب فيه الترحيل حسب التنسيق المرفق وهو من اعمال ألأستاذ خبور وعبد الله ابو الخير وانا بصراحة ادمجت المجهودات لهم ونتمنى من كل الأعضاء المشاركة في اكمال الموضوع لتعم الفائدة للجميع 

 

المطلوب الترحيل حسب التنسيق الى الصفحة المطلوبة اي عندما نظغط على الخلية التي تحتوي على الاسم بالحساب الفرعي يضهر لنا فورم فيه اوبشن اسماء الصفحات وبعدها يتم الترحيل الى اسم الصفحة المطلوبة حسب التنسيق وبعد الترحيل مثلا تم اظهار كلمة تم الترحيل في الخلية المجاورة للصف ( الفارغة ) هذه الفكرة هي محاسبية وانا متاكد بان اغلب المحاسبين بحاجة لهذه العمليات ,,,,,,,,,,,,,, وما التوفيق الا من عند الله . 

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

كشف حساب.rar

تم تعديل مايو 2, 2013 بواسطه أبو شرف

[أبو شرف]

اخوان هل من يشارك معي خدمة للجميع 

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبو شرف

 

بارك الله فيك

معذرة ... لم افهم المقصود من (( المطلوب الترحيل حسب التنسيق الى الصفحة المطلوبة ))

هل تقصد حسب الترتيب للبيانات الموجودة في الحساب الرئيسي الي صفحات الحساب الفرعي ان يكون كما هو ...؟

 

وقمت بعمل فكرة مبدئية لطلبك ... علي حسب فهمي ولكن لم تكتمل لمعرفة رأيك اولا

وهي كالتالي :

قم بالوقوف علي اي خليه في عمود الحساب الفرعي يظهر لك زر ( ترحيل ) بالضغط عليه

تظهر شاشة GO خاصتك للانتقال للصفحات لاختيار صفحة الحساب المراد الترحيل اليها

ثم اختيار الصف المحدد ليتم التعامل معه بعد ذلك ....

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

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

 

 

كشف حساب-SAMA.rar

 

[أبو شرف]

استاذي العزيز يعجز اللسان على الشكر لما قمت به بالضبط هو هذا المطلوب الترحيل بنفس التسنيق للصف ........... الرجاء اكمال الموضوع والله يوفقك انشاء الله وانا بأنتظارك يا اخي العزيز

ملاحظة انت تسير في الطريق الصحيح لخدمة اعضاء هذا الموقع وانشاء الله كل ماقمت به لخدمة الناس هو في ميزان حسناتك بأذن الله تعالى والله لا تعلم كم هي فرحتنا بهذا العمل حيث ان عملية الترحيل من اهم الخطوات بعد التسجيل بهذا عملك استطيع ان اقول لك بأنها طفرة في المحاسبة خصوصا للناس المبتدئة حيث ان ترحيل الصف الى الورقة المطلوبة شيء عظيم يختصر كثير من العمليات 

تم تعديل مايو 2, 2013 بواسطه أبو شرف

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبو شرف

 

بارك الله فيك

وجزيل شكري وامتناني علي كلماتك الراائعة التي لا يساويها اي شئ

جمعنا الله واياكم في الفردوس الاعلي يوم القيامة

ضع الكود التالي في زر الترحيل CommandButton3

Private Sub CommandButton3_Click()
Dim LR As Long
ActiveCell.EntireRow.Copy
If Not Cmb_NameSheet.Text = "" Then
Sheets(Cmb_NameSheet.Text).Select
End If
LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(LR, 1).Select
ActiveSheet.Paste
Sheets("الحساب الرئيسي").Select
MsgBox ("تم ترحيل الحساب المحدد ... بحمد الله")
ActiveCell.Select
ActiveCell.Offset(0, 3) = "تم الترحيل"
ActiveCell.Offset(0, 3).Select
End
End Sub

وفي انتظار ردك .. ليكتمل عملك باذن الله

واليك ملف مرفق 2003

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

 

كشف حساب-SAMA+.rar

تم تعديل مايو 2, 2013 بواسطه حمادة عمر

[أبو شرف]

استاذنا الغالي , يعجز اللسان عن الشكر  ونحن ندعوا لك بدوام الصحة والعافية انت ومن تحب بحق لا اله الا الله 

استاذنا مازلنا طمعانين بكرمك الجميل 

1- هل بالأمكان عندما تكتب كلمة ( تم الترحيل ) يكتب معها اسم الورقة مثلا حيث هنا سوف يكون للمدقق اختصار للزمن بصورة كبيرة كذلك عندما تتم المراجعة بعد فترة نستطيع اكتشاف اخطاء الترحيل ( مثلا الحساب الى محمود ونحن قد رحلنا الى محمد ) هنا لو يتم تنزيل اسم الصفحة مع كلمة تم الترحيل الى ......... 

2- هل بالأمكان الترحيل الى ملف اكسل اخر وايضا بنفس التنسيق بحيث نختار اسم الملف وتخرج لنا اسماء الصفحات ونرحل بنفس الطريقة 

3- ارجو توضيح كيف ادمج هذا العمل لملف اكسل اخر . حيث اني استطعت على كل شيء ولكن بتن ترحيل لم استطيع ايجادة ولا طريقة عمله . 

4- عندما يتم الترحيل يتم على مدى الصف بالكامل لو بالأمكان تحديد النسخ على قدر الخلايا المستعملة بالصف فقط اي مثلا على قدر تسعة خلايا بالصف مثلا او عشرة 

ونكون شاكرين لك وانشاء الله لو في حاجة سوف نكتبها لك للتعديل ,,,,,,,,,,,,,,, والأبداع من قبلك 

ربي يحفظك وتقبل تقديرنا 

اخوك ابو شرف 

تم تعديل مايو 3, 2013 بواسطه أبو شرف

[ضاحي الغريب]

أخي الحبيب ا. حمادة عمر (روح المنتدي)

بارك الله فيك

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

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

تقبل تحياتي

[حمادة عمر]

الاخ الحبيب / ضاحي الغريب

 

بارك الله فيك

مرورك دائما يشرف اي موضوع

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

 

[حمادة عمر]

الاخ الكريم /  أبو شرف

بارك الله فيك

معذرة ... سوف اقدم لك طلباتك طلب طلب نظرا لضيق الوقت لدي

بالنسبة للطلب الاول بخصوص وضع اسم الحساب مع كلمة ترحيل

اليك المرفق به المطلوب

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

كشف حساب-SAMA++.rar

 

 

 

 

[حمادة عمر]

 

3- ارجو توضيح كيف ادمج هذا العمل لملف اكسل اخر . حيث اني استطعت على كل شيء ولكن بتن ترحيل لم استطيع ايجادة ولا طريقة عمله . 

 

 

 

الاخ الكريم / أبو شرف

بارك الله فيك

بالنسبة لهذا الطلب ... بتنفيذ ذلك في ملف آخر

اولا : قم بتصميم زر في صفحة الاكسيل في الملف الذي تريده

      ثم ضع الكود التالي في حدث الورقة التي تريد ظهور الزر فيها

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.CommandButton1.Visible = False
If Target.Column = 8 Then
If Target.Row > 1 And Target.Row < 10000 Then
Me.CommandButton1.Top = Target.Top
Me.CommandButton1.Left = Target.Left
Me.CommandButton1.Visible = True
End If
End If
End Sub

ويتم تحديد العمود المراد ظهور الزر فيه من خلال السطر  ... حيث انه هنا العمود رقم 8

If Target.Column = 8 Then

ثم يتم تحديد في نفس الكود بداية ونهاية ظهور الزر ... اي من الصف رقم كذا ... الي الصف رقم كذا ...من خلال هذا السطر

If Target.Row > 1 And Target.Row < 10000 Then

وتقوم ايضا بوضع كود لاظهار الفورم المطلوب ( وهو هنا Go11 ) في حدث الزر نفسه كما يلي

Private Sub CommandButton1_Click()
Go11.Show
End Sub

ثم نضع الكود التالي في زر الترحيل الموجود في الفورم المذكور

Private Sub CommandButton3_Click()
Dim LR As Long
ActiveCell.EntireRow.Copy
If Not Cmb_NameSheet.Text = "" Then
Sheets(Cmb_NameSheet.Text).Select
End If
LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(LR, 1).Select
ActiveSheet.Paste
Sheets("الحساب الرئيسي").Select
MsgBox ("تم ترحيل الحساب المحدد ... بحمد الله")
ActiveCell.Select
ActiveCell.Offset(0, 3) = "تم الترحيل الي" & " " & Cmb_NameSheet.Value
ActiveCell.Offset(0, 3).Select
End
End Sub

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

[أبو شرف]

الحمد لله رب العالمين والصلاة والسلام على سيد المرسلين ( محمد ) ص 

يا استاذي فعلا انت صديق وقت الضيق ,,,,,,, نسأل الله القدير ان يبارك في علمك وفي عملك 

تقبل تحياتنا 

ابو شرف 

[حمادة عمر]

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

اخي الكريم

[saad abed]

اخى حمادة عمر

افكار جميلة

ياريت تكمل فقد استخدمت الكود وهو جميل جدا ولكنى اريد

النسخ على قدر الخلايا المستخدمة فقط

تغيير لون الخط فى الخلايا المرحله

اشكرك اخى استفدت كثيرا من العمل

[حمادة عمر]

4- عندما يتم الترحيل يتم على مدى الصف بالكامل لو بالأمكان تحديد النسخ على قدر الخلايا المستعملة بالصف فقط اي مثلا على قدر تسعة خلايا بالصف مثلا او عشرة 

 

 

ياريت تكمل فقد استخدمت الكود وهو جميل جدا ولكنى اريد

النسخ على قدر الخلايا المستخدمة فقط

الاخ الكريم / أبو شرف

الاخ الفاضل / سعد عابد

 

بارك الله فيكم

وبالنسبه لنسخ الخلايا علي قدر المستخدم منها 9 او 10

اليكم الملف به الكود مع التعديل ليتناسب مع طلبكم

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

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

 

كشف حساب-SAMA+++.rar

[أبو شرف]

استاذنا العزيز بوركت مجهوداتك وزاد الله من زاد العلم والتقوى 

لقد اثقلنا عليك بطالباتنا , وبصراحة سرعة الأستجابة منك دليل على ذوقك الكريم 

نحن لآن يا استاذ بأنتظار الترحيل الى صحفة اخرى , هل بالأمكان ان يتظهر لنا الملفات التي نرد التحويل عليها مثلا ضمن فولدر ونختار الصفحات المراد التحويل عليها بنفس التنسيق 

مع التقدير والأحترام . 

[saad abed]

اخى حمادة عمر

كل الشكر والتقدير اخى

اخوك سعد عابد

[حمادة عمر]

الأخ الكريم /  أبو شرف

بارك الله فيك

وان شاء الله ساعمل علي طلبك ولكن اعذرني بعض الوقت نظرا لضيق الوقت هذه الايام

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

[حمادة عمر]

الاخ الحبيب / سعد عابد

بارك الله فيك

تقبل خالص تحياتي وشكري

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

[أبو شرف]

استاذنا العزيز تحية طيبة والسلام عليكم ورحمة الله وبركاته 

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

مع التقدير 

اخوكم ابو شرف

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبو شرف

 

بارك الله فيك

ولكن ياريت لو مزيد من التوضيح اكثر ... مع مثال

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

[أبو شرف]

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

مع التقدير[

 

الترحيل من حسابين.rar

[saad abed]

اخى ابوشرق

اتمنى ان يكون المرفق هو طلبك

اخى حمادة اكوادك رائعة ومفهومة

شكرا لك

الترحيل من حسابين.rar

[أبو شرف]

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

[الجزيرة]

أخي / حماده عمر

 

أفكار عظيمة واكواد رائعة

[حمادة عمر]

السلام عليكم

الاخ الحبيب / سعد عابد

 

بارك الله فيك

ملف تمام تمام ... ودائما احب استخدام اسهل الاكواد وطرق وضعها

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