ارجو المساعدة مشكلة فى الترحيل (اريد من اى احد يعرف فى الترحيل المشاركة )

[ابو سما]

work.rarاولاً : اشكر كل من يعمل فى هذا المنتدى الرائع الذى تعلمت منة الكثير فى الاكسيل وذللك بصفة خاصة كونى محاسب

ثانيا : شكر لكل اعضاء المنتدى وكل من يشارك فية

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

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

واشكر للجميع حسن التعاون

وهذ هو المرفق

[طارق محمود]

السلام عليكم

تفضل أخي

المرفق وبه الشرح

الحل عن طريق ماكرو خاص بالدبل كليك

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

هذا هو الماكرو

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 Cancel = True

If Target.Column <> 27 Then Exit Sub

If Target.Row < 2 Then Exit Sub

Dim r(3) As Double, tx(3) As String

x = Target.Value

rr = Target.Row

	Range(Cells(rr, 1), Cells(rr, 26)).Copy


Sheets(x).Range("A195").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll

 Application.CutCopyMode = False

End Sub

work_tareq.rar

[ابو سما]

اشكر لك تعاونك معى

:clapping: :clapping: :clapping: :clapping: :clapping:

ولكن يقابلنى مشكلة جديدة وهى ان هذة الورقة لاتخص الا شهر واحد ومرتبطة بورق اكسيل اخر لتجميع واخراج تقرير مفصلة وهذة الورقة ليست بامتداد .xlsx ولذلك فلا يقراها

ارجو المعذرة

تم تعديل سبتمبر 14, 2010 بواسطه 3s_sando

[طارق محمود]

السلام عليكم

هذة الورقة لاتخص الا شهر واحد

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

وهذة الورقة ليست بامتداد .xlsx ولذلك فلا يقراها

الورقات بها ماكرو كما سبق وأخبرتك

وهذا الماكرو لايعمل إلا بشرطين

1- أن تحفظ الملف بهذه الصيغة xlsm وليست xlsx

2- أن يتم تفعيل تشغيل الماكرو عن طريق

Excel Options

Trust Center

Trust Center Setting

Macro Enable

أنظر الصورة المرفقة

[ابو سما]

مشكوررررررررررررر

تم تعديل سبتمبر 14, 2010 بواسطه 3s_sando

[ابو سما]

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

Copy of d.rar

[طارق محمود]

السلام عليكم

أنظر الفيديو المرفق لتستطيع نقل الماكرو بنفسك

ملاحظة

نظام الويندوز عندي ليس مدعوم بالكامل للغة العربية

لذلك ستجد أسماء الشيتات داخل بالماكرو باللغة العربية غير مقرؤة فلاتنزعج

Copy_Macro.rar