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

[محمود أبوسيف]

الإخـوة الأفاضل 

المطلوب :- يتم ترحيل بيانات الصفوف من شيت الأساسيين إلي شيت الشهر الذي يتم وضع علامة √أمامة بحيث لايتم مسح هذه البيانات عند الترحيل .

 

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

 

 كشوف توزيع.rar

[محمود أبوسيف]

للرفع

[محمود أبوسيف]

للرفع

وبلاش وضع علامة √ أمام الصف نوضع أي رمز أو شئ يفي بالغرض .المهم نلاقي حل

تم تعديل أبريل 6, 2015 بواسطه Mahmoud330

[محمود أبوسيف]

للرفع

[ا بو سليمان]

للرفع  وان شاء الله الاخوه  بيساعدو في ايجاد الحل

[محمود أبوسيف]

شكراً لإهتمامك أخي ( أبو سليمان ) وأنا أثق في قدرات الأخوة الأعضاء وإن شاء الله الحل قريب 

[محمود أبوسيف]

للرفع

[ا بو سليمان]

ممكن عمل  صف بالاعلى  وادراج قيمة  مثال  رقم  4  في كل رؤس الا اعمدة    ومن ثم عمل شرط   في حال   توافر رقم   4  يتم عمل   .............. حسب الشرط 

[أبوعيد]

السلام عليكم

في شيت الأساسيين يوجد عمود لونه أخضر (U)

ضع رقم 1 أمام البيانات التي تريد ترحيلها

ثم اضغط ترحيل

تحياتي

كشوف توزيع#1.rar

[ا بو سليمان]

السلام عليكم

في شيت الأساسيين يوجد عمود لونه أخضر (U)

ضع رقم 1 أمام البيانات التي تريد ترحيلها

ثم اضغط ترحيل

تحياتي

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

[محمد حسن المحمد]

 

السلام عليكم

في شيت الأساسيين يوجد عمود لونه أخضر (U)

ضع رقم 1 أمام البيانات التي تريد ترحيلها

ثم اضغط ترحيل

تحياتي

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

 

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

[أبوعيد]

السلام عليكم

أخي أبوسليمان يالغالي 

تاكد أني لن أبخل بمعلومة طالما أني أستطيع تقديمها

قد يكون قلة الشرح من السائل هي العائق في فهم الموضوع

 

لاحظ الرابط  http://www.officena.net/ib/index.php?showtopic=60250&p=387885

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

 

وقد يكون طلبك فوق طاقتي فاعذرني

أما إن كنت أستطيع عمل شيء فلن أبخل إن شاء الله

 

لك مني كل الأحترام والتقدير

[محمود أبوسيف]

الأخ الفاضل أبوعيد

لك مني كل تقدير وإحترام علي هذا المجهود الرائع ولكن أعذرني هناك بعض الملاحظات

1- عند الترحيل يتم حذف القيمة التي نقوم بإدخالها في شيت الأساسيين في خانة الشهر

والمطلوب عدم حذف هذه القيمة من أمام الصف التي تتبع هذا الشهر . 

(  بمعني أنه في حالة إدخال قيمة 100 مثلا للصف رقم 10 في شهر 1 ثم قمنا بالترحيل نجد أن هذه القيمة قد إختفت أو تمت إزالتها بمجرد الترحيل )

 

2- تكرار ترحيل الصفوف في حالة إدخال أكثر من قيمة لنفس الصف في أكثر من شهر .

(  بمعني أنه في حالة ترحيل مثلا الصف رقم 10 بالقيمة التي أضفناها أمامه ثم قمنا بالترحيل لعدة صفوف أخري نجد أن الصف رقم 10 قد  تم تكراره مرة أخري داخل صفحة الشهر الذي توجد أمامه قيمة في شيت الأساسيين بمجرد الترحيل وليكن مثلاً شهر 1 سنجد الصف رقم 10 موجود مرتين في هذا الشهر)

تم تعديل أبريل 8, 2015 بواسطه Mahmoud330

[ا بو سليمان]

السلام عليكم

أخي أبوسليمان يالغالي 

تاكد أني لن أبخل بمعلومة طالما أني أستطيع تقديمها

قد يكون قلة الشرح من السائل هي العائق في فهم الموضوع

 

لاحظ الرابط  http://www.officena.net/ib/index.php?showtopic=60250&p=387885

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

ولا زلت أنتظر ردك

 

وقد يكون طلبك فوق طاقتي فاعذرني

أما إن كنت أستطيع عمل شيء فلن أبخل إن شاء الله

 

لك مني كل الأحترام والتقدير

اخي الفاضل ابو عيد

انت انسان رائع  تجمع العلم والخلق

 

فهنيئا لنا بامثالك 

 

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

[محمود أبوسيف]

للرفع

[محمود أبوسيف]

للرفع

[أبوعيد]

شكرا لك أخي أبوسليمان على كلماتك الرقيقة

 

أخي محمود 330

بالنسبة لمطلوبك الأول 

ادخل على كود الترحيل في محرر الأكواد وامسح هذا السطر 

 ""=(ActiveSheet.Cells(t,y

أما مطلوبك الثاني فلم أفهمه

أرجو التوضيح أكثر

تحياتي

[محمود أبوسيف]

أخي الكريم أبوعيد

المطلب الأول تم بنجاح بارك الله فيك

المطلب الثاني :- إفتح الملف المرفق وأنظر إلي جميع الشهور ستجد أن أكثر من أسرة تم تكراراها وهذا غير مطلوب 

المطلوب :- عدم تكرار ترحيل الأسر داخل نفس الشهر

كشوف توزيع#1.rar

[محمود أبوسيف]

للرفع

[محمود أبوسيف]

للرفع

المطلوب :- عدم تكرار ترحيل الأسر داخل نفس الشهر

[أبوعيد]

نعم فهمت المطلوب

وتم التعديل

ملاحظات :

1/ في العمود (U) إذا أردت الترحيل أكتب أي شيء وليس بالضرورة الرقم 1 كما هو في الملف المرفق السابق

2/ إذا أردت تغيير العمود (U) ادخل على محرر الأكواد وغير الحرف (U) في هذا السطر 

If Range("u" & t) <> "" Then   إلى أي حرف تريده

مثلا If Range("X" & t) <> "" Then   أي أنك اخترت العمود (X)

تحياتي

كشوف توزيع#2.rar

[محمود أبوسيف]

الأخ الكريم أبوعيد

والله هذا أكثر من رائع

ولكن هل سمحت لي بطلب آخر

المطلوب :- هل من الممكن جعل كتابة رقم 1 مثلاً أو أي كلمة أخري في العمود (U) تلقائية

 

( يعني بمجرد إدخال بيانات في الخلايا التي تقابل الصف )

تم تعديل أبريل 9, 2015 بواسطه Mahmoud330

[محمود أبوسيف]

للرفع 

المطلوب :- هل من الممكن جعل كتابة رقم 1 مثلاً أو أي كلمة أخري في العمود (U) تلقائية

 

( يعني بمجرد إدخال بيانات في الخلايا التي تقابل الصف )

[أبوعيد]

تم تنفيذ طلبك بنجاح

تم إضافة زر جديد (مسح بيانات الأشهر) ربما تحتاحه

تفضل

كشوف توزيع#3.rar

[محمود أبوسيف]

الأخ الفاضل أبوعيد

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

تم تعديل أبريل 9, 2015 بواسطه Mahmoud330